como llevar un control de cada usuario por sesion

[william_085]

gracias por sus respuestas, aqui les pongo como le hise, no es la gran cosa pero asi me funciono bien.





Dim Variable_sigo

Private Sub Form_Load()
BDATOS cnn3
sql = "Select * From teclas"
Set rstCombinado = New ADODB.Recordset
rstCombinado.Open sql, cnn, adOpenKeyset, adLockOptimistic
rstCombinado.AddNew
rstCombinado!usuario = "form_ini.text1"
rstCombinado!fecha = Date
rstCombinado!hora_entrada = Time
rstCombinado!formulario = Me.Caption
rstCombinado.Update
Variable_sigo = rstCombinado!auto
End Sub

Public Sub BDATOS(Conexion As Object)
Set Conexion = New ADODB.Connection
Conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
Conexion.Properties("Data Source") = App.Path + "\tabla.mdb"
Conexion.Properties("Jet OLEDB:Database Password") = ""
Conexion.Open

End Sub

Private Sub Form_Unload(Cancel As Integer)
BDATOS cnn3
sql = "Select * From teclas Where auto Like '" & Variable_sigo & "'"
Set rstCombinado2 = New ADODB.Recordset
rstCombinado2.Open sql, cnn3, adOpenKeyset, adLockOptimistic
rstCombinado2!hora_salida = Time
rstCombinado2.Update
End Sub

me funciono como queria y me lleva el control muy bien de que usuario entra, la hora y a que hora sale de ese formulario y en los demas formularios se pone el mismo codigo para llevar el control del otro formulario por igual.

gracias y espero les sirva de algo.


saludos