MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Botão pesquisa paciente

    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    Registrado : 12/06/2017

    Botão pesquisa paciente Empty Botão pesquisa paciente

    Mensagem  neves1 17/6/2020, 13:01

    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
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 705
    Registrado : 23/03/2010

    Botão pesquisa paciente Empty Re: Botão pesquisa paciente

    Mensagem  Finformática 17/6/2020, 15:02

    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
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 377
    Registrado : 28/10/2010

    Botão pesquisa paciente Empty Re: Botão pesquisa paciente

    Mensagem  zcarloslopes 17/6/2020, 15:08

    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.

    juliobertoso gosta desta mensagem


    Conteúdo patrocinado

    Botão pesquisa paciente Empty Re: Botão pesquisa paciente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 09:28