desabilitar
Publicado por Daniel (23 intervenciones) el 28/02/2004 02:03:35
Tengo en mi pantalla principal una barra de menu, con Solicitud, Reembolso, Reportes, Mantenimiento y Salr, yo quiero desabilitar el menu de mantenimiento para que no todas las personas que ingresen al sistema no tengan acceso, sino dependiendo de la clave que utilizó para entrar, la conexion de la pantalla de ingreso de login la tengo hecha, lo unico que necesito saber es como hacer para desabilitar ese menu en especifico.
por ejemplo este es mi codigo
Adodc1.RecordSource = "select * from Usuarios where Login_User='" & Me.txtlogin.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset("Pass_User") = txtpass.Text Then
If Adodc1.Recordset("Login_User") = "Admin" Then
Adodc1.Recordset("Acces_User") = False
Adodc1.Recordset.Update
End If
MsgBox "Bienvenido al Sistema Automatizado para el Control y Seguimiento de Reembolsos de Siniestros y Cartas Avales", vbInformation, "Mensaje de Bienvenida"
menu.Show
Unload Me
Else
MsgBox "Credenciales inválidas", vbCritical, "Mensaje de Seguridad"
txtlogin.Text = ""
txtpass.Text = ""
Me.txtlogin.SetFocus
Exit Sub
End If
Else
MsgBox "Credenciales inválidas", vbCritical, "Mensaje de Seguridad"
txtlogin.Text = ""
txtpass.Text = ""
Me.txtlogin.SetFocus
Exit Sub
End If
por ejemplo este es mi codigo
Adodc1.RecordSource = "select * from Usuarios where Login_User='" & Me.txtlogin.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset("Pass_User") = txtpass.Text Then
If Adodc1.Recordset("Login_User") = "Admin" Then
Adodc1.Recordset("Acces_User") = False
Adodc1.Recordset.Update
End If
MsgBox "Bienvenido al Sistema Automatizado para el Control y Seguimiento de Reembolsos de Siniestros y Cartas Avales", vbInformation, "Mensaje de Bienvenida"
menu.Show
Unload Me
Else
MsgBox "Credenciales inválidas", vbCritical, "Mensaje de Seguridad"
txtlogin.Text = ""
txtpass.Text = ""
Me.txtlogin.SetFocus
Exit Sub
End If
Else
MsgBox "Credenciales inválidas", vbCritical, "Mensaje de Seguridad"
txtlogin.Text = ""
txtpass.Text = ""
Me.txtlogin.SetFocus
Exit Sub
End If
Valora esta pregunta


0