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


    [Resolvido]On.click acionar botao em relacionamento de outro form

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]On.click acionar botao em relacionamento de outro form Empty [Resolvido]On.click acionar botao em relacionamento de outro form

    Mensagem  maguim 19/9/2018, 21:20

    opa amigos tudo bem?

    montei uma logica atraves do referenciamento entre forms.

    porem estou com dificuldade.

    queria que ao clickar no forms relacionado de outro form faça a função.

    segue abaixo para terem um ideia.

    alguem poderia me dar um luz?


    Código:
    If Forms!formhistorico!sel_fich_cad = True Then
    Forms!formhistorico!sel_fich_cad.Locked = True
    If Me.OnClick Then
    DoCmd.OpenForm "frm_vigencia"
    ElseIf Forms!formhistorico!sel_fich_cad = False Then
    Forms!formhistorico!sel_fich_cad.Locked = False
    If MsgBox("Tem Certeza o Documento do Prestador", vbYesNo, "Exit") = vbYes Then

    Dim rs As DAO.Recordset
            Set rs = CurrentDb.OpenRecordset("select id_geral, Ficha_cadastral_preenchida from DOCUMENTOS where id_geral = " & Forms!formhistorico!CODPASTA & "")
                rs.Edit
                
                    rs("Ficha_cadastral_preenchida") = Forms!formhistorico!sel_fich_cad
                
                rs.Update
                rs.Close
            
                MsgBox " DOC Registrado"
                
    Else
    Forms!formhistorico!sel_fich_cad = rs!sel_fich_cad
                
    End If
    End If
    End If

    abraços


    Última edição por maguim em 21/9/2018, 20:16, editado 2 vez(es)
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]On.click acionar botao em relacionamento de outro form Empty Re: [Resolvido]On.click acionar botao em relacionamento de outro form

    Mensagem  maguim 20/9/2018, 18:59

    alguem pra dar uma luz?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]On.click acionar botao em relacionamento de outro form Empty Re: [Resolvido]On.click acionar botao em relacionamento de outro form

    Mensagem  maguim 21/9/2018, 20:15

    como nao a solução coloquei outra forma paliativa...

    mas segue a solução

    Código:
    Call Forms.NomeDoForm.NomeDoBotão_Click


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

    Conteúdo patrocinado


    [Resolvido]On.click acionar botao em relacionamento de outro form Empty Re: [Resolvido]On.click acionar botao em relacionamento de outro form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:01