Boas
Estou a usar este código para procurar um registo:
Private Sub Procura_Nome_Click()
Dim criterio As String
resposta = InputBox("Escreva o nome a procurar", "Procura")
If StrPtr(resposta) = 0 Then
MsgBox ("User canceled!")
Else
If resposta = vbNullString Then
MsgBox ("Não posso procurar por nada")
Else
criterio = "[Nome] Like '" & resposta & "'"
Clientes_RS.FindFirst (criterio)
If Clientes_RS.NoMatch Then
MsgBox ("Não encontrado")
Else
Preencher_dados
End If
End If
End If
End Sub
Ate que funciona, mas não é bem como quero.
Pretendia que procurasse os nomes começados por 'resposta', mas apenas encontra os que forem iguais a 'resposta'
Podem ajudar-me por favor?
Estou a usar este código para procurar um registo:
Private Sub Procura_Nome_Click()
Dim criterio As String
resposta = InputBox("Escreva o nome a procurar", "Procura")
If StrPtr(resposta) = 0 Then
MsgBox ("User canceled!")
Else
If resposta = vbNullString Then
MsgBox ("Não posso procurar por nada")
Else
criterio = "[Nome] Like '" & resposta & "'"
Clientes_RS.FindFirst (criterio)
If Clientes_RS.NoMatch Then
MsgBox ("Não encontrado")
Else
Preencher_dados
End If
End If
End If
End Sub
Ate que funciona, mas não é bem como quero.
Pretendia que procurasse os nomes começados por 'resposta', mas apenas encontra os que forem iguais a 'resposta'
Podem ajudar-me por favor?
Última edição por Chaparro1973 em 14/12/2023, 14:25, editado 1 vez(es) (Motivo da edição : adicionar base de dados)