Discussion :

[rachidalliance]

bonjour tous le monde j'ai une table clients qui contient le champs (nom,heure Exécution) dans le champ heure Exécution je stock les heures de rappel de client , j'ai écrit un code qui permet d'afficher un message d'alerte quand l'heure du champ heure Exécution et la méme que celle du systéme voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim varHeureExec As Variant
 
' Lire l'heure d'exécution
varHeureExec = DLookup("[Heure Exécution]", "alliance")
If "Heure Exécution" = Time Then
 
'
  ' Exécuter une action...
  MsgBox "rappeler monsieur .'&nom' !", vbInformation
End If

ce code je l'est enregistrer dans un formulaire qui et exécuter avec un macro autoexe mais ca ne marche pas est vous pouvez m'aider a résoudre ce problème et merci

[Psychopathe]

Post très peu compréhensible... Sous quel format est l'heure en question dans ta table? Si le format est différent, forcément ça ne peut fonctionner. Si l'heure d'exécution est un nombre compris entre 0 et 23 il faudrait faire:

Code :

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

1
2
 
If varHeureExec = Format(Time,"h") Then

Attention aussi au Dlookup qui ne va renvoyer qu'une seule valeur (celle de la première ligne généralement). Donc ton code suppose que la table ne possède qu'une seule ligne...