03/02/2009, 09:12
|
| | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 3 meses Puntos: 18 | |
Respuesta: Usuarios conectados al mismo tiempo contra una BD Access Hombre, si ya quieres hacer mas cosas sobre la tabla, entonces si puedes abrir un recordset, prueba esto:
Dim rst As DAO.Recordset
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!Conectado = True
rst!HoraConexion = Now()
End If
rst.Close
Set rst = Nothing
End If
Ha tener en cuenta: He supuesto que el campo conexion es de tipo si/no (boolean)
He supuestp que el campo de la hora de conexion se llama HoraConexion, de tipo fecha hora. La funcion now() devuleve la fecha y hota del sistema. Si usas Time() devuleve solo la hora, y si utilizas date() solo la fecha, segun loq ue necesites
Un saludo |