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