Discussion :

[Nak le]

Bonjour à tous! Je veux filtrer le résultat d'une requête en fonction de la date inscrite sur une zone de texte dans un formulaire. Et là je suis bloqué sur ces problèmes.
1. Je voulais que la zone de texte date affiche la date sélectionnée avec le sélecteur de date, et qui prend la valeur par défaut de la date système actuelle "date ()". Mais en cliquant une autre date sur le sélecteur de date, rien ne se passe, la date ne change pas.
2. ensuite je voudrais que la date sélectionnée soit utilisée comme critère de filtre sur une requête déjà existante. Quel est le code VBA exact pour cette manipulation, c'est un peu compliqué avec le paramètre date pour moi. Dois-je utiliser .value, ou .caption sur la zone de texte ? Dois-je déclarer la variable comme string ou date ? Sur évènement après MAJ.
Un peu d'aide SVP, je suis débutant! MERCI!

[hyperion13]

Salut

1 - Le sélecteur de dates ne fonctionne pas avec des textbox indépendantes.
Une solution, utiliser une combobox et l'alimenter ainsi

Code :

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

SELECT DISTINCT champDate FROM MaTable ORDER BY ASC

2 - Lire la FAQ

[Nak le]

Ok, je vais essayer ta suggestion, si je ne me trompe pas, ton code va afficher une liste déroulante à partir d'une colonne date dans une table. C'était ma 2^e option si le sélecteur ne fonctionne pas, dans ma table date, il y a beaucoup de doublons, même date pour même opération, et j'ai essayé avec DISTINCT pour le générateur de liste déroulante, mais les doublons s'affichaient toujours. Mais le code était un peu différent du code que tu donnes. Je vais essayer. Merci

[Nak le]

J'ai essayé ton code, ça filtre bien les doublons mais la liste déroulante est toute blanche, il y a des éléments à sélectionner dessus, mais c'est tout blanc. J'ai essayé une autre méthode en créant une requête "select distinct" sur mon champ date comme source de la liste déroulante, et on dirait que ça marche.
Et pour la 2e question, j'ai consulté la FAQ et j'ai trouver ceci :

Code :

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

MonSQL = "Select * From MATABLE Where MONCHAMP = #" & zdt & "#"

Mais rien ne change. Toujours bloqué sur cette étape. Merci!