conto alla rovescia

Anonimo
2017-12-31T14:58:02+00:00

buon giorno

vorrei creare, attraverso Microsoft Access, un segnapunti per pallacanestro. Il file alla fine avrà due maschere uguali, una per la modifica dei dati con pulsanti, un'altra solo per la visualizzazione al pubblico. Non so purtroppo come inserire un "conto alla rovescia" minuti-secondi. 

Qualcuno mi può indicare una soluzione? (non conosco linguaggi di programmazione).

Grazie infinite.

Samuele

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2018-01-01T22:49:09+00:00

ciao Samuele,

[...]

Grazie 1000 Sandro e tantissimi auguri di buon anno.

[...]

 grazie e buon anno a te :-)

[...]

La soluzione proposta funziona. L'unica cosa è che quando termina il conto alla rovescia invece di 00:00:00 mi viene 28/12/1899...

[...]

non riesco a simulare quanto dici....nei miei test per facilitare il tutto ho impostato il formato ad ora estesa per la textbox txttime e una maschera di input 00:00:00;0; per praticità.

Hai impostazioni che differiscono da quanto sopra?

ciao, Sandro.

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2018-01-01T09:53:16+00:00

ciao Samuele,

[...]Qualcuno mi può indicare una soluzione? (non conosco linguaggi di programmazione).

[...]

se basta qualcosa del genere :

crei una form vuota.

Crei un controllo textbox non associato e lo rinomini txtTime;

crei un command button e lo rinomini cmdStartTime;

crei un altro command button e lo rinomini cmdEndTime;

collega agli eventi sotto indicati le routines che seguono.

Al click del command button cmdStartTime, la text box si aggiornerà ogni secondo, dal tempo impostato a zero.

Option Compare Database

Option Explicit

Private Sub cmdEndtime_Click()

Me.TimerInterval = 0

End Sub

Private Sub cmdStartTime_Click() 

Me.TimerInterval = 1000

End Sub

Private Sub Form_Timer() 

With Me.txtTime

If TimeSerial(Hour(.value), Minute(.value), Second(.value)) > 0 Then

.value = DateAdd("s", -1, .value)

End If

End With

End Sub

ciao, Sandro.

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

4 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2018-01-21T17:57:35+00:00

    buona sera Sandro, altro quesito. Ho creato la maschera con i pulsanti e funziona correttamente. Adesso però ho il problema di sincronizzare la seconda maschera (quella senza pulsanti) in "tempo reale". Non vorrei fare un F5 ad ogni modifica... Inoltre, come posso far vedere le due maschere su due schermi diversi pur essendo esse all'interno dello stesso database?

    grazie 1000

    Samuele

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2018-01-02T21:11:58+00:00

    Grazie mille Sandro,

    funziona correttamente.

    Gentilissimo, grazie

    Samuele

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2018-01-01T21:00:12+00:00

    Grazie 1000 Sandro e tantissimi auguri di buon anno. La soluzione proposta funziona. L'unica cosa è che quando termina il conto alla rovescia invece di 00:00:00 mi viene 28/12/1899...

    Ciao, Samuele

    La risposta è stata utile?

    0 commenti Nessun commento