Problème lecture recordset
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:
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
