SQL omzetten naar VBA

[kloer]

Beste experts,

Ik heb mijn database voor examenplanning bijna klaar alleen nog het volgende, ik heb een toevoegquery gemaakt waarvan hieronder de SQL-code staat:

INSERT INTO [Tbl-Studenten] ( Klas, Klascode, Coachnr, [LL-ID], Voornaam, Tussenvoegsel, Achternaam, Geslacht, Leerlingnummer, Gebruikersnaam, Wachtwoord, Leerweg, Crebonr, Vooropleiding, Postcode, Locatiecode, Dyslexie, Dyscalculie, Huisadres, [Postcode/plaats], [MBO-niveau], Geboortedatum )
SELECT [Studenten import].Klas, [Studenten import].Klascode, [Studenten import].Coachnr, [Studenten import].[LL-ID], [Studenten import].Voornaam, [Studenten import].Tussenvoegsel, [Studenten import].Achternaam, [Studenten import].Geslacht, [Studenten import].Leerlingnummer, [Studenten import].Gebruikersnaam, [Studenten import].Wachtwoord, [Studenten import].Leerweg, [Studenten import].Crebonr, [Studenten import].Vooropleiding, [Studenten import].Postcode, [Studenten import].Locatiecode, [Studenten import].Dyslexie, [Studenten import].Dyscalculie, [Studenten import].Huisadres, [Studenten import].[Postcode/plaats], [Studenten import].[MBO-niveau], [Studenten import].Geboortedatum
FROM [Studenten import];

Ik wil deze SQL graag omzetten naar een VBA-code om daar nog andere opdrachten aan toe te voegen.

Alle hulp is welkom
Vriendelijke groet,
Klaas

 

[OctaFish]

Heel simpel: maak een variabele, en wijs de complete string toe aan de variabele. Voer die vervolgens uit.

Dim strSQL As String
strSQL = "INSERT INTO [Tbl-Studenten] " _
    & "( Klas, Klascode, Coachnr, [LL-ID], Voornaam, Tussenvoegsel, Achternaam, Geslacht,  " _
    & "Leerlingnummer, Gebruikersnaam, Wachtwoord, Leerweg, Crebonr, Vooropleiding,  " _
    & "Postcode, Locatiecode, Dyslexie, Dyscalculie, Huisadres, [Postcode/plaats], [MBO-niveau], Geboortedatum ) " _
    & "SELECT Klas, Klascode, Coachnr, [LL-ID], Voornaam, Tussenvoegsel, Achternaam, Geslacht,  " _
    & "Leerlingnummer, Gebruikersnaam, Wachtwoord, Leerweg, Crebonr, Vooropleiding, Postcode,  " _
    & "Locatiecode, Dyslexie, Dyscalculie, Huisadres, [Postcode/plaats], [MBO-niveau], Geboortedatum FROM [Studenten import];"
CurrentDb.Execute strSQL

 

[kloer]

Hallo OctaFish,
Bedankt voor alle hulp. Het werk allemaal uitstekend

Groet
Klaas