• M
    User Newbie •

    problema timer

    Salve a tutti avrei un problema da sottoporvi con un codice di access di cui ho scarse conoscenze.
    Ho questo codice per la partenza di un timer attraverso un pulsante di run :

    Private Sub Form_Timer()

    If Left(Me.Crono, 2) = "59" And Mid(Me.Crono, 4, 2) = "59" And Right(Me.Crono, 2) = "59" Then
    Me.Crono = "00:00:00"
    Else
    If Right(Me.Crono, 2) = "59" And Mid(Me.Crono, 4, 2) = "59" And Mid(Crono, 2, 1) < 9 Then
    Me.Crono = Left(Me.Crono, 1) & Mid(Me.Crono, 2, 1) + 1 & ":00:00"
    Else
    If Mid(Me.Crono, 4, 2) = "59" And Right(Me.Crono, 2) = "59" Then
    Me.Crono = Left(Me.Crono, 1) + 1 & "0:00:00"
    Else
    If Right(Me.Crono, 2) = "59" And Mid(Me.Crono, 5, 1) = "9" Then
    Me.Crono = Left(Me.Crono, 3) & Mid(Me.Crono, 4, 1) + 1 & "0:00"
    Else
    If Right(Me.Crono, 2) = "59" And Mid(Me.Crono, 5, 1) < "9" Then
    Me.Crono = Left(Me.Crono, 4) & Mid(Crono, 5, 1) + 1 & ":00"
    Else
    If Right(Me.Crono, 1) = "9" Then
    Me.Crono = Left(Me.Crono, 6) & Mid(Me.Crono, 7, 1) + 1 & 0
    Else
    Me.Crono = Left(Me.Crono, 7) & Right(Me.Crono, 1) + 1
    End If
    End If
    End If
    End If
    End If
    End If
    End Sub

    con un campo in questo formato ?00:00:00? situato nella stessa maschera dovrei dare un?impostazione in secondi, minuti o ore per fermare il timer . Purtroppo non riesco a farlo c?è qualcuno che può darmi una mano. Grazie

    0
  • C
    Super User •

    Ciao :smile3:

    Sposto la discussione in una sezione più idonea, così magari otterrai risposte.

    Purtroppo non so aiutarti con Access.

    :ciauz:

    0
Effettua l'accesso per rispondere