1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| SQL = "SELECT [Demande d'achat].N°, [Demande d'achat].[N° de DC], [Demande d'achat].[N° de DA], [Demande d'achat].[Prix total], "
SQL = SQL & "Fournisseurs.Fournisseur, Imputation.Imputation, "
SQL = SQL & "Demandeur.Demandeur FROM Imputation "
SQL = SQL & "INNER JOIN (Fournisseurs INNER JOIN (Demandeur INNER JOIN [Demande d'achat] "
SQL = SQL & "ON Demandeur.N° = [Demande d'achat].[Demandeur N°]) "
SQL = SQL & "ON Fournisseurs.[N° Fournissuer] = [Demande d'achat].[Fournisseur N°]) "
SQL = SQL & "ON Imputation.N° = [Demande d'achat].Imputation Where [Demande d'achat].N°<>0 "
'If Not Me.chkAuteur Then
'SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
'End If
If Not Me.chkImputation Then
SQL = SQL & "And Imputation.Imputation = """ & Me.cmbRechImputation & """"
End If
'If Not Me.chkResume Then
'SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
'End If
If Not Me.chkDemandeur Then
SQL = SQL & "And Demandeur.Demandeur = """ & Me.cmbRechDemandeur & """"
End If
If Not Me.chkFournisseur Then
SQL = SQL & " And Fournisseurs.Fournisseur = """ & Me.cmbRechFournisseur & """"
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & "ORDER BY [Demande d'achat].[N° de DC] ASC"
SQL = SQL & ";" |