Salvando um registro em uma tabela de um formulário, que inclui um subformulário, somente após o clique do botão

0

Sou recém-chegado ao Access, então ainda não consegui descobrir isso. Depois de pesquisar no Google, encontrei o código abaixo, mas há problemas com isso.

Eu tenho um formulário vinculado que inclui um subformulário. Eu coloquei um botão no formulário que eu quero que o usuário tenha para clicar para salvar o registro.

Este código abaixo não salva o registro quando o botão é clicado. Ele aparece uma caixa de mensagem quando eu clico no subformulário, o que é ok, mas se eu "X" fora da caixa ou clique em "ok" ainda então salva o registro.

Qualquer ajuda seria apreciada. Modificando este código ou implementando código completamente diferente.

Option Compare Database
Option Explicit
Dim tfAllowSave As Boolean

Private Sub btnSave_Click()
   tfAllowSave = True
   If Me.Dirty Then Me.Dirty = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If tfAllowSave = False Then
      Cancel = False
      MsgBox "Do you want to save the record?"
   End If
   tfAllowSave = False
End Sub  
    
por Tony Tambe 21.02.2017 / 17:47

0 respostas