Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/08/2009, 04:11
Laufwerk
 
Fecha de Ingreso: marzo-2007
Mensajes: 538
Antigüedad: 17 años, 10 meses
Puntos: 0
[R] ACCESS - Punto de interrupción

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

Última edición por Laufwerk; 27/08/2009 a las 03:19