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
j'ai une erreur d'incompatibilité pouvez-vous m'aider?? merci
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" <nicolaschantrel@wanadoo.fr> a écrit dans le message de news:
4c76c46c$0$5387$ba4acef3@reader.news.orange.fr...
bonjour,
je cherche à effectuer un compte à rebours
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
j'ai une erreur d'incompatibilité pouvez-vous m'aider?? merci
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" !!!
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" <sweet@home.be> a écrit dans le message de news:
i59a12$k0m$1@speranza.aioe.org...
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" !!!
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" !!!
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$
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" <sweet@home.be> a écrit dans le message de news:
i575vh$ga$1@speranza.aioe.org...
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$
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 !!
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 !!
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 !!
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
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
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
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
j'ai une erreur d'incompatibilité pouvez-vous m'aider?? merci
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" <nicolaschantrel@wanadoo.fr> a écrit dans le message de news:
4c76c46c$0$5387$ba4acef3@reader.news.orange.fr...
bonjour,
je cherche à effectuer un compte à rebours
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
j'ai une erreur d'incompatibilité pouvez-vous m'aider?? merci
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
j'ai une erreur d'incompatibilité pouvez-vous m'aider?? merci
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" <nicolaschantrel@wanadoo.fr> a écrit dans le message de news:
4c7d7262$0$10212$ba4acef3@reader.news.orange.fr...
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" <nicolaschantrel@wanadoo.fr> a écrit dans le message de news:
4c76c46c$0$5387$ba4acef3@reader.news.orange.fr...
bonjour,
je cherche à effectuer un compte à rebours
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