Associer les résultats d'une requête

[fisio]

Je souhaite faire apparaître les résultats dans une listebox unique depuis ce code.

Je tiens à préciser que les tables ont les mêmes structures.

Très cordialement

Code :

1
2
3
4
5
6
7
8
9
10
 
SourceTable = "[Planning_" & Employé.Value & "]"
SourceTable1 = "[Planning_" & Invité_1.Value & "]"
SourceTable2 = "[Planning_" & Invité_2.Value & "]"
 
If JH_1.Value = JH_2.Value And Jh_3.Value <> Jh_4.Value Then
 
strSql = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable & ".* FROM " & SourceTable & " WHERE ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_2 <= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 <= Jh_3.Value And Jh_2 >= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 < Jh_3.value And Jh_2 >= Jh_3.value));"
strSql1 = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable1 & ".* FROM " & SourceTable & " WHERE ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_2 <= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 <= Jh_3.Value And Jh_2 >= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 < Jh_3.value And Jh_2 >= Jh_3.value));"
strSql2 = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable2 & ".* FROM " & SourceTable & " WHERE ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_2 <= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 <= Jh_3.Value And Jh_2 >= Jh_4.value)OR(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 < Jh_3.value And Jh_2 >= Jh_3.value));"

[Simplifi]

Hello
il serait utile de préciser quel prroblème précis tu rencontres !!

[fisio]

Simplement d'afficher les résultats de ces trois requêtes dans un unique tableau.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
strSql = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable & ".* FROM " & SourceTable & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value));"
 
Me.Enregistrement_liste_1.RowSource = strSql
Me.Enregistrement_liste_1.Requery
 
strSql = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable1 & ".* FROM " & SourceTable1 & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value));"
 
Me.Enregistrement_liste_2.RowSource = strSql
Me.Enregistrement_liste_2.Requery
 
strSql = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable2 & ".* FROM " & SourceTable2 & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value));"
 
Me.Enregistrement_liste_3.RowSource = strSql
Me.Enregistrement_liste_3.Requery

[Simplifi]

Hello
soit tu veux alternativement afficher l'un de ces trois SQL dans une même liste, alors il te suffit d'utliser le rowsource d'une seule liste
soit tu veux mélanger les lignes des trois SQL dans la même requête, alors tu dois faire une UNION

[fisio]

Comment faire usage de la fonction UNION pour cet exemple ?

[Jack78960]

Bonjour,

Code :

1
2
3
4
5
6
7
 strSqlTout = "Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable & ".* FROM " & SourceTable & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value)) "						
	"Union All " & _
	"Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable1 & ".* FROM " & SourceTable1 & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value)) "
	"Union All " & _
	"Select DISTINCTROW " & " Employé, Types, Jour_1, Horaires_1, Jour_2, Horaires_2, " & SourceTable2 & ".* FROM " & SourceTable2 & " WHERE  ((N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_1 >= Jh_3.Value And Jh_1 < Jh_4.value)or(N° <> '" & N°.Value & "' And Validation = '" & 1 & "' And Jh_2 <= Jh_2.Value And Jh_2 > Jh_1.value));"
Me.Enregistrement_liste_Tout.RowSource = strSqlTout
Me.Enregistrement_liste_Tout.Requery

[Jack78960]

Bien sur les enregistrement du formulaire ne seront pas modifiable