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]Atualizar subformulário

    avatar
    Zaccariotto
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 22/03/2019

    [Resolvido]Atualizar subformulário Empty [Resolvido]Atualizar subformulário

    Mensagem  Zaccariotto em Ter 2 Jun 2020 - 20:10

    Mais uma dúvida que não encontrei resposta ainda....!

    não consigo fazer que meu subformulário atualize as informações apos clicar no botão salvar....
    tentei todas estas opções e não resolveu.
    mas coloquei um botão "Atualiza Tudo" via macro do access e quando acionada o subformulário atualiza, mas como fazer isso direto após clicar em salvar?

    meu códio está assim...

    Public Sub AtualizarForm(ByVal frm As Form)
    Set frm = frm_ContasAPagarSub
    frm.Requery
    End Sub
    'Para chamar o sub
    'Call AtualizarForm(Me) 'não resolveu


    Private Sub btnNovo_Click()
    On Error Resume Next
    DoCmd.RunCommand acCmdRecordsGoToNew
    Me.DataMovimento.SetFocus
    End Sub

    Private Sub btnSalvar_Click()
    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    MsgBox "Registro salvo com Sucesso!", vbExclamation, "AVISO"
    Me.DataMovimento.SetFocus
    Call AtualizaForm(Me) 'não resolveu
    End Sub

    Private Sub Form_Current()
    'Forms!frm_ContasAPagarGeralSub.Requery
    End Sub

    Private Sub Form_Load()
    On Error Resume Next
    Call fncMontaEventos(Me)
    DoCmd.GoToRecord , , acNewRec
    Me.DataMovimento.SetFocus
    End Sub

    Private Sub Form_Activate()
    Me.Refresh 'não resolveu
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3207
    Registrado : 21/04/2011

    [Resolvido]Atualizar subformulário Empty Re: [Resolvido]Atualizar subformulário

    Mensagem  Marcelo David em Ter 2 Jun 2020 - 20:58

    Boa tarde,
    No botão btnSalvar, evento clique, substitua a linha:

    Call AtualizaForm(Me) 'não resolveu

    por:

    Me!frm_ContasAPagarSub.Form.Requery


    .................................................................................
    Marcelo David | [Resolvido]Atualizar subformulário LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    Zaccariotto
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 22/03/2019

    [Resolvido]Atualizar subformulário Empty atualizar subformulário

    Mensagem  Zaccariotto em Ter 2 Jun 2020 - 21:20

    Show

    valeu Amigo, muito obrigado!

    já marquei como resolvido, mas uma surgiu uma dúvida.

    se o subformulário for desacoplado do form principal, como seria ?
    avatar
    Zaccariotto
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 22/03/2019

    [Resolvido]Atualizar subformulário Empty Re: [Resolvido]Atualizar subformulário

    Mensagem  Zaccariotto em Ter 2 Jun 2020 - 21:27

    já marquei como resolvido, mas uma surgiu uma dúvida.

    se o subformulário for desacoplado do form principal, como seria ?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3207
    Registrado : 21/04/2011

    [Resolvido]Atualizar subformulário Empty Re: [Resolvido]Atualizar subformulário

    Mensagem  Marcelo David em Ter 2 Jun 2020 - 21:39

    Grato pelo retorno! O Fórum agradece.


    .................................................................................
    Marcelo David | [Resolvido]Atualizar subformulário LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3207
    Registrado : 21/04/2011

    [Resolvido]Atualizar subformulário Empty Re: [Resolvido]Atualizar subformulário

    Mensagem  Marcelo David em Ter 2 Jun 2020 - 22:49

    O mesmo procedimento.


    .................................................................................
    Marcelo David | [Resolvido]Atualizar subformulário LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: Ter 1 Dez 2020 - 11:55