Pessoal é o seguinte, eu preciso fazer uma busca aproximada no meu banco de dados para fazer com que o sistema ache em qualquer parte da razão social o que o usuário digitou. Estive olhando aqui mesmo no site na parte de dicas e achei o seguinte comando
Do
Data1.Recordset.FindNext "campoBusca like'" & Text1.Text & "'"
If Data1.Recordset.NoMatch Then GoTo fim
lst = Data1.Recordset.Fields(0)
List1.AddItem lst
Loop
Exit Sub
fim:
Adaptei ao que eu queria e o meu código ficou assim:
Drive = App.Path
Var = Drive & "Compras.MDB"
Data1.DatabaseName = Var
Data1.RecordSource = "Fornecedor"
CboRazao.Clear
Dim lst As String
Data1.Refresh
Data1.Recordset.MoveMin
Do While Not Data1.Recordset.EOF
Data1.Recordset.FindNext "razao like '%" & Text2.Text & "%'"
lst = Data1.Recordset.Fields(0)
If Not Data1.Recordset.NoMatch Then
CboRazao.AddItem lst
End If
Data1.Recordset.MoveNext
Loop
Antes estava dando um erro 91, más depois que comecei dando um refresh e jogando para o primeiro registro não deu mais esse problema, agora me ajudem como que eu posso fazer a comparação do que eu digitei para que o sistema busque no banco a razão social, pois quando o programa termina de fazer a comparação o meu combo não apresenta item nenhum cadastrado, ele não da erro algum.
Será que alguém poderia me dar essa força ??
Abraço e Boas Festas
