Discussion :

[Celephais]

Bonjour à tous,

Je fais actuellement des recherches dans une base de données et je
bute sur un léger problème, débutant sur Access et encore plus sur VB.

Ma base contient des noms de produits et des dates de livraison. A un
produit peuvent naturellement correspondre plusieurs dates de
livraison.

Je cherche à créer une fonction qui prend en paramètres le nom d'un
produit NOM_PR et une date D. Cette fonction doit renvoyer la date de
livraison de NOM_PR immédiatement inférieure, voire égale, à D.

Mon idée est donc d'extraire toutes les dates correspondant à NOM_PR
dans un recordset par le biais d'une requête SQL, ce que j'ai réussi à
faire.

Cela dit, je n'arrive pas à afficher le contenu de ce recordset, ni à
comparer les dates qu'il contient à D pour sélectionner celle que je
cherche.

Pensez-vous que ma méthode est optimale ? Et si oui, avez-vous des
pistes pour que je complète mon code ?

[pgz]

Bonjour,

Une requête du genre

Code :

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

SELECT * FROm MaTable WHERE NOM_PR = """ & sNomProd & """ and D <= #" & Format(dteLivraison, "mm/dd/yyyy") & "# ORDER BY D DESC;

renvoie tous les enregistrement du produit pour lesquels D <= variable date, dans l'ordre décroissant des dates.
Elle peut être utilisée dans un formulaire.
En VBA, on peut accéder à n'importe quel champ du premier enregistrement

Code :

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

... = DLookUp("NomDeChamp","SELECT ...;")

En espérant que cela t'aide,

Bon dimanche.

PGZ

[Invité]

Bonjour

En VBA, on peut accéder à n'importe quel champ du premier enregistrement

Code :

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

... = DLookUp("NomDeChamp","SELECT ...;")

En espérant que cela t'aide,

Petite erreur, le deuxième critère de la fonction DLookup n'admet pas d'instruction SQL comme "Select ...", il faut le nom d'une table ou d'une requête de la base.

Pour plus d'informations sur la fonction DLookup : ici.

[pgz]

Hello

Petite erreur, le deuxième critère de la fonction DLookup n'admet pas d'instruction SQL comme "Select ...", il faut le nom d'une table ou d'une requête de la base.

You're right, Starec! Je suis allé un peu trop vite...

PGZ

[Celephais]

Merci pour vos réponses, je comprends le concept que vous m'exposez mais un doute subsiste.

Puisque qu'on ne peut pas définir une requête avec SQLStr = "SELECT..." au sein de DLookUp, j'ai procédé en deux temps en :

- créant une requête New_Query avec SQLStr (qui inclut les paramètres de ma fonction)
- évaluant DLookUp avec les paramètres qui m'intéressent, dont New_Query

Vu que New_Query a des paramètres qui dépendent uniquement de la fonction, je supprime cette requête devenue inutile avec un DeleteObject avant de fermer ma fonction. Est-ce habituel en Access/VBA ?