compte à rebours

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22509111
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


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
blaise cacramp
Le #22511371
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" 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


3stone
Le #22512481
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)
blaise cacramp
Le #22516651
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" 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


blaise cacramp
Le #22516641
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" 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)



blaise cacramp
Le #22516761
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" 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


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

3stone
Le #22517021
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)
blaise cacramp
Le #22522231
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
Le #22527711
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" 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


blaise cacramp
Le #22531381
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" 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" 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






Publicité
Poster une réponse
Anonyme