[Resolvido]Botão de procura no Formulário e salta para o registo se existir

Boas

Comprimentos a Todos

Alguém me poderia explicar como fazer para:

Ao Clicar no Botão "Procura"(Que esta com bola Vermelha) Fazer o seguinte

Abre uma caixa em vinda do código VB tipo as caixas das Msgbox,
depois coloco o valor pretendido, e dou um OK.

Se o valor que tiver colocado nao existir emite Msgbox"Valor não encontrado"
Mas se encontrar o valor colocado abre/mostra no formulário o registo.




Agradeço a colaboração

Comprimentos a todos. Aguardando....

Você quer abrir um outro formulário filtrado ou exibir no mesmo formulário? Para o primeiro caso, seria algo assim:

Código:

Dim NCod As Integer

NCod = InputBox("Digite o código a ser pesquisado", "Código")

If IsNull(DLookup("Código", "Tabela", "Código=" & NCod) Then
    MsgBox "Código inexistente", vbCritical, "Atenção"
Else
    DoCmd.OpenForm "NomeDoFormulário", , , "Código=" & NCod
End If

Para o caso se filtrar no mesmo formulário, mude a linha de abrir o formulário para:

Código:

    Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Código=" & NCod & ""

Boas

Desde já agradeço a sua disponibilidade.

A ideia e ele procura e mostra no mesmo formulário" tipo uma pesquisa para encontrar algum registo que tenha este dado especifico.

Vou testar o código já digo algo entretanto.


Comprimentos

Boas

Ao colocar o Código tem uma linha que fica vermelha

--------------------------------------------------------------------------
Private Sub btLocalizarNumero_Click()
Dim NCod As Integer

NCod = InputBox("Digite o código a ser pesquisado", "Código")

If IsNull(DLookup("Código", "tblClientes", "Código=" & NCod) Then
MsgBox "Código inexistente", vbCritical, "Atenção"
Else
Me.RecordSource = "SELECT * FROM tblClientes WHERE Código=" & NCod & ""
End If

End Sub

--------------------------------------------------------------------------
e da erro ao fazer click no botão -> symtax erro

Aguardando....

Dá uma analisada na linha, caractere por caractere. Falta alguma coisa nela. Eu sei que conseguirá encontrar

l0o0o0o00ol

Estes são daqueles que uma vez tive 1hora a olhar para um erro que era um "." (ponto) a mais na linha de código.

ll0o0ol aqui e falta de uma ")"

Ficou assim:
Private Sub btLocalizarNumero_Click()
Dim NCod As Integer

NCod = InputBox("Digite o código a ser pesquisado", "id_Cliente")

If IsNull(DLookup("id_Cliente", "tblClientes", "id_Cliente=" & NCod)) Then
MsgBox "Código inexistente", vbCritical, "Atenção"
Else
Me.RecordSource = "SELECT * FROM tblClientes WHERE id_Cliente=" & NCod & ""
End If
End Sub


Deu correcto.

Inteiramente grato pela sua ajuda. Comprimentos e Sucesso no seu trabalho!

Boas

Peço desculpa mas tem como após estar no registo Seleccionados anula o filtro ?? para poder utilizar a comobox visilvel na imagem ou outro filtro igual a este sem que ele fique só nesse registo ??

Aguardo ...

Comprimentos

Me funcionou a busca, so que nao encontrei como eu queria. Gostaria que o dado nao existeisse na base de dados
e dar uma mensagem a dizer "Nome nao registado. Deseja registar?" Sim/Nao. Se digo sim que me abra o formulario para registar
ou registar no mesmo formulario e o cursor deve ir no priemro campo do formulario.