Hello,

I want to change this working SQl:

INSERT INTO Wachtlijstdeelnemers ( Personeelsnummer, Cursusnummer )
SELECT Cursusdeelnemers.Personeelsnummer, Cursusplanning.Cursusnummer
FROM Cursusplanning INNER JOIN Cursusdeelnemers ON Cursusplanning.Planningsnummer = Cursusdeelnemers.Planningsnummer
WHERE (((Cursusdeelnemers.Planningsnummer)=me.lst.cursus planningen.column(0)));

into vba code:

strSQL2 = "Insert into wachtlijstdeelnemers (personeelsnummer, cursusnummer ) &_"

SELECT "Cursusdeelnemers.Personeelsnummer, Cursusplanning.Cursusnummer &_"

FROM Cursusplanning INNER JOIN Cursusdeelnemers ON &_

Cursusplanning.Planningsnummer = Cursusdeelnemers.Planningsnummer &_

WHERE (((Cursusdeelnemers.Planningsnummer =me.lst.cursusplanningen.column(0)));

CurrentDb.Execute strSQL

But this is not working ...

Can somebody tell me what is wrong with this statement?

Thanks in advance,
Sven.

The code will only work in a form and you need to move the control reference outside of the quotes.
"WHERE (((Cursusdeelnemers.Planningsnummer =" & me.lst.cursusplanningen.column(0) & "));"

...if Planningsnummer is a number.

Hello,

I think there are more errors in my code than the last line.
I have made the changes that you have wrote but I still get a fault.

Dim strSQL2 As String

strSQL2 = "Insert into wachtlijstdeelnemers (personeelsnummer, cursusnummer ) " &_
" SELECT Cursusdeelnemers.Personeelsnummer, Cursusplanning.Cursusnummer " &_
" FROM Cursusplanning INNER JOIN Cursusdeelnemers ON Cursusplanning.Planningsnummer = Cursusdeelnemers.Planningsnummer " &_
" WHERE (((Cursusdeelnemers.Planningsnummer =" & me.lst.cursusplanningen.column(0) & "));";

CurrentDb.Execute strSQL

It looks like you added another LeftParen and a SemiColon.
" WHERE (((Cursusdeelnemers.Planningsnummer =" & me.lst.cursusplanningen.column(0) & "));";
...remove them and try it.