Estoy realizando una validación de usuarios, pero tengo un problema con el Dlookup y el argumento pasado como parámetro.
Tabla Roles, con los siguientes campos y tipos de datos. IdNivel, Integer NivelUsuario, Texto Permisos, Si/No Datos, Si/No Reportes, Si/No
IdNivel, Integer
NivelUsuario, Texto
Permisos, Si/No
Datos, Si/No
Reportes, Si/No
Variable global strNivelstrNivel
tipo integerinteger
En el formulario Login paso el IdNivel del nivel de usuario con in Dlookup. strNivel = DLookup("Nivel", "Usuarios", "IdUsuario ='" & Me.txtUsuario.Value & "'")
in Dlookup.
strNivel = DLookup("Nivel", "Usuarios", "IdUsuario ='" & Me.txtUsuario.Value & "'")
Paso el parametro al formulario principal DoCmd.OpenForm "Main", , , , , , strNivel DoCmd.Close acForm, "Login"
DoCmd.OpenForm "Main", , , , , , strNivel
DoCmd.Close acForm, "Login"
Hasta aquí todo bien, el problema lo tengo al dar clic a un botón del formulario principal, trato de validar si tiene o no acceso ese formulario validando el argumento pasado como parámetro así.
If DLookup("Datos", "Roles", "strNivel=" & Me.OpenArgs & "") = True Then Msgbox "Abre Form" Else Msgbox "No tiene acceso" End If
If DLookup("Datos", "Roles", "strNivel=" & Me.OpenArgs & "") = True Then
Msgbox "Abre Form"
Else
Msgbox "No tiene acceso"
End If
Este es el codigo que me tira error, 2471 la expresion ingresada como parametro de consulta produce el error 'strNivel' Este es el codigo que me tira error, 2471 la expresion ingresada como parametro de consulta produce el error '*strNivel*'
Claro no puede faltar en el evento al abrir formulario validar si pasa o no el argumento.
Private Sub Form_Open(Cancel As Integer) If IsNull(Me.OpenArgs) Then MsgBox "Sin acceso", vbCritical, "Warning" End If End Sub
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.OpenArgs) Then
MsgBox "Sin acceso", vbCritical, "Warning"
End If
End Sub
Alguna sugerencia cual puede ser el error?
DS