R
Richard
Hi
Appreciate if you will help me with this code. Now it returns an error,
Runtime error '3601' too few parameters, expected 2.
Thanks in advance.
Richard
Private Sub CmdInsert_Click()
Dim DB As DAO.database
Dim EnrolID As Integer
Dim PartID As Integer
EnrolID = Me.EnrolmentID
PartID = Me.cmbPart
Set DB = CurrentDb
DB.Execute ("INSERT INTO [Enrolment/Participant] " & _
"VALUES (EnrolID,PartID)")
Set DB = Nothing
End Sub
--
Appreciate if you will help me with this code. Now it returns an error,
Runtime error '3601' too few parameters, expected 2.
Thanks in advance.
Richard
Private Sub CmdInsert_Click()
Dim DB As DAO.database
Dim EnrolID As Integer
Dim PartID As Integer
EnrolID = Me.EnrolmentID
PartID = Me.cmbPart
Set DB = CurrentDb
DB.Execute ("INSERT INTO [Enrolment/Participant] " & _
"VALUES (EnrolID,PartID)")
Set DB = Nothing
End Sub
--