pb recordset requete

voila, j'essaye juste de comparer a l' ouverture de mon formulaire si les date contenu dans une requête sont comprise dans une tranche de 15 jours a partir de la date du jour et donc si il y a une au moin une date alors sa affichera un carré rouge sur mon formulaire sinon un carré vert ( nommé boîte1 et boîte7 ) mais sa ne fonctionne pas


donc ma requête se nomme "nombre_maintenance_bat "

le code que j'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim Enr As Recordset Dim i As Integer ' declaration variable   Set Enr = CurrentDb.OpenRecordset("nombre_maintenance_bat")   i = 0   Do While Enr(i) - Date > 0 And Enr(i) - Date < 15 Or i < 10 i = i + 1 If Enr(i) - Date < 0 And Enr(i) - Date > 15 Then Boîte1.Visible = True     Else   Boîte7.Visible = True     End If   Loop

---

merci d'avance a ce qui m'aideront

suite a plusieurs test voila le nouveau code


code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim Enr As Recordset Dim i As Integer ' declaration variable   Set Enr = CurrentDb.OpenRecordset("nombre_maintenance_bat") MsgBox Enr("date_maintenance_bat")   i = 0   Do While Enr("date_maintenance_bat") - Date > 0 And Enr("date_maintenance_bat") - Date < 15 And i < 10 i = i + 1     Loop If Enr("date_maintenance_bat") - Date < 0 Or Enr("date_maintenance_bat") - Date > 15 Then Boîte1.Visible = True     Else   Boîte7.Visible = True   End If

---

il marche mais je ne voit pas comment l'incrémenté, si quelqun a une réponse merci d'avance