Como me puede respetar el usuario con el que se ingrea
Buen día tengo una base de datos en ella tengo una tabla que tiene los campos:
Usuario "se captura el nombre del usuario"
Contraseña "se captura la contraseña"
Tipo "se captura el tipo de usuario"
Tengo un formulario1 de inicio el cual me pide el usuario y la contraseña el cual me abre el formulario 2, en este formulario 1 tengo este código:
Option Compare Database
Option Explicit
Public tipodeusuario As String
Private Sub Comando4_Click()
Dim algo As String
Dim db As Database
Dim SqLline As String
Dim Result As Object
If Usuario = " " Or Contrasena = " " Then
algo = MsgBox("Porfavor, complete todos los campos", 16, "Omision")
Else
SqLline = "select* from usuarios where Usuario = '" & Usuario & "'and Password = '" & Contrasena & "';"
Set db = CurrentDb()
Set Result = db.OpenRecordset(SqLline)
If Result.EOF And Result.BOF Then
algo = MsgBox("El nombre de usuario o contraseña son incorrectos", 16, "Discrepancia")
Else
tipodeusuario = Result.tipo
DoCmd.OpenForm "Historial de servicios"
DoCmd.OpenForm "Acceso inicial"
DoCmd.Close
End If
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End If
End Sub
En el formulario 2 tengo un cuadro de texto para que muestre el usuario actual, aquí me tendría que mostrar el usuario con el que ingrese si en cambio me muestra "Admin".
Después realice una pregunta por este medio y un ezperto me ayudo y me comento que necesitaba crear un modulo en el que declarara la variable global a la cual llamamos tipodeusuario la cual se encuentra en el código que puse anteriormente. Mi modulo queda así:
Option Compare Database
Option Explicit
Public tipodeusuario As String
tipodeusuario = tipo
En el formulario 2 tengo este código:
Option Compare Database
Option Explicit
Public tipodeusuario As String
tipodeusuario = valor
Ya con esto en el cuadro de texto en donde me salia "Admin" ahora me sale #¿Nombre? No se si la forma en la que estoy escribiendo la variable o el código este mal. Bueno espero me puedas ayudar ya que me estoy volviendo loco, te estaré agradecido infinitamente.
Jorge T.
Usuario "se captura el nombre del usuario"
Contraseña "se captura la contraseña"
Tipo "se captura el tipo de usuario"
Tengo un formulario1 de inicio el cual me pide el usuario y la contraseña el cual me abre el formulario 2, en este formulario 1 tengo este código:
Option Compare Database
Option Explicit
Public tipodeusuario As String
Private Sub Comando4_Click()
Dim algo As String
Dim db As Database
Dim SqLline As String
Dim Result As Object
If Usuario = " " Or Contrasena = " " Then
algo = MsgBox("Porfavor, complete todos los campos", 16, "Omision")
Else
SqLline = "select* from usuarios where Usuario = '" & Usuario & "'and Password = '" & Contrasena & "';"
Set db = CurrentDb()
Set Result = db.OpenRecordset(SqLline)
If Result.EOF And Result.BOF Then
algo = MsgBox("El nombre de usuario o contraseña son incorrectos", 16, "Discrepancia")
Else
tipodeusuario = Result.tipo
DoCmd.OpenForm "Historial de servicios"
DoCmd.OpenForm "Acceso inicial"
DoCmd.Close
End If
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End If
End Sub
En el formulario 2 tengo un cuadro de texto para que muestre el usuario actual, aquí me tendría que mostrar el usuario con el que ingrese si en cambio me muestra "Admin".
Después realice una pregunta por este medio y un ezperto me ayudo y me comento que necesitaba crear un modulo en el que declarara la variable global a la cual llamamos tipodeusuario la cual se encuentra en el código que puse anteriormente. Mi modulo queda así:
Option Compare Database
Option Explicit
Public tipodeusuario As String
tipodeusuario = tipo
En el formulario 2 tengo este código:
Option Compare Database
Option Explicit
Public tipodeusuario As String
tipodeusuario = valor
Ya con esto en el cuadro de texto en donde me salia "Admin" ahora me sale #¿Nombre? No se si la forma en la que estoy escribiendo la variable o el código este mal. Bueno espero me puedas ayudar ya que me estoy volviendo loco, te estaré agradecido infinitamente.
Jorge T.
3 Respuestas
Respuesta de xavi -ae soft-
1
Respuesta de manuelpacha
1
Respuesta de josecmf
1