Discussion :

[KIK83]

Bonjour à tous,

Je souhaite faire un recherche dans un table dont les occurences sont comprises entre deux dates (format date dans ma table)

J'ai donc le code suivant:

Code :

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

sql = "SELECT [Date de stock],[Désignation pièce],[Référence pièce],[Stock actuel],Catégorie,Opérateur,Commentaires FROM Table_Stocks WHERE [Date de stock] BETWEEN '" & Me.txt_Date_Debut.Value & "' And '" & Me.txt_Date_Fin.Value & "' "

Et comme c'est des dates je dois mettre des # à mes variables date début et fin pour que ma requête SQL les prennent en compte. Le problème, c'est que n'étant pas d'un niveau foudroyant en VBA, je se sais pas ou placer les # sur mes variables.
J'ai tout essayé, sans succès...
IL faut dire que les " et ' me deroutent un peu...

Si une âme charitable passe par là

Merci....

[Jean-Philippe André]

salut,
essaye ceci :

Code :

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

BETWEEN "" & Me.txt_Date_Debut.Value & "# And #" & Me.txt_Date_Fin.Value & "# "

Attention, le format des dates est pris ici au format MM/JJ/AAAA. Si ce n'est pas ainsi qu'elles sont entrées dans ton formulaire il faut faire une manipulation intermédiaire.

[KIK83]

Bonsoir,

Sur tes conseils, j'ai codé

Code :

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

1
2
3
4
5
6
7
8
9
DateFormateeDebut = Format(Me.txt_Date_Debut.Value, "mm/dd/yyyy")
DateFormateeDebut2 = "" & "#" & DateFormateeDebut & "#" & ""
DateFormateeFin = Format(Me.txt_Date_Fin.Value, "mm/dd/yyyy")
DateFormateeFin2 = "" & "#" & DateFormateeFin & "#" & ""
MsgBox "" & DateFormateeDebut2 & "" ' Histoire de vérifier: la date retournée est bien #10/26/2009#
MsgBox "" & DateFormateeFin2 & ""
 
sql = "SELECT [Date de stock],[Désignation pièce],[Référence pièce],[Stock actuel],Catégorie,Opérateur,Commentaires FROM Table_Stocks WHERE [Date de stock] BETWEEN 'DateFormateeDebut2' AND 'DateFormateeFin2' "
list_Recherche_Avancee.RowSource = sql

Malheureusement, nada. Ma liste reste et demeure vide malgré une foultide d'enregistrements...

Là je sèche...

Merci pour ton aide.

Bonne nuit (après 14 heures de dev, Dodo !)

[nico84]

Bonsoir,

JP avait oublié un # mais tu l'as bien vu, par contre il y a un blême dams la dernière ligne car elle n'utilise pas tes variables !!!

Code :

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

sql = "SELECT [Date de stock],[Désignation pièce],[Référence pièce],[Stock actuel],Catégorie,Opérateur,Commentaires FROM Table_Stocks WHERE [Date de stock] BETWEEN " & DateFormateeDebut2 & " AND " & DateFormateeFin2

Pour info j'utilise les dates au format français placées entre ' et ça marche aussi très bien (enfin au moins avec un windows français )

[KIK83]

Merci beaucoup Nico cela fonctionne à merveille

Bonsoir,
Pour info j'utilise les dates au format français placées entre ' et ça marche aussi très bien (enfin au moins avec un windows français )

C'est bien ce que j'avais fait ! (Avec Win Vista pro 100 % pur french ) et pourtant ce ne fonctionnait pas. Il est clair que le formatage de date alourdit le code. J'aime pas trop, mais je verrais cela + tard. J'en suis à 50 % de dev de l'appli et à au mini 40 heures de dev encore. Donc au taf !!!

Merci à tous et bonne journée