Condition BETWEEN sur une date

Bonjour à tous,

J'ai un petit problème pour mettre une condition BETWEEN sur une date en VBA.
Voilà j'ai une table que j'alimente en VBA avec les infos récupérées d'autres tables grâce à un recordset.

La requête sur laquelle s'ouvre le recordset est du genre de celle-ci :

Code:

---

1 2	"SELECT * FROM MaTable WHERE MaDate BETWEEN #" & dt1 & "# AND #" & dt2 & "#;"

---

dt1 et dt2 représentent deux InputBox dans lesquelles je demande à l'utilisateur de saisir une date de début et une date de fin.
Elles sont toutes les deux déclarées en tant que Date et le champ MaDate dans MaTable est bien de type Date aussi.

Cependant même si le recordset s'ouvre bien il n'y a aucun enregistrement dedans alors que normalement je devrais avoir un enregistrement avec lequel j'ai volontairement rempli les critères de la requête pour effectuer mes tests.
Je pensais que c'était à cause de dt1 et dt2 qui peut-être se transposaient automatiquement au format américain des dates, mais à l'affichage de leur contenu, j'ai bien les dates telles qu'elles ont été saisies.

Après avoir testé plusieurs syntaxes aussi bien dans la condition de la requête que pour changer le format des dates, je viens vous demander votre aide car là je sèche :(

Bonsoir,

Cela :

Citation:

---

Je pensais que c'était à cause de dt1 et dt2 qui peut-être se transposaient automatiquement au format américain des dates, mais à l'affichage de leur contenu, j'ai bien les dates telles qu'elles ont été saisies

---

ne veut rien dire sur la façon dont tes paramètres dates sont traitées en VBA.

Essaies :

Code:

---

"SELECT * FROM MaTable WHERE MaDate BETWEEN #" & format(dt1,"mm/dd/yyyy") & "# AND #" & format(dt2,"mm/dd/yyyy") & "#;"

---

Bonne continuation

Merci pour la réponse madefemere :D

En effet je me suis dit aussi que l'affichage des variables ne reflétait pas leur traitement mais je n'arrivait pas à les formater.

Après réflexion ta syntaxe est tout à fait logique mais je n'y avait pas du tout pensé alors je testerai ça demain mais il n'y a pas de raison que cela ne fonctionne pas ;)

Je verrai bien le résultat demain, bonne soirée à toi :)

Après test, je n'arrive toujours pas au résultat attendu avec ta syntaxe.
Même si je saisie la date sous la forme "mm/dd/yyyy", le recordset ne trouve toujours rien alors qu'il devrait.

SI ça peut aider, voici le début de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub MaFonction()   Dim rs1 As Recordset Dim strSQL As String Dim dt1 As Date Dim dt2 As Date   dt1 = InputBox("Saisissez une date de début") dt2 = InputBox("Saisissez une date de fin")   strSQL = "SELECT A.client_id, A.entreprise_id, A.client_nom, A.client_adresse, A.administrateur_nom, A.administrateur_adresse, B.declaration_montant, B.declaration_provisoire_montant, B.declaration_provisoire_date " & _ "FROM MaPremiereTable AS A INNER JOIN MaDeuxiemeTable AS B ON A.client_id=B.client_id " & _ "WHERE B.declaration_provisoire_montant>0 AND B.declaration_provisoire_date IS NOT NULL AND B.declaration_montant>=25 AND B.cloture_motif IS NULL AND A.jugement_type='13' AND B.courrier IS NULL AND B.declaration_date BETWEEN #" & Format(dt1, "dd/mm/yyyy") & "# AND #" & Format(dt2, "dd/mm/yyyy") & "#;"   Set rs1 = CurrentDb.OpenRecordset(strSQL)   rs1.MoveFirst While Not rs1.EOF ...

---

Voilà comme vous vous en doutez, quand je veux aller au premier enregistrement c'est impossible car il n'y a rien dans le recordset or je suis certain d'avoir un client qui remplit les conditions.

Bon et bien après quelques recherches, des tas et des tas de tests, j'ai enfin trouvé une solution à mon problème :ccool:

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub MaFonction()   Dim rs1 As Recordset Dim strSQL As String Dim dt1 As Date Dim dt2 As Date Dim strdt1 As String Dim strdt2 As String   strdt1 = InputBox("Saisissez une date de début") strdt2 = InputBox("Saisissez une date de fin") dt1 = CDate(strdt1) dt2 = CDate(strdt2)   strSQL = "SELECT A.client_id, A.entreprise_id, A.client_nom, A.client_adresse, A.administrateur_nom, A.administrateur_adresse, B.declaration_montant, B.declaration_provisoire_montant, B.declaration_provisoire_date " & _ "FROM MaPremiereTable AS A INNER JOIN MaDeuxiemeTable AS B ON A.client_id=B.client_id " & _ "WHERE B.declaration_provisoire_montant>0 AND B.declaration_provisoire_date IS NOT NULL AND B.declaration_montant>=25 AND B.cloture_motif IS NULL AND A.jugement_type='13' AND B.courrier IS NULL AND B.declaration_date BETWEEN #" & dt1 & "# AND #" & dt2 & "#;"   Set rs1 = CurrentDb.OpenRecordset(strSQL)   rs1.MoveFirst While Not rs1.EOF ...

---

Je passe donc par deux variables de type String qui récupèrent la valeur des InputBox, puis je les convertie dans les variables de type Date.
Ensuite dans la condition BETWEEN, je dois quand même laisser les # même si la variable dt1 contient par exemple #01/01/2013#.

Voilà merci quand même pour ton aide madefemere ;)

C'est bien,

Etonnant quand même qu'il faille expliquer à l'interprétateur par CDate que ce sont dates qui sont insérées dans les InputBox.

N'oublies pas de mettre :resolu: si c'est bon.

Bonne continuation.

Bonjour,

comment faire pour mettre le contenu du recordset rs1 dans un sous-formulaire SFX de mon formulaire principal FX.

Merci

Bonjour,

Tu devrais ouvrir un nouveau topic pour une question qui n'a rien à voir avec le sujet initial.

La syntaxe est :

Code:

---

Forms!FX!SFX.form.recordsource = tarequêteRS1

---

@mchouaebou
En effet pour changer la source de ton sous-formulaire la syntaxe est la suivante:

Code:

---

Forms![FormulairePrincipal].Form![SousFormulaire].recordsource=Requête

---

@madefemere
J'en profite pour donner des nouvelles de mon projet.
Le contrôle sur les dates ne fonctionne pas en réalité, du moins pas chez moi.
Je pense que le client pour lequel j'avais volontairement rempli les bonnes conditions afin de faire mes test était en fait un "cas particulier".
Une fois la mise en production, toujours ce même message m'indiquant qu'il n'y a aucun enregistrement dans le recordset alors qu'il devrait y en avoir près d'une centaine.
Au final selon la machine sur laquelle je travaillais, j'ai fait l'expérience de pas mal de choses bizarres avec les dates, notamment des requêtes qui marche sur un poste mais pas l'autre.
Alors pour éviter toute confusion, j'ai contourné le problème en créant un champ dans mes tables servant de marqueur afin que les clients pour lesquels un courrier a été envoyé soient écartés lors du prochain publipostage.