Problema con contraseña de un formulario logg
Hola como le va antes que nada le agradezco por su disponibilidad, tengo un problema de acceso a un formulario a través de una contraseña.
Consiste en que solamente accedo al formulario del sistema si coloco la misma contraseña para todos los usuarios.
Aquí coloco mi código para que tenga la referencia:
General
Dim record As New Recordset
Dim connection As New ADODB.connection
// conecto a la base y cargo usuarios al combo
Private Sub Iniciar_Conexion()
connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Trabajo Final Programación 4\Biblioteca.mdb;Persist Security Info=False")
Dim sql As String
sql = "Select * from usuarios"
record.Open sql, connection
While Not record.EOF
Combo1.AddItem record!Nombre
record.MoveNext
Wend
record.Close
Set record = Nothing
End Sub
// conecto al cargar el formulario
Private Sub Form_Load()
Iniciar_Conexion
End Sub
Hasta acá todo fenómeno, me carga los usuarios en combo y me conecta pero cuando coloco la contraseña y presiono clic en el comando me deja entrar con la primer contraseña para todos los usuarios:
Private Sub Command1_Click()
Static contador As Integer
record.Open "Select * from usuarios ", connection
If record.Fields(2) = Text1.Text Then
MsgBox "Bienvenido al sistema", vbInformation, "Acceso permitido"
Unload Me
Form2.Show
Else
MsgBox "Clave invalida 1", vbCritical, "Acceso denegado"
contador = contador + 1
record.Close
If contador >= 3 Then
MsgBox "Ha pasado el limite de intentos, el sistema se cerrara", vbCritical, "Acceso denegado"
Unload Me
End If
End If
End Sub
Ese es el problema que tengo ya que lo demás me ha funcionado, agradezco su disponibildad!
Consiste en que solamente accedo al formulario del sistema si coloco la misma contraseña para todos los usuarios.
Aquí coloco mi código para que tenga la referencia:
General
Dim record As New Recordset
Dim connection As New ADODB.connection
// conecto a la base y cargo usuarios al combo
Private Sub Iniciar_Conexion()
connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Trabajo Final Programación 4\Biblioteca.mdb;Persist Security Info=False")
Dim sql As String
sql = "Select * from usuarios"
record.Open sql, connection
While Not record.EOF
Combo1.AddItem record!Nombre
record.MoveNext
Wend
record.Close
Set record = Nothing
End Sub
// conecto al cargar el formulario
Private Sub Form_Load()
Iniciar_Conexion
End Sub
Hasta acá todo fenómeno, me carga los usuarios en combo y me conecta pero cuando coloco la contraseña y presiono clic en el comando me deja entrar con la primer contraseña para todos los usuarios:
Private Sub Command1_Click()
Static contador As Integer
record.Open "Select * from usuarios ", connection
If record.Fields(2) = Text1.Text Then
MsgBox "Bienvenido al sistema", vbInformation, "Acceso permitido"
Unload Me
Form2.Show
Else
MsgBox "Clave invalida 1", vbCritical, "Acceso denegado"
contador = contador + 1
record.Close
If contador >= 3 Then
MsgBox "Ha pasado el limite de intentos, el sistema se cerrara", vbCritical, "Acceso denegado"
Unload Me
End If
End If
End Sub
Ese es el problema que tengo ya que lo demás me ha funcionado, agradezco su disponibildad!
1 Respuesta
Respuesta de Roberto Alvarado
1