Access 2003
Error: Syntax Error in INSERT INTO Statement
///////////////////////////////////////////////
Private Sub Add_Training_Records_Click()
Dim Dbs As DAO.Database
Set Dbs = CurrentDb
Dbs.Execute "INSERT INTO Table_Group_Training_History ( Course_Name, Course_Description, Hours_Offered, Supervisor_SSN, Type_Of_Training, From_Date_Training, Supervisor_Name )" _
& " SELECT Query_Find_Course_Name_Information.Course_Name," _
& " Query_Find_Course_Name_Information.Course_Description," _
& " Query_Find_Course_Name_Information.Number_Of_Hours_Offered," _
& " '" & Forms!Add_Training_Record![Supervisor_SSN] & "' AS Expr1," _
& " '" & Forms!Add_Training_Record![Type_Of_Training_Combo_Box_2] & "' AS Expr2," _
& " '" & Forms!Add_Training_Record![From_Date] & "' AS Expr3," _
& " '" & Forms!Add_Training_Record![Current_User] & "' AS Expr4," _
& " FROM Query_Find_Course_Name_Information;"
Dbs.Close
End Sub
Error: Syntax Error in INSERT INTO Statement
///////////////////////////////////////////////
Private Sub Add_Training_Records_Click()
Dim Dbs As DAO.Database
Set Dbs = CurrentDb
Dbs.Execute "INSERT INTO Table_Group_Training_History ( Course_Name, Course_Description, Hours_Offered, Supervisor_SSN, Type_Of_Training, From_Date_Training, Supervisor_Name )" _
& " SELECT Query_Find_Course_Name_Information.Course_Name," _
& " Query_Find_Course_Name_Information.Course_Description," _
& " Query_Find_Course_Name_Information.Number_Of_Hours_Offered," _
& " '" & Forms!Add_Training_Record![Supervisor_SSN] & "' AS Expr1," _
& " '" & Forms!Add_Training_Record![Type_Of_Training_Combo_Box_2] & "' AS Expr2," _
& " '" & Forms!Add_Training_Record![From_Date] & "' AS Expr3," _
& " '" & Forms!Add_Training_Record![Current_User] & "' AS Expr4," _
& " FROM Query_Find_Course_Name_Information;"
Dbs.Close
End Sub