Syntaxe requete sql UNION dans le code VBA

Bonsoir,

Je souhaite faire usage de la fonction "UNION" en code VBA depuis ces trois requêtes sql, je ne trouve pas la syntaxe juste.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

strSql = "Select DISTINCTROW Dates,HP,Lieu,Contact,Société, " & SourceTable & ".* FROM " & SourceTable & " WHERE ((Validation = '" & 1 & "' And N° <> '" & Num.Value & "' And Jour LIKE '" & JOUR.Value & "' and Heure_début <= '" & Heure_Début.Value & "' and Heure_fin > '" & Heure_Début.Value & "'));"   strSql1 = "Select DISTINCTROW Dates,HP,Lieu,Contact,Société, " & SourceTable & ".* FROM " & SourceTable & " WHERE ((Validation = '" & 1 & "' And N° <> '" & Num.Value & "' And Jour LIKE '" & JOUR.Value & "' and Heure_début < '" & Heure_Fin.Value & "' and Heure_fin >= '" & Heure_Fin.Value & "'));"   strSql2 = "Select DISTINCTROW Dates,HP,Lieu,Contact,Société, " & SourceTable & ".* FROM " & SourceTable & " WHERE ((Validation = '" & 1 & "' And N° <> '" & Num.Value & "' And Jour LIKE '" & JOUR.Value & "' and Heure_début >= '" & Heure_Début.Value & "' and Heure_fin <= '" & Heure_Fin.Value & "'));"   Me.Enregistrement_liste_1.RowSource = strSql Me.Enregistrement_liste_1.Requery   Me.Enregistrement_liste_2.RowSource = strSql1 Me.Enregistrement_liste_2.Requery   Me.Enregistrement_liste_3.RowSource = strSql2 Me.Enregistrement_liste_3.Requery

---

Merci pour votre aide.

:salut:

Je ne comprends pas où intervient l'UNION dans tes requêtes.
Peux-tu être plus complet dans tes explications :)

D'autre part, tu peux trouver des exemples de ce type de syntaxes dans les tutos mis à disposition

Exemple : Les listes multifonctions

Bonne continuation

Pour être plus complet, ces trois requêtes effectuées sur la même table affichent des informations dans trois tableaux distincts. Il s'agit de 3 tests.

Je souhaiterais afficher les résultats dans un unique tableau en évitant les doublons car un enregistrement peut entrer dans les plusieurs de 3 test effectués.

Ces test sont des test de conflit pour une heure de démarrage (test1), une heure de fin (test2) et un encadrement des heures de début et de fin (test3)

Merci

Ben , utilise une seule requete un AND et des OR derrière le WHERE ...
Attention à la place des parenthèses, quelquechose comme :

Code:

---

1 2 3 4 5 6

... & " WHERE Validation = '" & 1 & "' And N° <> '" & Num.Value _ & "' And Jour LIKE '" & JOUR.Value _ & "' AND ( (Heure_début <= '" & Heure_Début.Value & "' and Heure_fin > '" & Heure_Début.Value & "')" _ & " OR ( Heure_début < '" & Heure_Fin.Value & "' and Heure_fin >= '" & Heure_Fin.Value & "')" _ OR (Heure_début >= '" & Heure_Début.Value & "' and Heure_fin <= '" & Heure_Fin.Value & "'));"

---

:P