13/09/2005, 08:24
|
| Usuario baneado! | | Fecha de Ingreso: julio-2005
Mensajes: 198
Antigüedad: 19 años, 9 meses Puntos: 0 | |
Cita:
Iniciado por aldo1982 es un poco de lógica no? bue ejemplo
en la tabla usuarios compuesta por:
nusu,passw,ingresodatos,consultadatos
do while not rs.EOF
if txtusu = rs!usu and txtpassw = rs!passw then
msgbox "el usuario: " txtusu & "se loguó con exito"
'para ke el usuario si tiene el permiso peuda ver el boton del form2 de ingreso de datos Select rs!ingresodatos
case = "S"
form2.botoningreso.enable = true
case = "N"
form2.botoningreso.enable = false
end select
'para ke el usuario pueda ver o no ver el boton del form2 el botonconsulta
Select rs!consultadatos case = "S"
form2.botonconsulta.enable = true
case = "N"
form2.botonconsulta.enable = false
end select
'Si el usuario coincide con la contraseña se carga el 2do formulario
form2.show
else
msgbox "Error en datos de usuarios",0,"error"
end if
loop
endsub
'bue este codigo lo armé recien, le faltan muchas cosas, pero lo hice como para ke te guiés, hace la coneccion a tu base de datos y lo demás.
salu2 losiento pero ese codigo no me sirvio no tienes otro??????????? |