Opcion que te permite Guardar Datos Si o No en las tablas de Destino
Option Compare Database
Dim rs As Object
Dim Modificado As Boolean
'El unico cambio que vas a ser es el del nombre de la tabla (u origen del Formulario)
Private Const LaTabla As String = "Coloca el nombre de la tabla" '<<<======= Cambiar
'Si Deseas copiar este codigo en otro formulario recuerda cambiar el Nombre de la _
Tabla de orgen del Form
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Modificado Then
If MsgBox("¿Desea Guardar estos Registros...?", vbInformation + vbYesNo, "Guardar los Cambios Realizados...") = vbNo Then
Cancel = True
Modificado = Not Modificado
Me.Undo
DoCmd.GoToRecord , , acLast
End If
End If
End Sub
Private Sub Form_Dirty(Cancel As Integer)
Modificado = True
End Sub
Private Sub Form_Load()
Set rs = CurrentDb.OpenRecordset(LaTabla)
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
End Sub
Permite al Usuario elegir si desea guardar los cambios si o no, ya que Microsoft Access graba automaticamente.