Me pasa algo curioso en mi bd. Y es que revisto todo el codigo VBA y no me aparece ningún punto de interrupción. Hasta aqui correcto.
Cuando estoy usando la db mediante los formularios, cuando estoy editando uno en concreto y le doy a guardar me salta a un punto de interrupción, pero lo curioso es que no sale marcado como rojo.
Este es el codigo donde salta
Código:
Y la funcion Form_BeforeUpdate tiene el siguiente codigoPublic Sub cmdGuardar_Click() Call Me.Form_BeforeUpdate(1) End Sub
Código:
Public Sub Form_BeforeUpdate(Cancel As Integer) Dim Respuesta As Integer If Me.Dirty Then Respuesta = MsgBox("El registro ha sido modificado" & vbCrLf & vbCrLf & _ "¿Deseas guardar los cambios?", vbQuestion + vbYesNo, "DATOS MODIFICADOS") If Respuesta = vbNo Then Me.Undo 'No relizo los cambios Else 'Realizo los cambios Call Me.saveForm Me.Undo End If End If DoCmd.Close , , acSaveNo End Sub
Cuando le doy a continuar, me salta una ventana que el registro ha cambiado Deseas guardar los cambio?, Le digo que si y se me cierra la BD pero no el Access.
Sabéis que me puede pasar?
Gracias!!!