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]Abrir o Registro em outra Form ao clicar no Form Pesquisa

    Compartilhe

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/08/2010

    [Resolvido]Abrir o Registro em outra Form ao clicar no Form Pesquisa

    Mensagem  BITSILVA em 21/10/2018, 16:25

    Amigos(as) do Fórum,
    Criei um Form "FDocentePesquisa" que está funcionando normalmente.
    Dando 2 Cliques na pesquisa selecionada, gostaria que abrisse com o registro no Form onde foi cadastrado!

    Tentei utilizando o seguinte código:

    Private Sub ltPesquisaDocente_DblClick(Cancel As Integer)
       On Error GoTo Err_ltPesquisaDocente_Click

       Dim stDocName As String
       Dim stLinkCriteria As String

       stDocName = "FDocente"
       
       stLinkCriteria = "[FDocente]=" & "'" & Me![Docente] & "'"
       DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_ltPesquisaDocente_Click:
       Exit Sub

    Err_ltPesquisaDocente_Click:
       MsgBox Err.Description
       Resume Exit_ltPesquisaDocente_Click
    End Sub
    Anexos
    SGA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (175 Kb) Baixado 6 vez(es)
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 161
    Registrado : 22/11/2016

    Re: [Resolvido]Abrir o Registro em outra Form ao clicar no Form Pesquisa

    Mensagem  IvanJr. em 21/10/2018, 20:26

    Estude o que deve ser feito. Sucesso.

    Troque
    Código:
    stLinkCriteria = "[FDocente]=" & "'" & Me![Docente] & "'"
    por
    Código:
    stLinkCriteria = "[IDDocente]=" & Me!ltPesquisaDocente

    e no formulário FDocente, no evento ao abrir
    Troque
    Código:
    DoCmd.GoToRecord , , acNewRec
    por
    Código:
    If Not Me.FilterOn Then DoCmd.GoToRecord , , acNewRec

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 30/08/2010

    Abrir o Registro em outra Form ao clicar no Form Pesquisa

    Mensagem  BITSILVA em 24/10/2018, 02:50

    Muito obrigado deu certo!

      Data/hora atual: 16/11/2018, 10:15