FIND FIRST COM DAO

MARCELO.VB.PIRA 10/01/2005 00:27:00
#59706

FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!! FUNCIONOU!!!!!!!!!


80 If BuscaFinanceiro = 7 Then DtFinanceiro.Recordset.FindFirst "num_nota_fiscal like '*" & TxBusca & "*' Or num_cheque like '*" & TxBusca & "*' Or num_pedido like '*" & TxBusca & "*' Or num_duplicata like '*" & TxBusca & "*' Or num_fatura like '*" & TxBusca & "*' Or num_recibo like '*" & TxBusca & "*' Or num_boleto like '*" & TxBusca & "*' Or num_vale like '*" & TxBusca & "*' Or num_cartao like '*" & TxBusca & "*' Or num_carne like '*" & TxBusca & "*'": If DtFinanceiro.Recordset.NoMatch Then MsgBox "Não foi encontrado registro correspondente.", 48, "ALERTA!!!": Exit Sub

80 If BuscaFinanceiro = 7 Then DtFinanceiro.Recordset.FindNext "num_nota_fiscal like '*" & TxBusca & "*' Or num_cheque like '*" & TxBusca & "*' Or num_pedido like '*" & TxBusca & "*' Or num_duplicata like '*" & TxBusca & "*' Or num_fatura like '*" & TxBusca & "*' Or num_recibo like '*" & TxBusca & "*' Or num_boleto like '*" & TxBusca & "*' Or num_vale like '*" & TxBusca & "*' Or num_cartao like '*" & TxBusca & "*' Or num_carne like '*" & TxBusca & "*'": If DtFinanceiro.Recordset.NoMatch Then MsgBox "Não foi encontrado registro correspondente.", 48, "ALERTA!!!": Exit Sub

80 If BuscaFinanceiro = 7 Then DtFinanceiro.Recordset.FindPrevious "num_nota_fiscal like '*" & TxBusca & "*' Or num_cheque like '*" & TxBusca & "*' Or num_pedido like '*" & TxBusca & "*' Or num_duplicata like '*" & TxBusca & "*' Or num_fatura like '*" & TxBusca & "*' Or num_recibo like '*" & TxBusca & "*' Or num_boleto like '*" & TxBusca & "*' Or num_vale like '*" & TxBusca & "*' Or num_cartao like '*" & TxBusca & "*' Or num_carne like '*" & TxBusca & "*'": If DtFinanceiro.Recordset.NoMatch Then MsgBox "Não foi encontrado registro correspondente.", 48, "ALERTA!!!": Exit Sub

80 If BuscaFinanceiro = 7 Then DtFinanceiro.Recordset.FindLast "num_nota_fiscal like '*" & TxBusca & "*' Or num_cheque like '*" & TxBusca & "*' Or num_pedido like '*" & TxBusca & "*' Or num_duplicata like '*" & TxBusca & "*' Or num_fatura like '*" & TxBusca & "*' Or num_recibo like '*" & TxBusca & "*' Or num_boleto like '*" & TxBusca & "*' Or num_vale like '*" & TxBusca & "*' Or num_cartao like '*" & TxBusca & "*' Or num_carne like '*" & TxBusca & "*'": If DtFinanceiro.Recordset.NoMatch Then MsgBox "Não foi encontrado registro correspondente.", 48, "ALERTA!!!": Exit Sub



Rapaz!!!! isso é um achado!!!! no caso, a busca pergunta por qual campo quer fazer a pesquisa, e o usuário escolhe POR DOCUMENTO intaum desta forma, o sistema busca pelo numero que o usuario informou EM TODOS OS CAMPOS DE DOCUMENTOS DO ARQUIVO!!!!!!!!!

Desculpem meu entusiasmo... mas é que eu tava quebrando MUITO a cabeça com esta consulta...


VALEU!!!