tabla usaurio/contraseña, agregar administrador
Publicado por Grace (14 intervenciones) el 25/08/2005 16:19:27
Hola!!!
Tengo una base de datos y tengo creada una tabla para los usuarios con sus debidas contraseñas y esta es mi programación:
Private Sub CmdValida_Click()
Dim Rst As DAO.Recordset
Dim Sql As String
On Error GoTo Err_CmdValida_Click
If IsNull(Me.TxtUsuario) Or IsNull(Me.TxtClave) Then
MsgBox "Por Favor Introduzca Usuario Y Clave", vbCritical, "Aviso"
Exit Sub
End If
Sql = "SELECT * FROM CONTRASEÑA where idusuario='" & Me.TxtUsuario & "' and contraseña='" & Me.TxtClave & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
MsgBox " Clave incorrecta", vbCritical, "Aviso"
Exit Sub
Else
MsgBox "Ha ingresado al sistema!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_PRINCIPAL" 'abres un form (nombre del formulario inmediato a abrir)
End If
Rst.Close
Set Rst = Nothing
Exit_CmdValida_Click:
Exit Sub
Err_CmdValida_Click:
MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_CmdValida_Click
End Sub
Entonces cómo hago para que cuando ingrese el administrador con su clave ingrese a otro formulario? Esto es lo que tengo:
If TxtClave = "control" Then
MsgBox "Bienvenido Administrador!!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_INGRESAR" 'abres un form (nombre del formulario inmediato a abrir)
End If
Pero en qué lugar debo ponerlo? o tengo que hacerlo de otra manera?? porque asi no me sale....
Gracias por la ayuda!
Tengo una base de datos y tengo creada una tabla para los usuarios con sus debidas contraseñas y esta es mi programación:
Private Sub CmdValida_Click()
Dim Rst As DAO.Recordset
Dim Sql As String
On Error GoTo Err_CmdValida_Click
If IsNull(Me.TxtUsuario) Or IsNull(Me.TxtClave) Then
MsgBox "Por Favor Introduzca Usuario Y Clave", vbCritical, "Aviso"
Exit Sub
End If
Sql = "SELECT * FROM CONTRASEÑA where idusuario='" & Me.TxtUsuario & "' and contraseña='" & Me.TxtClave & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
MsgBox " Clave incorrecta", vbCritical, "Aviso"
Exit Sub
Else
MsgBox "Ha ingresado al sistema!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_PRINCIPAL" 'abres un form (nombre del formulario inmediato a abrir)
End If
Rst.Close
Set Rst = Nothing
Exit_CmdValida_Click:
Exit Sub
Err_CmdValida_Click:
MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_CmdValida_Click
End Sub
Entonces cómo hago para que cuando ingrese el administrador con su clave ingrese a otro formulario? Esto es lo que tengo:
If TxtClave = "control" Then
MsgBox "Bienvenido Administrador!!!", vbInformation, "Información"
DoCmd.Close acForm, "ACCESO" ' cierras tu form (nombre del formulario a cerrar)
DoCmd.OpenForm "MENU_INGRESAR" 'abres un form (nombre del formulario inmediato a abrir)
End If
Pero en qué lugar debo ponerlo? o tengo que hacerlo de otra manera?? porque asi no me sale....
Gracias por la ayuda!
Valora esta pregunta
0