Not In List event help

[d9pierce1]

Hi all,
I am trying to create a not in list event where it puts the value of a combo box and the new data into the table.
Getting error 3061 (too few parameters)
Just not sure how to write this...


I want to put the value of the CboCatagory (ID#) and the new data into CatagorySubTbl when an item is added to the list that is not currently in the list.
My belief is its in my string but just need some help crossing the finish line here please...

Private Sub CboCatagorySub_NotInList(NewData As String, Response As Integer)
Dim strsql As String, x As Integer
x = MsgBox("Sub Catagory is Not in Current List, Would you Like to Add?", vbYesNo)
If x = vbYes Then
    strsql = "INSERT INTO CatagorySubTbl (CatagoryID, CatagorySubName) " & _
        "VALUES (" & CboCatagory & ", " & NewData & ")"
    'MsgBox strsql
   CurrentDb.Execute strsql, dbFailOnError
    Response = acDataErrAdded
Else
    Response = acDataErrContinue
End If
End Sub

[Gicu]

NewData is a string so maybe (wrapped in single quotes):

strsql = "INSERT INTO CatagorySubTbl (CatagoryID, CatagorySubName) " & _
        "VALUES (" & CboCatagory & ", '" & NewData & "')"

Cheers,

[Welshgasman]

Is NewData a string?
Here is my one and only NotInList event

Private Sub Crew_ID_NotInList(NewData As String, Response As Integer)
'Dim strSurname As String
'NewData = Left(NewData, InStr(NewData, " ") - 1)
'Response = AddNewToList(mixed_case(NewData), "Crew", "Surname", "Crews", "frmCrew")
    Dim txtSurname As String, txtInitials As String, strPKField As String
    Dim intNewID As Long
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String

    Response = acDataErrContinue

    If MsgBox(NewData & " is not in list. Add it?", vbYesNo) = vbYes Then

        strSQL = "SELECT * from  Crew WHERE 1 = 0"
        Set db = CurrentDb()
        Set rs = db.OpenRecordset(strSQL)
        txtSurname = Left(mixed_case(NewData), InStr(1, NewData, " ") - 1)
        txtInitials = UCase(Trim(Mid(NewData, InStr(1, NewData, " ") + 1)))

        rs.AddNew
        rs!Surname = txtSurname
        rs!Initials = txtInitials
        strPKField = rs(0).Name                  'Find name of Primary Key (ID) Field
        rs.Update

        rs.Move 0, rs.LastModified
        intNewID = rs(strPKField)

        'DoCmd.OpenForm strNewForm, , , strPKField & "=" & intNewID
        
        Response = acDataErrAdded
MyExit:
        rs.Close
        Set rs = Nothing
        Set db = Nothing
    Else
        Response = acDataErrDisplay
    End If
End Sub

[d9pierce1]

Thank you so much~
Worked like a charm!~
Dave