Discussion :

[fisio]

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.

[Jeannot45]

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

[fisio]

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

[micniv]

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

Code :

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

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 & "'));"