Access se congela o queda pegado al eliminar con código condicionado

Bueno la cuestión es que el codigo funciona perfectamente en archivo accdb pero no siendo así cuando lo guardo como archivo accde.

Bueno el código esta encargado de eliminar registros de tablas siempre y cuando cumpla el criterio de que en la tabla usuarios este seleccionado el campo eliminar tipo si/no, este codigo esta incrustado e el formulario correspondiente por ejemplo salida de combustible. Recalco que en el archivo base tipo accdb funciona perfectamente pero al convertirlo en accde hace que access se quede pegado.

Cambien diré que parte del código es una macro de eliminar registros convertida a código vba.

Este es el código

Private Sub Comando135_Click()
UserLevel = (IsNull(DLookup("[Eliminar]", "Usuarios", "[Eliminar] = 0 " _
& " AND [login] = '" & Form_Entorno_Principal.lbl_UsuarioActivo.Caption & "'")))
If UserLevel = -1 Then
With CodeContextObject
On Error Resume Next
DoCmd.GoToControl Screen.PreviousControl.NAME
Err.Clear
If (Not .Form.NewRecord) Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If (.Form.NewRecord And Not .Form.Dirty) Then
Beep
End If
If (.Form.NewRecord And .Form.Dirty) Then
DoCmd.RunCommand acCmdUndo
End If
If (.MacroError <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
End If
End With
Else
MsgBox "No estás autorizado para eliminar registros del sistema", vbCritical, "Acceso denegado"
End If
End Sub

Añade tu respuesta

Haz clic para o