Discussion :

[dominux80]

Bonjour,

J'ai un champ combo1 'mois' et un combo2 'annee'

je voudrai faire une selection dans un champs date access au format français jj/mm/aaaa qui contiendrai la valeur textbox1 et textbox2 mais impossible je bloque dessus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim sql As String
sql = "Select * From mouvement"
 
sql = sql & " where mouvement.date_mouvement like '% " / " & Combo_mois.Text & " / " & Combo_an.Text & " '"";"""

merci de vos réponses

[Delbeke]

Si ton champs est au format date, vaux mieux utiliser la clause between

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PremJourMois As Date
Dim DernJourMois As Date
Dim Sql As String
  PremJourMois = CVDate("01/" & Combo_mois.Text & "/" & Combo_an.Text)
  DernJourMois = DateAdd("d", -1, DateAdd("m", 1, PremJourMois))
  Sql = "Select * From mouvement " & _
        "Where date_mouvement " & _
        " between #" & Format(PremJourMois, "mm/dd/yyyy") & "# and " & _
                      "#" & Format(DernJourMois, "mm/dd/yyyy") & "# "