Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

compte à rebours

10 réponses
Avatar
Nicolas
bonjour,
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??
merci

10 réponses

Avatar
3stone
Salut,

Nicolas wrote:
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??




On ne peut pas faire cela ainsi...

C'est comme si tu disais:
15 hrs (de l'après-midi) moins 0 heure, 0 minute et une seconde du matin!

Cela ne représente rien pour Access.

Mais, tu devrais trouver ton bonheur avec ceci:
http://www.3stone.be/access/download.php?lng=fr&pg!43" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/download.php?lng=fr&pg!43


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
blaise cacramp
Ben oui

Il faut d'abord installer un timer (minuterie) sur ton formulaire, et puis
bla bla
Fais une recherche dans l'internet

Blaise

"Nicolas" a écrit dans le message de news:
4c76c46c$0$5387$
bonjour,
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??
merci


Avatar
3stone
Salut,

blaise cacramp wrote:
Ben oui

Il faut d'abord installer un timer (minuterie) sur ton formulaire, et
puis bla bla
Fais une recherche dans l'internet




Ah blaise...

Tu n'as pas vu m'a réponse, ou tu ne daigne pas lire...
alors, tu donnes LA réponse: "cherches" !!!

Sacré blaise, toujours pareil à lui même !

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
blaise cacramp
Salut !
un formulaire avec une étiquette Lbl_Rebours, le code ci-dessous.

Cdt, Blaise

Option Compare Database
Option Explicit

Dim dtRebours As Date ' le rebours, publique

Private Sub Form_Open(Cancel As Integer)
dtRebours = TimeSerial(13, 0, 0) 'initalise le rebours
Me.Lbl_Rebours.Caption = Format(dtRebours, "hh:mm:ss")
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
' retire une seconde
dtRebours = dtRebours - TimeSerial(0, 0, 1)
Me.Lbl_Rebours.Caption = Format(dtRebours, "hh:mm:ss")
If dtRebours <= 0 Then
Beep
MsgBox "Temps écoulé"
Me.TimerInterval = 0
End If
End Sub


"Nicolas" a écrit dans le message de news:
4c76c46c$0$5387$
bonjour,
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??
merci


Avatar
blaise cacramp
Ah ben non, je ne t'avais pas lu. Quel serveur utilise-tu ?

Bon, c'est vrai que j'ai été un peu expéditif. Mais bon, c'était vendredi,
après deux semaines à donner un cours VBA, avec un apprenant qui m'a donné
des hausses de pression artérielle. Un gars du style à cliquer un peu
partout et plus vite que son ombre, et réussir en deux clics à détruire
trois heures de travail, performance qu'il avait déjà commise la veille...

En plus je n'utilise quasiment jamais le timer en Access, et j'étais parti
dans un délire VB pur où le timer est un contrôle.

Bon, j'ai corrigé le tir.

a+, Blaise

"3stone" a écrit dans le message de news:
i59a12$k0m$
Salut,

blaise cacramp wrote:
Ben oui

Il faut d'abord installer un timer (minuterie) sur ton formulaire, et
puis bla bla
Fais une recherche dans l'internet




Ah blaise...

Tu n'as pas vu m'a réponse, ou tu ne daigne pas lire...
alors, tu donnes LA réponse: "cherches" !!!

Sacré blaise, toujours pareil à lui même !

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Avatar
blaise cacramp
Je deviens bigleux, j'avais même pas que tu avais joint une adresse avec un
code plus complet que le mien.
Ceci dit, les réponses avec uniquement un lien ne sont pas pérennes et
provoquent beaucoup de bruit lors d'une recherche, surtout si elles sont
marquées comme "résolu"

Microsoft est d'ailleurs un spécialiste du genre, même avec son aide en
ligne ou il renvoie très rapidement vers sa nouvelle mouture. Une habitude
détestable des monopoles hautains.

Bien à toi, Blaise


"3stone" a écrit dans le message de news:
i575vh$ga$
Salut,

Nicolas wrote:
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??




On ne peut pas faire cela ainsi...

C'est comme si tu disais:
15 hrs (de l'après-midi) moins 0 heure, 0 minute et une seconde du matin!

Cela ne représente rien pour Access.

Mais, tu devrais trouver ton bonheur avec ceci:
http://www.3stone.be/access/download.php?lng=fr&pg!43" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/download.php?lng=fr&pg!43


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

Avatar
3stone
Salut Blaise,

blaise cacramp wrote:
[...]
Ceci dit, les réponses avec uniquement un lien ne sont pas pérennes et
provoquent beaucoup de bruit lors d'une recherche, surtout si elles
sont marquées comme "résolu"



les liens ne sont pas pérennes ?!? du bruit ?!?

T'es comique toi !
Le lien envoie vers mon site... et il est bien plus pérennes
que les newsgroup de Microsoft !!

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
blaise cacramp
T'es comique toi !
Le lien envoie vers mon site... et il est bien plus pérennes
que les newsgroup de Microsoft !!




Oui c'est certain : Micro$oft est le plus mauvais exemple de pérennité : je
me cite « Microsoft est d'ailleurs un spécialiste du genre, même avec son
aide en ligne ou il renvoie très rapidement vers sa nouvelle mouture. Une
habitude détestable des monopoles hautains »

Et je souhaite tes liens au pire aussi pérennes que toi et dans la foulée je
te souhaite une très très longue vie à toi et à tes descendants pour
entretenir www.3stone.be

Gros dodo et bon WE. Ah non merde, c'est lundi.


PS, j'ai beaucoup d'affection pour toi, Blaise
Avatar
Nicolas
salut à vous,

finalement j'utilise
Me.ZtCptRebours = Me.ZtCptRebours - 0,0001 dans le timer avec un interval de
1000
ça marche!!
le décompte n'est pas régulier mais sûrement dû aux tâches parallèles
qu'exécute le processeur.

merci pour vos réponses
@+

"Nicolas" a écrit dans le message de news:
4c76c46c$0$5387$
bonjour,
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??
merci


Avatar
blaise cacramp
Noooon : C'est approximatif et tu vas faire hurler 3Stone et moi maintenant
:

En fait, il faut retirer une seconde.
Il y en a 86400 par jour (24 * 60 * 60)
Et donc retirer 1/86400 ( Me.ZtCptRebours = Me.ZtCptRebours - 1/8640)
1/86400 = 1,1574074074074074074074074074074e-5

C'est pas la bonne solution

"Nicolas" a écrit dans le message de news:
4c7d7262$0$10212$
salut à vous,

finalement j'utilise
Me.ZtCptRebours = Me.ZtCptRebours - 0,0001 dans le timer avec un interval
de 1000
ça marche!!
le décompte n'est pas régulier mais sûrement dû aux tâches parallèles
qu'exécute le processeur.

merci pour vos réponses
@+

"Nicolas" a écrit dans le message de news:
4c76c46c$0$5387$
bonjour,
je cherche à effectuer un compte à rebours

me.Texte1 = #15:00:00#
me.Texte1 = me.Texte1-#00:00:01#

j'ai une erreur d'incompatibilité
pouvez-vous m'aider??
merci