dbs.Execute SQL string

[DavidPage]

I am trying to execute a INSERT INTO string with dbs.execute to eliminate user from having to select yes for every action query prompt but keep getting Run-time error 3061. Too few parameters. expected 1.

Can anyone point out what I am doing wrong here? Thanks!


Private Sub Command25_Click()
Dim dbs As DAO.Database

Set dbs = CurrentDb
If IsNull(EmployeeIdComboBox) = True Then


MsgBox ("Employee ID is NULL")
Exit Sub

Else
End If

If Me.Training1 = True Then
dbs.Execute "INSERT INTO EmployeeTrainings (EmployeeID,TrainingID) VALUES (EmployeeIdComboBox,1)"

Else
End If
'remaining trainings 2 thru 27 will be added here
End Sub

[jwhite]

With that small code snippet, try:

dbs.Execute "INSERT INTO EmployeeTrainings (EmployeeID,TrainingID) VALUES (" & Me.EmployeeIdComboBox & ",1)"

[pbaldy]

jwhite has answered the question, but FYI you could do it in one SQL statement if you have a table with the 27 training ID's in it.

[DavidPage]

[ removed ]

[DavidPage]

jwhite has answered the question, but FYI you could do it in one SQL statement if you have a table with the 27 training ID's in it.

jwhite - thank you!

pbaldy - I have a form with a combo box that provides EmployeeId from a table then a series of check boxes each representing trainings. My goal is to select an employee then trainings and append to a employee trainings table with one click. Is it possible to do this in one SQL statement?

[pbaldy]

Sorry, I missed that you were testing a checkbox. I don't think that can be done in one go. If you used a listbox:

http://www.baldyweb.com/MultiselectAppend.htm

[DavidPage]

Sorry, I missed that you were testing a checkbox. I don't think that can be done in one go. If you used a listbox:

http://www.baldyweb.com/MultiselectAppend.htm

No worries, I didn't state that so my fault. List box would have been a good idea though! Thanks for the help.