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
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