Discussion :

[salvado.a]

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 :

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
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

[salvado.a]

suite a plusieurs test voila le nouveau code


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
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