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


2 participantes

    [Resolvido]Busca avançada de registro

    avatar
    eristonmattos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 05/09/2018

    [Resolvido]Busca avançada de registro Empty [Resolvido]Busca avançada de registro

    Mensagem  eristonmattos Sex Abr 05, 2019 6:08 pm

    Boa tarde aos nobres,

    Depois quebrar a cabeça antes de obter ajuda aqui, quando precisei de uma
    forma de pesquisar um registro já existente usando um formulário com
    botão de pesquisa, estou de volta, agora com o problema em outro formulário
    de pesquisa...
    Ele usa uma tabela especifica, mas mesmo assim não consegui sucesso nas
    configurações que tentei.

    Já tenho o formulário de pesquisa criado, mas ao clicar no registro ele não
    retorna o outro formulário com os campos preenchidos, retorna em branco.

    Os objetos envolvidos são:
    Tbl_Atendimento2
    Frm_Atendimento2
    Frm_Localiza_Usuario2

    Eis o BD envolvido para baixar:

    www.dropbox.com/s/41qknpsrfuqt9g3/AGENDA%20CEREST%20-%202018a.accdb?dl=0

    Att,
    Eriston Mattos.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Busca avançada de registro Empty Re: [Resolvido]Busca avançada de registro

    Mensagem  Celso Roberto Sex Abr 05, 2019 7:05 pm

    Olá...

    Copie para o evento ao clicar da List_Localiza_Usuario2 do form Frm_Localiza_Usuario2

    Código:
    Private Sub List_Localiza_Usuario2_Click()
        Dim stDocName As String
        Dim stLinkCriteria As String
     
        stDocName = "Frm_Atendimento2"
        stLinkCriteria = "[Nome2]='" & Me!List_Localiza_Usuario2.Column(2) & "'"
        'DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly
        DoCmd.GoToControl "txt_Nome"
        DoCmd.Close acForm, "Frm_Localiza_Usuario2"
       
    End Sub

    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    eristonmattos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 05/09/2018

    [Resolvido]Busca avançada de registro Empty Busca avançada de registro

    Mensagem  eristonmattos Sex Abr 12, 2019 2:49 pm

    Bom dia caros,

    Agradecendo Celso Roberto pela ajuda. Resolvido.

    Somente hj tive tempo de mexer no BD.

    Att,
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Busca avançada de registro Empty Re: [Resolvido]Busca avançada de registro

    Mensagem  Celso Roberto Seg Abr 15, 2019 4:08 pm

    Olá...

    Obrigado pelo retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado


    [Resolvido]Busca avançada de registro Empty Re: [Resolvido]Busca avançada de registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex Nov 22, 2024 9:27 pm