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.
Merci pour votre aide.
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
Partager