PESQUISAR USANDO INPUTBOX

RO.DRIGOSG 28/03/2005 07:18:55
#75243

Tente isto:


Dim sArg as String

rs.MoveFirst
sArg = InputBox("Digite o nome do Cliente", "NeoSoft - Consulta por nome")
rs.Find "Cliente like '*" & sArg & "*'", , adSearchForward
If rs.EOF Then
MsgBox "Nenhum registro foi encontrado", vbInformation, "NeoPlastic - Aviso"
rs.Requery
PreencheCampos ' Rotina p/ preencher campos
Exit Sub
Else
PreencheCampos ' Rotina p/ preencher campos
Exit Sub
End If


Falou!

RO.DRIGOSG 28/03/2005 07:23:35
#75245

Onde está escrito rs referece ao seu Recordset e onde esta Cliente referece ao nome da sua tabela.

Falou!

USUARIO.EXCLUIDOS 28/03/2005 17:51:02
#75417

Não, não funciona dá o seguinte erro "O item não foi encontrado na colecção correspondente ao nome ordinal pedido " nesta linha < rst.Find "Agenda like '*" & Pesquisa & "*'", , adSearchForward > Não tenho bases para decidir a forma como o código possa ser elaborado no entanto penso que á semelhança do que já alguém indicou, usar CheckBox para definir o campo a ser pesquisado ou ComboBox com os nomes dos campos tipo < If ComboBox1 = "Nome" then > penso que passaria por <if txtNome.setFocus then> só que aqui dá erro talvez porque ao abrir o inputbox o foco passa para ela. Sei que é possivel pq já trabalhei com uma base de dados que fazia esta função e tive o código só que extraviei. Mas isto não é problemático. Serve só para estudar para quem precise. Obrigado pela ajuda até agora prestada. Vou continuar!