Botão pesquisa paciente

Bom dia,

Tenho um formulário no qual eu gostaria de colocar um simples botão de pesquisa de paciente para localizar mais fácil e não ter que passando 1 a 1 no avançar para localizar paciente escolhido.

Eu já ate crie 1 botão no design, mas ele só localiza registro, eu preciso que localizasse nome do paciente, obrigado.

att.

Paulo

Caro Amigo,

No seu formulário de cadastro de Pacientes, cria caixa de combinação baseado na tabela (ou consulta) de Pacientes. Por exemplo: Combinação999.
A propriedade Origem de Linha ficaria mais ou menos: Select TbPaciente.NomePaciente From TbPaciente Order by NomePaciente;
Em Após Atualizar:
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomePaciente] = '" & Me![Combinação999] & "'"

Me.Bookmark = rs.Bookmark
Combinação999 = ""

Substitua nome de tabela, nomes de campos.

Veja se isso ajuda.

Abraços

Boa tarde neves1,

Coloque este código no seu botão:

Código:

Dim sNome As String
sNome = InputBox("Digite o Nome que Procura!", "Pesquisa por Nome!")
CampoNome.SetFocus
DoCmd.FindRecord (sNome)

Substitua CampoNome pelo nome do seu campo no formulário.

Desculpem, não fiz refresh... não reparei que já haviam respondido.. de qualquer forma fica aqui a dica.