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
Tags microsoft-access vba