Guardar Datos Si o No......????

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