Discussion :

[CyoEad]

Pour commencer bonjour et merci d'avance pour celui qui prendras le risque de régler mon problème.

Mon sujet problématique:
Je n'arrive pas a faire le transfer de SQL vers VBA car il y a trop de paranthése pour moi ^^.
Je m'explique, j'ai besoin de faire le lien avec ma liste déroulante.

Voici la Bête SQL:

Code sql :

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

1
2
SELECT SYSTEMES.Identifiant, ARTICLES.N°_article, ARTICLES.nom_article, ARTICLES.synthèse, MOC.Numéro_MOC, MOC.Description, [MOC DE L'ARTICLE].Démonstration, [MOC DE L'ARTICLE].[Phrase type]
FROM SYSTEMES INNER JOIN ((CODE INNER JOIN SUBPART ON CODE.Titre_code = SUBPART.Référence_code) INNER JOIN ((MOC INNER JOIN (ARTICLES INNER JOIN [MOC DE L'ARTICLE] ON ARTICLES.N°_BDD_Article = [MOC DE L'ARTICLE].[Référence article]) ON MOC.Numéro_MOC = [MOC DE L'ARTICLE].[Référence MOC]) INNER JOIN [SYSTEMES PAR ARTICLES] ON [MOC DE L'ARTICLE].N°_BDD_MOC_article = [SYSTEMES PAR ARTICLES].Référence_MOC_article) ON SUBPART.N°_BDD_Subpart = ARTICLES.référence_subpart) ON SYSTEMES.Numero_système = [SYSTEMES PAR ARTICLES].Référence_système;

Voila, maintenant ??? triples point d'intérrogation pour le faire passer en VBA

P.S J'ai essayé avec 2 tables pour faire plus simple et ca marche trés bien, vu qu'il n'y a qu'une liaison entre les deux.
Merci encore pour la futur aide ...

[cavo789]

Bonjour

S'il s'agit d'une requête de type action (comme un DELETE, UPDATE, ...), il suffit de faire un DoCMD.RunSQL "" (avec ton SQL entre les double-quotes).

Dans ton cas, il s'agit d'un SELECT traditionnel ==> tu dois t'orienter vers un CurrentDB.OpenRecordSet. Va voir l'aide en ligne de MSAccess.

[CyoEad]

Plus concrétement, je sais que cette requête est de type SELECT, seulement j'aimerais que quelqu'un me fasse la conversion.
Car je suis entrain de me prendre la tête depuis une bonne semaine sur se cas.