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>First of all, I once again remind you to NEVER use an object in any FOR condition, use a memory variable instead, it's soooo much faster!
>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