Bueno no necesito algo tan complicado por ahora, pero estaria bueno ver el ejemplo.
Hasta ahora hize esto funciona pero me parece que le doy muchas vueltas al asunto.
Tengo declarada una variable en un modulo bas llamada User_system para guardar el nombre de usuario de la tabla usuario, esta bien plantiado esto o como seria una forma mas sencilla de hacerlo.
Código:
'Este el form del login
'===============
Dim rsU As Recordset
Private Sub cmdAceptar_Click()
'cargo la variable con el nombre del usuario
User_system = txtUser.Text
Set rsU = New Recordset
rsU.Open "SELECT * FROM usuario WHERE NomUser='" & Trim(txtUser.Text) & "'", cn, adOpenStatic, adLockOptimistic
If rsU.EOF = False And rsU.BOF = False Then
'Si encontro algo, compruebo si la contraseña es igual a la del txtClave
If rsU("clave") = txtClave Then
'MsgBox "Login correcto", vbInformation, "Información"
MDIForm1.Show
Unload Me
Else
MsgBox "La contraseña no es correcta, verifique los datos", vbInformation, "Información"
End If
Else
MsgBox "El usuario no existe, verifique los datos", vbInformation, "Información"
End If
End Sub
Una vez q ingreso al sistema tengo en la variable "User_system" el nombre del usuario, en mi formulario en el boton de mantenimiento tengo este codigo
Código:
Private Sub cmdEliminar_Click()
'Reviso si el usuario de la variable "User_system" tiene activo el permiso
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & User_system & "'")
Dim Ns As Integer
If rs(0) = FALSO Then Ns = 0 Else Ns = 1
If Ns = 1 Then 'Si el boolean esta activo
MsgBox "Consulta SQL realizada satisfactoriamente"
'Ejecuto el codigo y/o funciones ......
Else
MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
End Sub
Me gustaria crear una funcion o algo por estilo ya que estaria redundando codigo en cada boton con el que tenga que realizar una consulta a la base de datos