lnValutosearch=thisform.text4.value Select fexerno from trans1 where fexerno=lnValutosearch into cursor curdummy thisform.text2.value=_tally>this line
>>>>>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