RE:Programar botón (Para Jefferson)
Hola Marco
Primero que nada Access de por si guarda los registros del formulario al cerrar la ventana y al activar o moverse entre registros. si quieres un efecto como en VB o FoxPro, puedes usar este codigo
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
Si deseas ver mejor su funcion, en este enlace http://sites.google.com/site/jjjt1973/ejemplos-access Descarga el Ejemplo Nº 09) Guardar Datos Si o No......????
Ahora bien para cerrar un formulario
docmd.maximize acform, "nombre_del_formulario", acsaveyes
Para Abrir otro formulario ahi se nos complica un poco la cosa..?? Dependiendo de lo que desees hacer....
1) Solamente Abrir
docmd.openform "nombre_del_formulario"
Si deseas ver las diferentes formas en que puedes abrir el formularioB escribe una coma "," despues de colocar el nombre y automaticamente VBA te guiara con los codigos ya preestablecidos.
2) Abrir Formulario A vinculado los datos al Formulario B
Ya es otra historia ........ Practica primero como te he indicado y deja que tus neuronas fluyan a entender un poco el mundo VBA
Animate es facil, seguro y despues le cojes el gusto.... Todos nosotros en su momento le tuvimos miedo al monstruo verde que se llama VBA.
Desde Venezuela
Jefferson