AJUDA CMDLOCALIZAR

USUARIO.EXCLUIDOS 21/03/2005 19:46:46
#74167
Este código insere uma Box que pesquisa o campo "Nome" da minha Tabela.mdb

Private Sub cmdFind_Click()
Dim Busca As String
Busca = InputBox("Insira o elemento que pretende encontrar!", "LOCALIZAR")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nome=" & "'" & Busca & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox "Este elemento não foi encontrado. Possivelmente não existe!", vbCritical, "RESPOSTA à SUA BUSCA"
Adodc1.Recordset.MoveLast
End If
End Sub

O que pretendia era usando sempre o mesmo cmdFind pesquisar no meu Form (Tabela.mdb) usando sempre o InputBox. Por exemplo para além de localizar no campo "Nome" também no campo "Telefone" . Alguém ajuda? Obrigado.
USUARIO.EXCLUIDOS 21/03/2005 19:53:48
#74169 Resposta escolhida
Este exemplo utilizo em access mesmo, no entanto acho que deve ajudar:

Private Sub cmdPESQUISA_Click()
On Error GoTo Err_cmdPESQUISA_Click

If [ent_num] <> " " Then
Pesquisa
rstEntidades.Filter = "ent_num= " & [ent_num] & ""
If rstEntidades.BOF = True Then
MsgBox " Não existem registos correspondentes"
Exit Sub
Else
rstEntidades.MoveFirst
MostrarRegisto
LibertarCampos
End If
Else
If entnome = "" Then
MsgBox " Tem que indicar o nome a pesquisar"
[ent_nome].SetFocus
Exit Sub
Else
Pesquisa
rstEntidades.Filter = "ent_nome like '" & entnome & "%" & "'"
If rstEntidades.BOF = True Then
MsgBox " Não existem registos correspondentes"
Exit Sub
Else
rstEntidades.MoveFirst
MostrarRegisto
LibertarCampos
End If
End If
End If

Exit_cmdPESQUISA_Click:
Exit Sub

Err_cmdPESQUISA_Click:
MsgBox Err.Description
Resume Exit_cmdPESQUISA_Click

End Sub
TONARE25 21/03/2005 20:00:55
#74170
O exemplo do João Matheus é bem legal..
O que vc tem que fazer é um loop até achar o que necessita. Loop no primeiro campo, se achou sai fora, se nao pesquisa no outro campo, e assim vai...
USUARIO.EXCLUIDOS 21/03/2005 20:56:46
#74178
Obrigado pela atenção mas, atentem na minha condição de (Eternamente) Novato:

[ent_num], entnome serão o nome dos campos? Porquê entre parentsis rectos?
rstEntidades. Será o equivalente ao meu Adodc1?

Para usar este tipo de código terei que mudar para .... Ado ou Dao, (ou lá como a coisa se chama) deixar o adodc e passar ao "cnn as New Connection"?

Sempre dá para testar, vou continuar a tentar.

O TONARE25, alertou-me para finalizar os tópicos. Não percebi! Será para assinar? Se é então lá vai.
Armando Baía

USUARIO.EXCLUIDOS 22/03/2005 09:40:26
#74213
Este código é ADO mesmo, só que usado numa aplicação access mesmo.
Os parentesis rectos são mesmo para indicar ao access que aqueles dados são efectivamente campos do formulário.
Tópico encerrado , respostas não são mais permitidas
Voltar