>>>>If Not Used('trans1') >>>> USE trans1.dbf Alias trans1 Again In 0 Shared >>>>Endif >>>> >>>>SELECT trans1 >>>>USE trans1 >>>>lnValutosearch=val(thisform.text4.value)&&Function argument value, type, or count is invalid >>>> >>>>lnValutosearch=thisform.text4.value &&Operator/operand type mismatch >>>> >>>>COUNT FOR trans1.fexerno=lnValutosearch TO thisform.text2.value >>>>WITH thisform.combo1 >>>>thisform.text4.value=.list(.listindex,2) >>>>thisform.text5.value=.list(.listindex,1) >>>>ENDWITH >>>>>>>>
>>>>>lnValutosearch=val(thisform.text4.value) >>>>>COUNT FOR trans1.fexerno=lnValutosearch TO thisform.text2.value>>>>>Or, if you use SQL which makes it easier if you later must upgrade your application to SQL server:
>>>>>lnValutosearch=val(thisform.text4.value) >>>>>Select fexerno from trans1 where fexerno=lnValutosearch into cursor curdummy >>>>>thisform.text2.value=_tally>>>>>
>>>>>>COUNT FOR trans1.fexerno=thisform.text4.value TO thisform.text2.value
>>>>>><\pre>
>>>>>>thanks