Validar usuarios
Publicado por Marion (40 intervenciones) el 27/10/2009 20:51:31
Cordial saludo,
Tengo un inconveniente paar validar los usuarios y contraseñas en un formulario, mediante el boton validar.
Me consegui un codigo y lo ajuste ami problema pero sigue saliendo error.
La tabla que contienen los usuarios y contraseñas se llama usuarios.
mediante el boton validar ejecuto al accion de validar el usuario y contraseña
Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim db As Database
Dim fre As DAO.Recordset
Dim cant As Integer
Dim sql As String
Set db = CurrentDb
sql = "select count(*) from datos where usuarios = " & Me.usuario & " and contraseña = '" & Me.contraseña & "'"
Set fre = db.OpenRecordset(sql, dbOpenSnapshot)
With fre
cant = fre(0)
.Close
End With
If cant > 0 Then
stDocName = "colaboradores"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox usuario & " NO ESTA AUTORIZADO ENTRAR...SORRY..."
End If
End Sub
Me sale el sigueinte error: no se encontro el metodo o dato miembro.
Agradezco la informacion que em puedan brindar
Tengo un inconveniente paar validar los usuarios y contraseñas en un formulario, mediante el boton validar.
Me consegui un codigo y lo ajuste ami problema pero sigue saliendo error.
La tabla que contienen los usuarios y contraseñas se llama usuarios.
mediante el boton validar ejecuto al accion de validar el usuario y contraseña
Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim db As Database
Dim fre As DAO.Recordset
Dim cant As Integer
Dim sql As String
Set db = CurrentDb
sql = "select count(*) from datos where usuarios = " & Me.usuario & " and contraseña = '" & Me.contraseña & "'"
Set fre = db.OpenRecordset(sql, dbOpenSnapshot)
With fre
cant = fre(0)
.Close
End With
If cant > 0 Then
stDocName = "colaboradores"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox usuario & " NO ESTA AUTORIZADO ENTRAR...SORRY..."
End If
End Sub
Me sale el sigueinte error: no se encontro el metodo o dato miembro.
Agradezco la informacion que em puedan brindar
Valora esta pregunta
0