1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Public Sub DoSQL()
Dim qry1 As String
Dim qry2 As String
qry1 = "SELECT [Architectures-besoins].Architecture, [Materiel pour architecture].ID_materiel, [Materiel pour architecture].Pondération, Materiel.Materiel"
FROM Materiel INNER JOIN ([Architectures-besoins] INNER JOIN [Materiel pour architecture] ON [Architectures-besoins].Architecture = [Materiel pour architecture].Architecture) ON Materiel.ID = [Materiel pour architecture].ID_materiel
WHERE ((([Architectures-besoins].Besoin)="Automatic filling of the application"))"
qry2 = "SELECT [Pour un besoin donné quel matériel est nécessaire].Pondération, [Pour un besoin donné quel matériel est nécessaire].Architecture, [Pour un besoin donné quel matériel est nécessaire].ID_materiel, [Pour un besoin donné quel matériel est nécessaire].Materiel"
FROM [Pour un besoin donné quel matériel est nécessaire]
WHERE ((([Pour un besoin donné quel matériel est nécessaire].Pondération)=DMax("Pondération","Pour un besoin donné quel matériel est nécessaire")))"
DoComd.RunSQL qry1
DoComd.RunSQL qry2
End Sub |
Partager