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

    [Resolvido]Busca avançada de registro

    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  eristonmattos em 5/4/2019, 19:08

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

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

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

    Mensagem  Celso Roberto em 5/4/2019, 20:05

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

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

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

    Mensagem  eristonmattos em 12/4/2019, 15:49

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

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

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

    Mensagem  Celso Roberto em 15/4/2019, 17:08

    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.....

      Data/hora atual: 28/9/2020, 12:46