Me gustaría saber si es posible, como se puede hacer una
especie de cronómetro en Access, realmente es un contador
de segundos lo que quiero hacer. Me explico, en el
momento en el que se entra en un campo quiero que ponga
en marcha un contador de segundos, yo lo he imaginado
como una etiqueta que suma +1 cada segundo y que cuando
llegue a otro control se pare y guarde ese dato en otro
campo.
Responde Buho
=============
Más o menos, con alguna variante, podría ser esto:
Pon 1000 como intervalo al cronometro
Se entiende que Campo1Txt es el control tipo Texto que quieres saber el
tiempo en que el usuario está en dicho control, es decir, que tiene el foco
Contador es otro control TXT donde te va pintando el cronometro, es decir el
tiempo que Campo1Txt tiene cada vez el foco.
Option Explicit
Dim Segundos As Integer
Private Sub Form_Timer()
Dim ctlCurrentControl As Control
On Error GoTo Err_ControlError_Click
Set ctlCurrentControl = Screen.ActiveControl
If ctlCurrentControl.Name = "Campo1txt" Then
Segundos = Segundos + 1
Me.Contador.Value = Segundos
Else
Segundos = 0
End If
Exit_ControlError_Click:
Exit Sub
Err_ControlError_Click:
'Este control de errores le pongo
'por si acaso picas en alguna parte del
'formulario donde no haya un control
'que se puede dar el caso, con lo cual
'no habría ningun control activo y daria error
If Err.Number = 2474 Then 'No hay control activo en el FRM
Segundos = 0
Else
MsgBox "Aviso Nº:" & Err.Number & " -> " & Err.Description
End If
Resume Exit_ControlError_Click
End Sub
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)