Discussion :

[clickandgo]

Bonjour à tous

Je suis en train d'ébaucher cette fonction qui devra me retourner les valeurs de chaque recordset basé sur ma requête or, les valeurs de chaque message affichées par la msgbox sont toujours la même, la boucle et requête étant correctes.

Que se passe t'il ?

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
 
Private Function VérifDatesActionsDépassées()
 
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("rqdatesactionsdépassées")
 
Do While Not rst.EOF
 
MsgBox ("L'action " & "'" & NumAction & "'" & "en date du : " & "'" & DateValue(HoraireDebut) & "'" & " pour le contact : " & "'" & Contact & "'" & " a une date dépassée")
 
rst.MoveNext
 
Loop
 
Set rst = Nothing
End Function

Merci d'avance

[ClaudeLELOUP]

Bonjour,

dans ton message, tu ne fais nulle part référence au RecordSet !

Code :

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

MsgBox ("L'action " & "'" & NumAction & "'" & "en date du : " & "'" & DateValue(HoraireDebut) & "'" & " pour le contact : " & "'" & Contact & "'" & " a une date dépassée")

Tu devrais y trouver des mentions du style rst("NomDeLaColonneé").

[clickandgo]

Merci beaucoup Claude

le code devient donc :

Code :

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

MsgBox ("L'action " & rst("numaction") & " en date du : " & rst("HoraireDebut") & " pour le contact : " & rst("Contact") & " a une date dépassée")