MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 75
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    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 : 75
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

      Data/hora atual: 24/4/2019, 07:34