Discussion :

[pat04]

Bonjour à tous,

Via un courrier Word, j'ouvre ma base access (Set aDB = OpenDatabase("P:\xxxxxx.mdb") puis, après avoir récupéré une variable suite à un choix dans une liste, je "passe" cette variable à Set aRc = aDB.OpenRecordset("MaVariable") pour ouvrir la requête Mavariable.

A ce jour, j'ai x requêtes sur lesquelles je pointe en fonction du choix de la variable MaVariable (mes x requêtes pointent elle-mêmes sur x tables).

Je voudrez essayer de compacter tout cela d'ou ma question :

Je voudrais regrouper les x tables en une seule et je voudrais donc que ma requête initialer comporte un filtre permettant de n'avoir que les enregistrement souhaités : donc est-il possible qu'une requête, dans son critère de filtrage comprenne une variable (qui provienne de Word ou d'ailleurs).

Jusqu'à présent j'ai posé des filtres sur une requête qui provienne d'un champ de formulaire, mais je n'ai pas essayé ceci.

est-ce possible et si oui comment le faire car si je rentre mon nom de variable dans critère, il se met entre côte et est considéré comme du texte.

Merci de votre aide

PS : j'espère avoir été compréhensible

[FRED.G]

est-il possible qu'une requête, dans son critère de filtrage comprenne une variable (qui provienne de Word ou d'ailleurs)

Non. Par conséquent tu devras résoudre ton problème de l'une de ces 3 façons :

- en construisant dynamiquement la clause WHERE de l'instruction SQL que tu passe à la méthode OpenRecordset. Tu fais une concaténation de l'instruction SELECT de base et de ton critère fourni par la variable :

Code :

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

1
2
dim SQL as String
SQL = "SELECT * FROM MATABLE WHERE CHAMP1=""" & VariableCritère & """);"

- en passant par une fonction que tu insères dans ton instruction SQL (statique cette fois) et qui pointe vers la variable du critère. Par exemple :

Code :

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

1
2
3
Public Function GetCritère () as String
  GetCritère = VariableCritère 'Cette variable doit être accessible à GetCritère et à jour au moment où GetCritère est appelée. 
End Function

Code :

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

1
2
dim SQL as String
SQL = "SELECT * FROM MATABLE WHERE CHAMP1=""GetCritère()"");"

- en passant par une requête paramétrée enregistrée (ma solution préférée) :

Code :

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

1
2
3
4
5
6
7
With aDB.queryDefs("NomRequête")
  .Parameters("MonCritère")=VariableCritère 'ici aussi il faut que cette variable soit accessible et à jour au moment de l'appel...*
  .OpenRecordset()
 
...
 
End With