Je suis, une fois de plus, en train de galérer avec les formats de dates...
1. J'ai une table avec un champ Date au format Date abrégé,
01-janv-04
01-févr-04
01-mars-04
01-avr-04
Je créé un zone de liste déroulante, indépendante, avec pour origine source
la table en question.
1. Pourquoi un MsgBox sur le contrôle ne m'affiche pas le bon format de date ?
J'ai tenté:
- MsgBox controle1
- MsgBox Format(controle1, "mm/yy")
...
Je n'obtiens jamais un résultat cohérent ( soit un chiffre seul, soit une
année en 1900,...)
2. Je souhaite créer une requête VBA du style
WHERE date1 > controle1
et comme je n'arrive pas à avoir le bon format date pour mon contrôle, je
suis bloqué.
J'essaie de poser une variable x qui capture le bon format, mais ensuite je
ne connais pas la syntaxe dans le WHERE:
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour Kolonna,
Point 1 : je n'ai pas le problème que tu soulèves. Private Sub Modifiable0_AfterUpdate() MsgBox Modifiable0 MsgBox Format(Modifiable0, "mm/yyyy") End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de liste, soit au format mois/année
Point 2 : Pour ton select, faire : qdfSQL = " SELECT * FROM T_EI WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
Point 1 : je n'ai pas le problème que tu soulèves.
Private Sub Modifiable0_AfterUpdate()
MsgBox Modifiable0
MsgBox Format(Modifiable0, "mm/yyyy")
End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de
liste, soit au format mois/année
Point 2 : Pour ton select, faire :
qdfSQL = " SELECT *
FROM T_EI
WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
Point 1 : je n'ai pas le problème que tu soulèves. Private Sub Modifiable0_AfterUpdate() MsgBox Modifiable0 MsgBox Format(Modifiable0, "mm/yyyy") End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de liste, soit au format mois/année
Point 2 : Pour ton select, faire : qdfSQL = " SELECT * FROM T_EI WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
Je reste perplexe... J'obtenais encore des résultats différents, et des "dd" apparaissaient dans mon controle à la place des jours et années... J'ai relancé Access, et tout est revenu dans l'ordre...
Merci une fois de plus pour ton aide,
Kolonna.
Bonjour Kolonna,
Point 1 : je n'ai pas le problème que tu soulèves. Private Sub Modifiable0_AfterUpdate() MsgBox Modifiable0 MsgBox Format(Modifiable0, "mm/yyyy") End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de liste, soit au format mois/année
Point 2 : Pour ton select, faire : qdfSQL = " SELECT * FROM T_EI WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
Je reste perplexe...
J'obtenais encore des résultats différents, et des "dd" apparaissaient dans
mon controle à la place des jours et années...
J'ai relancé Access, et tout est revenu dans l'ordre...
Merci une fois de plus pour ton aide,
Kolonna.
Bonjour Kolonna,
Point 1 : je n'ai pas le problème que tu soulèves.
Private Sub Modifiable0_AfterUpdate()
MsgBox Modifiable0
MsgBox Format(Modifiable0, "mm/yyyy")
End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de
liste, soit au format mois/année
Point 2 : Pour ton select, faire :
qdfSQL = " SELECT *
FROM T_EI
WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
Je reste perplexe... J'obtenais encore des résultats différents, et des "dd" apparaissaient dans mon controle à la place des jours et années... J'ai relancé Access, et tout est revenu dans l'ordre...
Merci une fois de plus pour ton aide,
Kolonna.
Bonjour Kolonna,
Point 1 : je n'ai pas le problème que tu soulèves. Private Sub Modifiable0_AfterUpdate() MsgBox Modifiable0 MsgBox Format(Modifiable0, "mm/yyyy") End Sub
Dans les 2 cas, j'ai soit la date telle que figurant dans la zone de liste, soit au format mois/année
Point 2 : Pour ton select, faire : qdfSQL = " SELECT * FROM T_EI WHERE date1 > " & FORMAT(controle1,"#mm/dd/yyyy#") & ";"
