Bonjour à tous,

J'ai un petit souci de date, je vous montre mon 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
 
With rstAvoir
.ActiveConnection = connexion
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "Select Code_MC From Avoir where (Code_Equipe= " & Feuille_Démarrage.Nom_Equipe.ItemData(Feuille_Démarrage.Nom_Equipe.ListIndex) & ") and (Code_Vacation=" & Feuille_Démarrage.Libellé_Vac.ItemData(Feuille_Démarrage.Libellé_Vac.ListIndex) & ") and (Numero_Agent=" & Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ItemData(Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ListIndex) & ") and (Date_Vacation=#" & Format(Feuille_Démarrage.Label9.Caption, "dd/mm/yyyy") & "#)"
 
If IsNull(!Code_MC) Then 'Si le Code_MC est Null alors
MsgBox ("Code_MC null")
Else
MsgBox ("Code MC n'est pas null")
End If
.Close
End With
Ce code marche pour toute les dates sauf pour celle d'aujourdhui, c'est à dire le 01/02/2006, j'ai changé la date de mon systéme je l'ai mis au 02/02/2006 et cela marche.

Pourquoi au 01/02/2006 cela ne marche pas?

Nb: le lable9 reprend la date du systéme.

Pouvez-vous m'aider?

Merci d'avance.