Traduction en VBA d'une requête Sélection SQL sur plusieurs tables

Version imprimable

Bonjour à tous,
Depuis un bon moment je cherche en vain une solution à mon problème, n'ayant pas trouver, je demande votre aide. (Je précise que je débute)

Voilà je cherche à écrire une procédure sous VBA Access, permettant une recherche multicritères sur plusieurs tables.
Qui doit envoyer le résultat d'une requête sélection dans une listbox d'un formulaire.
Problème, j'ai vu qu'on ne peut pas utiliser la commande docmd.Runsql pour une requête sélection.
Voici le code SQL de la requête qui par ailleurs fonctionne :

Code:

1
2
SELECT [Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Table générale].[Date de la commande], [Table générale].[Date à laquelle  la tâche doit être réalisée], [Table générale].[Travail en binome], [Listes Agent 1].[Prénom des agents] AS Agents, [Etat d'avancement].[Etat d'avencement], [Table générale].[Suivi de l'activité]
FROM [Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON [Liste Agents 2].N° = [Table générale].[Agent 2]) ON [Liste domaines].N° = [Table générale].Domaine) ON [Listes Agent 1].N° = [Table générale].[Agent 1];

Voici le code VBA du formulaire : message d'erreur au niveau SQL="docmd.runSQL.....

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub RefreshRequery()      'Procédure Moteur de recherche
Dim SQL As String                 'SQL désigne en fait la variable qui reçoit la requête
SQL = "DoCmd.RunSQL("SELECT [Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Table générale].[Date de la commande], [Table générale].[Date à laquelle  la tâche doit être réalisée], [Table générale].[Travail en binome], [Listes Agent 1].[Prénom des agents] AS Agents, [Etat d'avancement].[Etat d'avencement], [Table générale].[Suivi de l'activité] FROM [Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON [Liste Agents 2].N° = [Table générale].[Agent 2]) ON [Liste domaines].N° = [Table générale].Domaine) ON [Listes Agent 1].N° = [Table générale].[Agent 1];")"
If Me.chkNoms Then
   SQL = SQL & "And Listes Agent 1!Prenom des agents like '*& Me.cmbRechNoms &*'"
End If
If Me.chkDomaines Then
   SQL = SQL & "And Liste domaines!Domaine like '*& Me.cmbRechDomaines &*'"
End If
If Me.chkAvancement Then
    SQL = SQL & "And Etat d'avancement!Etat d'avencement like '*& Me.cmbRechAvancement &*'"
End If
SQL = SQL & ";"
Me.lstRésultats.RowSource = SQL
Me.lstRésultats.Requery
End Sub
 
Private Sub cmbRechAvancement_BeforeUpdate(Cancel As Integer)
Me.cmbRechAvancement.Visible = Not Me.cmbRechAvancement.Visible
RefreshRequery
End Sub
 
Private Sub chkNoms_Click()
Me.cmbRechNoms.Visible = Not Me.cmbRechNoms.Visible
RefreshRequery
 
End Sub
 
Private Sub chkDomaines_Click()
Me.cmbRechDomaines.Visible = Not Me.cmbRechDomaines.Visible
RefreshRequery
 
End Sub
 
Private Sub chkAvancement_Click()
Me.cmbRechAvancement.Visible = Not Me.cmbRechAvancement.Visible
RefreshRequery
 
End Sub
 
Private Sub cmbRechNoms_BeforeUpdate(Cancel As Integer)
Me.cmbRechNoms.Visible = Not Me.cmbRechNoms.Visible
RefresRequery
End Sub
 
Private Sub cmbRechDomaines_BeforeUpdate(Cancel As Integer)
Me.cmbRechDomaines.Visible = Not Me.cmbRechDomaines.Visible
RefreshRequery
End Sub

Merci d'avance pour votre aide.

23/10/2009, 17h41
Muhad'hib
Salut et bienvenu sur le forum,

Il te faut juste mettre
Code:

1 2 SQL = " SELECT[Liste ....
Parcontre, tu aurais trouver en recherchant un peu (en particulier sur cet exemple de recherche multicritaire)
De plus merci d'utiliser les balises de code.

Bonjour Muhad'hib,

C'est justement sur le code du lien que tu indiques que j'ai construit mon code, le seul problème c'est que :

Code:

&SQL = " SELECT[Liste ....

marche bien lorsque les champs appartiennent à une même table non ? Dans ma requête ce n'est pas le cas.
Code:

1 2 SELECT [Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Table générale].[Date de la commande], [Table générale].[Date à laquelle la tâche doit être réalisée], [Table générale].[Travail en binome], [Listes Agent 1].[Prénom des agents] AS Agents, [Etat d'avancement].[Etat d'avencement], [Table générale].[Suivi de l'activité] FROM [Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON [Liste Agents 2].N° = [Table générale].[Agent 2]) ON [Liste domaines].N° = [Table générale].Domaine) ON [Listes Agent 1].N° = [Table générale].[Agent 1];
Dans ma construction j'ai une table générale liée à "d'autres petites tables" (qui servent pour mes menus déroulants)
Merci en tout d'avoir pris le temps de répondre.

Bonjour,

Enlève DoCmd.RunSQL
Le code SQL est du texte, que tu affectes à une variable de type String en le délimitant par des guillemets doubles (").
Par ailleurs, il ne faut pas mettre le point-virgule. Tu ne l'ajoutes qu'à la fin.
Il faut une clause WHERE. J'ai mis WHERE True pour que le code puisse ajouter d'autres conditions.
Les noms de tables et de champs doivent être encadrés pas des crochets droits s'ils contiennent des espaces ou des caractères réservés.
On peut aussi mettre les crochets droits de manière systématique.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub RefreshRequery() 'Procédure Moteur de recherche
Dim SQL As String 'SQL désigne en fait la variable qui reçoit la requête
 
SQL = "SELECT[Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Table générale].[Date de la commande], [Table générale].[Date à laquelle la tâche doit être réalisée], [Table générale].[Travail en binome],[Listes Agent 1].[Prénom des agents] AS Agents, [Etat d'avancement].[Etat d'avencement], [Table générale].[Suivi de l'activité] " & _
      "FROM[Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON[Liste Agents 2].N° = [Table générale].[Agent 2]) ON[Liste domaines].N° = [Table générale].Domaine) ON[Listes Agent 1].N° = [Table générale].[Agent 1] " & _
      "WHERE True" 	  
 
If Me.chkNoms Then
SQL = SQL & " And [Listes Agent 1].[Prenom des agents] like '*" & Me.cmbRechNoms & "*'"
End If
If Me.chkDomaines Then
SQL = SQL& " And [Liste domaines].[Domaine] like '*" & Me.cmbRechDomaines & "*'"
End If
If Me.chkAvancement Then
SQL = SQL & " And [Etat d'avancement].[Etat d'avencement] like '*" & Me.cmbRechAvancement & "*'"
End If
SQL = SQL & ";"
Me.lstRésultats.RowSource = SQL
Me.lstRésultats.Requery
End Sub

A+

23/10/2009, 19h04
loufab

Bonjour et bienvenue !

Le SQL comme le français et beaucoup plus conpréhensible avec des espaces ou il faut. En tout cas ACCESS va beaucoup plus apprécier.

Ceci étant dit.

Une fois que tu as placer le ; dans une requete SQL cela indique la fin... définitive de la syntaxe SQL. Inutile d'essayer d'y coller des choses derrière.

Les conditions se font après le mot clef WHERE.

Tu as un exemple de construction de requete dynamique dans plusieurs tuto sur la recherche (c'est à la page Cours).

Pourquoi ne pas construire une requete dans le générateur avec quelques conditions puis avec le tuto (débogage de requete en VBA) la transférer.

Comme tu le vois autant SQL que VBA sont des langages qui ne s'improvisent pas.

Cordialement,

Bonjour LedzepII,

et merci pour ta réponse
J'ai créé un formulaire tout simple pour tester ton code :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub RefreshRequery()      'Procédure Moteur de recherche
Dim SQL As String
SQL = "SELECT[Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Table générale].[Date de la commande], [Table générale].[Date à laquelle la tâche doit être réalisée], [Table générale].[Travail en binome],[Listes Agent 1].[Prénom des agents] AS Agents, [Etat d'avancement].[Etat d'avencement], [Table générale].[Suivi de l'activité] " & _
      "FROM[Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON[Liste Agents 2].N° = [Table générale].[Agent 2]) ON[Liste domaines].N° = [Table générale].Domaine) ON[Listes Agent 1].N° = [Table générale].[Agent 1] " & _
      "WHERE True"
 
Me.lstRésultats.RowSource = SQL
Me.lstRésultats.Requery
 
End Sub

Malheureusement je n'ai aucun résultat dans le lstRésultats alors que la requête construire avec l'assistant requête d'Access( donc sans le "whrere true" dans le code SQL), fonctionne parfaitement.
Où est donc le probléme?

26/10/2009, 14h16
loufab

Le générateur te corrige les espaces pas VBA.

Mince ! il me semble que je me répète sur l'affaire des espaces... 8O

Code:

Where true

Je ne vois pas bien ou ça peut mener ce genre de syntaxe. Tu remarqueras qu'avec ou sans ça fonctionne dans le générateur. ;)
26/10/2009, 19h02
LedZeppII

Bonsoir,

Citation:

Envoyé par loufab

Code:

Where true

Je ne vois pas bien ou ça peut mener ce genre de syntaxe.

Ça permet de concaténer directement les critères " And critère" sans se poser de questions.

Si aucun critère, ne reste que

Code:

Where True

<=> pas de clause Where.

S'il y a des critères

Code:

Where True And Critère1 [And Critère2 [...]]

Le True derrière Where est donc un critère fictif toujours Vrai.

Ça reste dans l'esprit du tuto de Caféine où la chaîne SQL de base comporte un critère toujours vrai

Code:

Where Medias!CodMedia <> 0

J'ai fait pareil, mais en plus succinct, en remplaçant le critère par le résultat de son évaluation.

A+
27/10/2009, 08h54
loufab

Bonjour,
Oups ! J'ai réagis au dernier post de fajitas. C'est vrai que dans son contexte original c'est plus compréhensible.

Reste ce problème d'espaces où avec ou sans le where true cela ne risque pas de changer grand chose.

Bonjour,

Je n'ai toujours pas compris l'utilisation du générateur d'expression et le transfert du code SQL dans VBA (notamment pour éviter les erreurs de synthaxe, espaces, guillemets et autres...). Je suis pressé par le temps j'y reviendrai plus tard j'ai téléchagé le tutoriel Ad Hoc.

En attendant voici la solution (code SQL) que j'ai trouvée et qui fonctionne.

Code:

1
2
3
4
SELECT [Listes Agent 1].[Prénom des agents] AS Agent1, [Table générale].[Travail en binome] AS Binôme, [Liste Agents 2].[Prénom des agents] AS Agent2, [Liste domaines].Domaine, [Table générale].[Intitulé de l'affaire], [Table générale].[Nature de la Tâche], [Etat d'avancement].[Etat d'avancement], [Table générale].[Date de la commande], [Table générale].[Date à laquelle  la tâche doit être réalisée], [Table générale].[Suivi de l'activité]
FROM [Listes Agent 1] INNER JOIN ([Liste domaines] INNER JOIN ([Liste Agents 2] INNER JOIN ([Etat d'avancement] INNER JOIN [Table générale] ON [Etat d'avancement].N° = [Table générale].[Etat d'avancement]) ON [Liste Agents 2].N° = [Table générale].[Agent 2]) ON [Liste domaines].N° = [Table générale].Domaine) ON [Listes Agent 1].N° = [Table générale].[Agent 1]
WHERE ((([Listes Agent 1].[Prénom des agents])=IIf([Formulaires]![Copie de Menu2]![chkNoms],[Formulaires]![Copie de Menu2]![cmbRechNoms],[Listes Agent 1]![Prénom des agents])) AND (([Liste domaines].Domaine)=IIf([Formulaires]![Copie de Menu2]![chkDomaines],[Formulaires]![Copie de Menu2]![cmbRechDomaines],[Liste domaines]![Domaine])) AND (([Etat d'avancement].[Etat d'avancement])=IIf([Formulaires]![Copie de Menu2]![chkAvancement],[Formulaires]![Copie de Menu2]![cmbRechAvancement],[Etat d'avancement]![Etat d'avancement]))) OR ((([Table générale].[Travail en binome])=Yes) AND (([Liste Agents 2].[Prénom des agents])=[Formulaires]![Copie de Menu2]![cmbRechNoms]))
ORDER BY [Liste domaines].Domaine;

Merci à tous ceux qui ont pris le temps de s'intéresser à mon problème.