Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
Bijgaande toevoeg query werkt niet.
MS-Access VBA geeft geen fout aan, maar de query wordt niet uitgevoerd.
Als query werkt het wel?
Wat is er fout in de syntax.
Sytse
MS-Access VBA geeft geen fout aan, maar de query wordt niet uitgevoerd.
Als query werkt het wel?
Wat is er fout in de syntax.
Sytse
Code:
Function MaakQry()
Dim strSQL As String
strSQL = "INSERT INTO Tbl_Wedstrijdschema ( Ronde, [Speler 1], [Speler 2], [Speler 3], Tegen, [tegenspeler 1], [tegenspeler 2], [tegenspeler 3] )" _
& "SELECT Tbl_Schema16spelers.ronde AS Ronde, Qry_GeselecteerdeSpelers.Naam AS [Speler 1], Qry_GeselecteerdeSpelers_1.Naam AS [Speler 2], Qry_GeselecteerdeSpelers_2.Naam AS [Speler 3], tegen AS Tegen, Qry_GeselecteerdeSpelers_3.Naam AS [tegenspeler 1], Qry_GeselecteerdeSpelers_4.Naam AS [tegenspeler 2], Qry_GeselecteerdeSpelers_5.Naam AS [tegenspeler 3]" _
& "FROM Qry_GeselecteerdeSpelers AS Qry_GeselecteerdeSpelers_5 RIGHT JOIN (Qry_GeselecteerdeSpelers AS Qry_GeselecteerdeSpelers_4 RIGHT JOIN (Qry_GeselecteerdeSpelers AS Qry_GeselecteerdeSpelers_3 RIGHT JOIN (Qry_GeselecteerdeSpelers AS Qry_GeselecteerdeSpelers_2 RIGHT JOIN (Qry_GeselecteerdeSpelers AS Qry_GeselecteerdeSpelers_1 RIGHT JOIN (Qry_GeselecteerdeSpelers RIGHT JOIN Tbl_Schema16spelers ON Qry_GeselecteerdeSpelers.Nummertoewijzing = Tbl_Schema16spelers.speler1) ON Qry_GeselecteerdeSpelers_1.Nummertoewijzing = Tbl_Schema16spelers.speler2) ON Qry_GeselecteerdeSpelers_2.Nummertoewijzing = Tbl_Schema16spelers.speler3) ON Qry_GeselecteerdeSpelers_3.Nummertoewijzing = Tbl_Schema16spelers.tegenspeler1) ON Qry_GeselecteerdeSpelers_4.Nummertoewijzing = Tbl_Schema16spelers.tegenspeler2) ON Qry_GeselecteerdeSpelers_5.Nummertoewijzing = Tbl_Schema16spelers.tegenspeler3;"
End Function