PESQUISA POR NOME

THULIO 13/09/2011 15:16:45
#384144
No meu cadastro fiz uma pesquisa por nome usando esse codigo..


Dim ValorPesquisa As String

ValorPesquisa = InputBox([Ô]Digite o nome do cliente que você quer encontrar:[Ô])

Tresidente.Recordset.FindFirst [Ô]Nome Like [ô]*[Ô] & ValorPesquisa & [Ô]*[ô][Ô]

If Tresidente.Recordset.NoMatch = True Then
MsgBox [Ô]Este registro não foi encontrado.[Ô]

End If

Porém, to com dificuldade de exibir o valor encontrado, talvez por estar fazendo pelo inputbox.
Tem como eu enviar o valor pra um listbox ou encontra-lo em um MSFLEXGRID?
Ou até msmo se alguém souber uma pesquisa para encontrar nome mais facil ..me diga..
KERPLUNK 13/09/2011 16:16:26
#384153
If Tresidente.Recordset.NoMatch = True Then
MsgBox [Ô]Este registro não foi encontrado.[Ô]
else
msgbox tresidente!nome
End If
THULIO 13/09/2011 16:28:32
#384156
ta dando erro no .
msgbox tresidente!nome
end if

Wrong number of arguments of invalid property assignment.
deu esse erro..
KERPLUNK 13/09/2011 16:30:38
#384157
Nessa linha vc coloca o que vc quer fazer quando encontrar um nome... isso é só um exemplo...
THULIO 13/09/2011 16:33:25
#384158
é isso que eu quero saber...como vou exibir o nome encontrado com outros dados do mesmo?
KERPLUNK 13/09/2011 16:36:21
#384159
Nesse ponto, o seu recordset vai estar na posição do primeiro registro encontrado com o critério, faça um loop ali preenchendo o seu flexgrid.
EDERMIR 14/09/2011 08:47:52
#384195
Citação:

:
Nesse ponto, o seu recordset vai estar na posição do primeiro registro encontrado com o critério, faça um loop ali preenchendo o seu flexgrid.


A palavra NOME utilizada pelo KERPLUNK foi apenas um exemplo da forma de utilização.
conforme orientado pelo KERPLUNK, ao encontrar o registro, você utiliza o nome do recordset (no seu caso TRESIDENTE) seguido do caracter EXCLAMAÇÃO [Ô]![Ô] e o nome do campo da sua tabela.
Tópico encerrado , respostas não são mais permitidas
Voltar