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


2 participantes

    [Resolvido]Atualizar subformulário

    avatar
    Zaccariotto
    Intermediário
    Intermediário


    Respeito às regras : 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 2/6/2020, 21: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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 2/6/2020, 21:58

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

    Call AtualizaForm(Me) 'não resolveu

    por:

    Me!frm_ContasAPagarSub.Form.Requery


    .................................................................................
    [Resolvido]Atualizar subformulário Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Atualizar subformulário Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Atualizar subformulário Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Atualizar subformulário Marcel11
    avatar
    Zaccariotto
    Intermediário
    Intermediário


    Respeito às regras : 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 2/6/2020, 22: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 : 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 2/6/2020, 22: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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 2/6/2020, 22:39

    Grato pelo retorno! O Fórum agradece.


    .................................................................................
    [Resolvido]Atualizar subformulário Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Atualizar subformulário Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Atualizar subformulário Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Atualizar subformulário Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 2/6/2020, 23:49

    O mesmo procedimento.


    .................................................................................
    [Resolvido]Atualizar subformulário Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Atualizar subformulário Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Atualizar subformulário Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Atualizar subformulário Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:15