DVDaDVD±R  

Retroceder   DVDaDVD±R > General > PC Software

PC Software Todas las preguntas y respuestas sobre el software para PC en general que NO sean para grabación de DVDs. Para dudas sobre cómo grabar DVDs, Grabación DVDR


Respuesta
 
Herramientas
Antiguo 03-Jul-2017, 19:49   #1
Sukhoi
Recién Llegado!
 
Fecha de Ingreso: January-2003
Ubicación: España
Mensajes: 214
Sukhoi está en el buen camino
Error en base de datos Access

Muy buenas,

Tengo una pequeña base de datos Access de creación propia la cual funciona bastante bien, solo que me da un error en un sitio y no me explico el porqué...

La base en sí es muy sencillita, he creado unos usuarios con permisos de administrador y otros solo como usuarios.

Los usuarios con permisos de administrador tienen acceso total a la base de datos y los usuarios solo a las consultas.

Bien, resulta que si un usuario entra a la base de datos ya le sale la consulta, si pone los datos que le pide, le sale lo que ha consultado. El problema está en que si en vez de meter los datos que le pide para hacer la consulta pulsa la tecla Cancelar. Entonces me sale el error '2001' en tiempo de ejecución. Le doy a Depurar y me resalta en amarillo esta frase:

DoCmd.OpenQuery "Busqueda por nombre"

Aquí os dejo el código entero para que veáis como esta.


Private Sub Comando1_Click()
Dim UserLevel As Integer

If IsNull(Me.txtUsuario) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtPass) Then
MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requqerida"
Me.txtPass.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _
"' And Pass = '" & Me.txtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Nivel_Seguridad", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")

If UserLevel = 1 Then
DoCmd.Close
MsgBox "Bienvenido!!!", , "Administrador"
DoCmd.OpenForm "Principal"
Else
DoCmd.Close
DoCmd.OpenQuery "Busqueda por nombre"
End If
End If
End If
End Sub

Porque da ese fallo? El resto de la base de datos funciona bien, no me da ningún error. Es solo esta cosita que no se porque lo hace.

Un saludo a todos
Sukhoi no ha iniciado sesión   Responder Citando
Antiguo 03-Jul-2017, 20:35   #2
adv_h67
holaaaa
 
Avatar de adv_h67
 
Fecha de Ingreso: April-2002
Ubicación: Madrid, España
Mensajes: 17.155
adv_h67 llegará a ser famoso muy pronto
Prueba a poner justo después del primer Sub()

On Error Resume Next


y justo antes del End Sub:

On Error Goto 0
__________________
En un mundo con casi no hay ni día ni noche
LADRONES de la SGAE. Los moderadores no aceptamos consultas técnicas por privado, preguntad al foro que para eso está. Busca cracks e información privilegiada, y usa Firefox, leñe
adv_h67 no ha iniciado sesión   Responder Citando
Respuesta

Herramientas

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado

Ir al Foro


La franja horaria es GMT +1. Ahora son las 03:18.


Desarrollado por: vBulletin®
Derechos de Autor ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducido por mcloud de vBhispano.com

vBulletin, Copyright ©2000 - 2003, Jelsoft Enterprises Limited