Home‎ > ‎

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 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.
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descarga el Ejemplo  63 kb v. 1 25 may. 2009 10:51 Jefferson Jimenez
Comments