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