[Resolvido]Ajuda em criar campo de pesquisa por Código primario

Tenho um form que pretendo criar um campo de busca

que procure por Código primario que ao colocar o código primario os dados sejam expostos no formulario.




///////////////////////////////////////
Desde ja agradeço quem poder me ajudar.

Dê uma procurada antes de abrir tópicos.

Veja na Sala de Repositorio de Exemplos.

Consegui só alterei os campos de pesquisa e tirem o msg box muito obrigado,,,,

Com seguinte código


Private Sub Comando369_Click()
'By JPaulo ® Maximo Access
Dim rs As Object
Dim resposta As String
'Coloquei o InputBox antes do Do... pra repetir a mesma pesquisa
resposta = InputBox("Digite o código do cliente", "Localizar Registro")
If resposta <> "" Then
' Mesmo o codigo encontrar o 1º registro.. eu tive que colocar essa linha de baixo, porque ele nao voltava
DoCmd.GoToRecord , , acFirst
Do
Set rs = Me.Recordset.Clone
rs.FindFirst "[Código] LIKE " & Código.Value 'acha o primeiro registro do campo chave primária para poder fazer o loop
rs.FindNext "Código LIKE '*" & resposta & "*'" 'procura próximo informado na inputbox dentro do loop
'se não existir ou chegar ao ultimo, dá msg
If rs.NoMatch = True Then MsgBox "Código não existente,", vbCritical, "Pesquisa": Exit Sub
'se encontrar devolve
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
'pergunta se quer nova pesquisa
If MsgBox("Cliente localizado:" & UCase(resposta) & "", vbCritical, "Localizar Registro") = vbYes Then
Else
Exit Sub
End If
End If
Loop
End If
End Sub

Não esquecer de colocar o [Resolvido]