04/02/2009, 04:55
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 7 meses Puntos: 18 | |
| Respuesta: Usuarios conectados al mismo tiempo contra una BD Access
Pues resulta que te lo puse rapido, y faltan un par de intrucciones:
If Nz(Me.UserName.Value, "") <> "" And Nz(Me.Password.Value, "") <> "" Then
Set rst = CurrentDb.OpenRecordset("Select username,password,Conectado,HoraConexion from USUARIOS where username='" & Me.UserName & "' AND password='" & Me.Password & "'")
If rst.RecordCount = 0 Then
MsgBox "INCORRECTO"
Else
MsgBox "Usuario y contraseña correcto"
rst.edit
rst!Conectado = True
rst!HoraConexion = Now()
rst.update
End If
rst.Close
Set rst = Nothing
End If
un saludo |