SQL omzetten naar VBA

Status
Niet open voor verdere reacties.

kloer

Gebruiker
Lid geworden
21 mrt 2013
Berichten
20
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
 
Heel simpel: maak een variabele, en wijs de complete string toe aan de variabele. Voer die vervolgens uit.
Code:
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
 
Laatst bewerkt:
Hallo OctaFish,
Bedankt voor alle hulp. Het werk allemaal uitstekend

Groet
Klaas
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan