Discussion :

[grommerch]

Bonjour,

J'aurais besoin de céer un timer dans access sans formulaire.
J'ai trouvé un article traitant précisément de ce sujet mais je n'y comprend pas grand chose.

http://access.developpez.com/sources...ev#TimerSsForm

Quelqu'un pourrait il m'expliquer plus clairement.
Je suis novice en programation .

je compte sur vous

Merci

Eric

[Renardo]

Bonjour
1) Tu copie le code que tu met dans un Module
2)Tu suprime les 2 lignes qui ne correspondent pas a ta version d'access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Start_Timer(nIDEvent As Long, interval As Long)
 
    APISetTimer Application.hWndAccessApp, nIDEvent, interval, _
		AddrOf("Callback_Timer") ' Ligne pour Access 97
    APISetTimer Application.hWndAccessApp, nIDEvent, interval, _
		AddressOf Callback_Timer ' Ligne pour les autres versions
 
End Sub

3) pour lancer le code au demarage de la BD tu crais une Macro qui portera le nom Autoexec
Tu crais dans cette macro une Action ExecuterCode
Dans nom fonction Tu entre :Start_Test_Timer()
tu ferme ta BD et tu la réouvre et tu devrais avoir la date et l'heure qui s'affiche en bas dans la barre de statut

[grommerch]

Re bonjour et merci pour la réponse.

J'arrive effectivement à afficher la date et l'heure dans la barre de statut mais pour mon utilisation personnelle, je dois pouvoir lire une valeur toute les deux seconde et la stocker danc un champ.

J' arrive à faire fonctionner la fonction test mais je ne comprends pas comment ça fonctionne et comment je peux modifier pour l'adapter à mon projet.

Pouvez vous m'aider

Merci

Eric

[Domi2]

Bonjour,

C'est simple (merci Arkham)...

Tu remplaces ici 1000 par 2000 (millisecondes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Intervalle du timer en millisecondes
Private Const INT_TIMER As Long = 1000

et ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Ta procédure qui va bien pour lire la valeur et la stocker
Private Sub Evenement_Timer()
 
    'Ici, tu écris ta propre procédure
 
End Sub

Domi2

[grommerch]

Bonjour Domi2,

ça fonctionne super

merci Arkham et Domi2

C'est simple quand on connait



Eric

[Domi2]

Bonjour,

Je n'y suis pour rien, mais merci pour le retour...

Et ne pas oublier qu'on peut utiliser plusieurs timers en simultané...

Domi2