Bonjour cher membre de la communauté
je viens vers vous pour m'aider a trouver une solution à mon problème. En effet j'ai été chargé par le curé de notre paroisse, d'établir une application qui jouerait la prière angelus, à des heures spécifiques et qui sonnerait la cloche à chaque heure selon l'heure affichée par le système. pour ça un fichier audio mp3 contenant la sonnerie d'une cloche a été mis à disposition.
pour ce faire j'ai créé une base Access comprenant 1 table pour stocker les heures et un formulaire sur lequel j'ai inséré ce code pris sur un autre tuto:Problème, je me rends compte que le code n'exécute pas les instruction comme je voulais. je voudrai donc que l'on puisse m'orienter et si possible corriger ce code pour répondre au besoin exprimé. merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Dim varHeureExec As Variant Dim varDerniereExec As Variant ' Lire l'heure d'exécution varHeureExec = DLookup("[Heure Exécution]", "tbl Minuterie") If IsNull(varHeureExec) Then Exit Sub ' Lire l'heure de dernière exécution varDerniereExec = DLookup("[Derniere Exécution]", "tbl Minuterie") If IsNull(varDerniereExec) Then varDerniereExec = #1/1/1900 12:00:00 PM# ' Si l'heure actuelle est supérieure à celle de base, exécuter le processus If Time > varHeureExec Then ' Mettre à jour la date d'exécution CurrentDb.Execute "UPDATE [tbl Minuterie] SET [Derniere exécution]=#" & _ Format(Now, "mm/dd/yyyy hh:nn:ss") & "#" ' Exécuter une action... WindowsMediaPlayer0.URL = "C:\Users\Momo\Desktop\PSquare.mp3" Me.TimerInterval = 0 End If
Partager