Ver Mensaje Individual
  #14 (permalink)  
Antiguo 03/02/2009, 09:12
Avatar de Taribo007
Taribo007
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 16 años, 9 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