Adding Records from one Table to another

[VSolano]

I have the following code where I am trying to copy the value of one table to another and for some reason that I can not figure out, the code is not working


Option Compare Database

Public Function taskschedule()
Dim DB As Database
Dim RS As Recordset
Dim SQL As String
Dim Descr As String


Set DB = CurrentDb
Set RS = DB.OpenRecordset("TbTask", dbOpenDynaset, dbSeeChanges)

Descr = RS!taskdescription

Do Until RS.EOF

SQL = " INSERT INTO tbtaskshedule[taskdescription] VALUES ('" & Descr & "')"


DB.Execute (SQL)

RS.MoveNext

Loop


DB.Close
RS.Close
Set RS = Nothing




End Function

 

[plog]

Define "not working". Error message? Incorrect results? No results? Your computer starts to smoke and give off sparks?

With that said, what is in the variable SQL? Is it a valid INSERT INTO statement?

https://www.w3schools.com/sql/sql_insert.asp

 

[VSolano]

It says invalid inset into statement

The SQL is just a variable to hold the expression

 

[Galaxiom]

Use parentheses instead of brackets.

SQL = " INSERT INTO tbtaskshedule[B][COLOR=red][[/COLOR][/B]taskdescription[B][COLOR=red]][/COLOR][/B] VALUES ('" & Descr & "')"

 

[pbaldy]

Why the loop? Get them all in one go, not RBAR.

INSERT INTO tbtaskshedule(taskdescription)
SELECT taskdescription FROM tblTasks