MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

    Botão pesquisa paciente Empty Botão pesquisa paciente

    Mensagem  neves1 em 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 100%

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

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

    Mensagem  Finformática em 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 100%

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

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

    Mensagem  zcarloslopes em 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


      Data/hora atual: 21/9/2020, 13:52