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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.