Discussion :

[mezmerize]

Bonjour,

Voila j'ai une table produit avec les champs suivant : Produit, CRM, CAP_APD, Date_Debut, Date_Fin

La clé de cette table est (Produit,Date_debut) sachant qu'un meme produit a des infos CRM et CAP_APD qui changent en fonction des dates.

Dans un formulaire je recupere le nom du produit et la date.

Mon but est d'utiliser une requete sql sous vba qui me renvoie un seule ligne mais je galere au niveau du test de la date

En gros ma requete donne ca mais je comprend pas pourquoi elle ne me renvoie rien.

Code :

Code :

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

1
2
3
4
5
 
Set db = CurrentDb
strSQL = "SELECT * FROM Tbl_Produit  "
strSQL = strSQL & " WHERE [Produit]=  '" & Produit_2 & "' and [Date_Debut]<= '" & Date_2 & "' and  [Date_Fin]>= '" & Date_2 & "'  "
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

Or quand je compile ca me donne une erreur a la derniere ligne du fait que la requete ne donne pas le résultat qu'elle devrait donner.

Quelqu'un a une idée ?

Merci d'avance.

Cyrille

[zoom61]

Une piste, en VBA c'est le format anglais MMDDYY, donc il faut faire attention que toutes les dates soient formatées en anglais...

@+.

[mezmerize]

J'ai formaté toute les date en Format français grace à

Code :

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

Format(Now, "dd/mm/yyyy")

Donc je doute que ce soit un probléme de format.

Merci quand meme pour la réponse :=)

[zoom61]

Tu devrais utiliser la fonction CDate, dans tes requêtes et dans le code VBA.

@+.

[mezmerize]

Merci de cette intuition mais CDate n'a rien changé à mon probléme..

J'ai affiché la date sous vba pour vérifier et elle est bien du meme format que celle dans la table. Je pense que c'est une erreur dans la raquete en elle même, je suis pas sure qu'elle fasse vraiment ce que je veux, c'est à dire trouver la ligne ou la date récupérer est entre les deux dates.

Merci

[madefemere]

Bonjour,

Comme indiqué par Zoom61 (que je salue au passage), c'est un problème de format de date.
Sous VBA, les dates utilisées sont au format US. Qu'importe si vous paramétrez toutes vos dates dans votre DB au format français (et ce n'est que du formatage), les données dates sont lues au format US, donc le variable Date_2 doit passer au format US comme proposé dans la section du FAQ ici

Un code comme ci-dessous devrait faire l'affaire :

Code :

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

1
2
3
4
Set db = CurrentDb
strSQL = "SELECT * FROM Tbl_Produit  "
strSQL = strSQL & " WHERE [Produit]=  '" & Produit_2 & "' and [Date_Debut]<= #" & Format(Date_2,'mm/dd/yyyy') & "# and  [Date_Fin]>= #" & Format(Date_2,'mm/dd/yyyy') & "#  "
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

et vous avez oublié les # - croisillons pour indiquer que ce sont des dates.

Cordialement

[mezmerize]

Ah oui je comprend mieux maintenant, je vous remercie tout les deux.

Bonne continuation.

a+