Hola amigos!
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:
Public Sub cmdGuardar_Click()
Call Me.Form_BeforeUpdate(1)
End Sub
Y la funcion Form_BeforeUpdate tiene el siguiente codigo
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!!!