Skip to main content
se añadieron 48 caracteres en el cuerpo
Origen Enlace
Alfabravo
  • 9.9k
  • 5
  • 24
  • 32

Validar Cómo puedo validar correctamente un argumento?

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

Validar argumento

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

Variable global strNivel tipo integer

En el formulario Login paso el IdNivel del nivel de usuario con in Dlookup. strNivel = DLookup("Nivel", "Usuarios", "IdUsuario ='" & Me.txtUsuario.Value & "'")

Paso el parametro al formulario principal 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

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

Alguna sugerencia cual puede ser el error?

DS

Cómo puedo validar correctamente un argumento?

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

Variable global strNivel tipo integer

En el formulario Login paso el IdNivel del nivel de usuario con

in Dlookup.
strNivel = DLookup("Nivel", "Usuarios", "IdUsuario ='" & Me.txtUsuario.Value & "'")

Paso el parametro al formulario principal

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

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

Alguna sugerencia cual puede ser el error?

Origen Enlace
JDanielSolisV
  • 673
  • 1
  • 8
  • 26

Validar argumento

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

Variable global strNivel tipo integer

En el formulario Login paso el IdNivel del nivel de usuario con in Dlookup. strNivel = DLookup("Nivel", "Usuarios", "IdUsuario ='" & Me.txtUsuario.Value & "'")

Paso el parametro al formulario principal 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

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

Alguna sugerencia cual puede ser el error?

DS