Bonjour le forum
En recherchant sur le forum, j' ai trouvé un code qui peut m' être utile, ce code permet de générer une alerte.
Si cette date est a moins de 6 jours de la date du jours et que le champs « EtatRdv est en attente » je veux avoir une boite de dialogue,
a l’ouverture de la base m’indiquent les RDV en attente.
J' ai fait une petite transformation pour ma table. Le champ EtatRdv prendra 4 valeurs (Liste de valeur), un champ Date
Voici le code
Je me pose une question, Les select case ont il un rapport avec des cases à Option ? (Pour continuer la transformation du code)
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
24
25
26
27
28
29
30 Private Function ExaminerValeurCdes() As Boolean Const CLOTURE As String = "Clôturé" Const ATTENTE As String = "En attente" Const ANNULE As String = "Annulé" Const REPORTE As String = "Reporté" Dim oRS As DAO.Recordset Dim strSQLExamenCdes As String Dim dtmDate As Date strSQLExamenCdes = "SELECT Date, EtatRdv FROM RDV" Set oRS = CurrentDb.OpenRecordset(strSQLExamenCdes, dbOpenDynaset) With oRS Do While Not .EOF Select Case .Fields("EtatRdv") Case CLOTURE, ATTENTE AfficherAlerte = True Exit Do End Select If .Fields("EtatRdv") + 6 >= Now Then AfficherAlerte = True Exit Do End If .MoveNext Loop End With Set oRS = Nothing End Function
Moi j' ai mis une liste de valeur
mais je ne suis pas encore arrivé jusque la, car au lancement d'un premier test , j'ai un méssage d' erreur 3048
impoosible d' ouvrir plus de bases de données.
Merci d' avance pour toute aide
Aladin
Partager