Discussion :

[neiluj26]

Bonjour le forum,

J'ai un formulaire avec un bon nombre de contrôles. Ces contrôles me donnent de variables que j'utilise à la fin dans une requête.

Pour éviter d'avoir à réécrire entièrement la requête à chaque fois que j'en ai besoin, j'ai pensé fractionner le code de la requête sur le modèle suivant:

Code sql :

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

1
2
strSQL1 = "SELECT DISTINCT Blablabla FROM qry_1 "
strSQL2 = "WHERE Champ1= '" & str1 & "'"

Ma question est: sachant que str1 de ma chaîne strSQL2 est donnée par la valeur d'une combobox, est-ce qu'il existe un moyen de déclarer tous ces bouts de code en tête de module?

J'ai essayé un bête:

Code sql :

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

Const strSQL2 as String = "WHERE Champ1= '" & str1 & "'"

Mais évidemment, ça ne peut pas fonctionner.

[Tonioyo]

Bonjour,

Ceci ne peut pas fonctionner car une constante est par définition non modifiable. Elle ne doit donc pas comporter de variable. Ici sémantiquement str1 est une variable.

Code :

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

Const strSQL2 AS String = "WHERE Champ1= '" & str1 & "'"

Une solution serrait d'utiliser des méthodes qui renvoient le morceau de requête SQL.

par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function debutDeRequete() As String
    debutDeRequete = "SELECT DISTINCT Blablabla FROM qry_1 "
End Function
 
Public sub constructionDeLaRequete()
   Dim strSql As string
 
   strSql = debutDeRequete() & "WHERE XXX = YYY;"
   doCmd.RunSql strSql
End Sub

il est possible ensuite de jouer sur la visibilité de ces méthodes (Public, Private, etc ...) pour qu'elle puisse s'exécuter que dans un module en particulier par exemple.

Cordialement,

[neiluj26]

Bonjour,

Ah oui, effectivement, cette méthode fonctionne et est plutôt simple. Merci.

Est-ce qu'il y a d'autres façons de faire (simplement par curiosité)?