Keep Getting Compile Error #35 - Please Help

[BLBurden]

Sub, Function, or Property not defined (Error 35)

Below is my code: I have (2) codes the other one works but I cant get it to refresh without closing out the form. This one is just suppose to add to the list as you type and put the new data on the table. But it's not working. Will someone please look at this and tell me what I am doing wrong. Thanks.

Private Sub NCType_NotInList(NewData As String, Response As Integer)
On Error GoTo HandleErr

If MsgBox("Would you like to add this item to the list?", _
vbYesNo + vbQuestion, "Item not in list&quot = vbYes Then
Response = AddToList("NCType", "Type", NewData)
Else
Response = acDataErrDisplay
End If

ExitHere:
Exit Sub

HandleErr:
Select Case Err
Case Else
MsgBox Err & ": " & Err.Description, , _
"Form_Facilities Log Edit1_NotInList"
End Select
Resume ExitHere
Resume
End Sub

BLB - Always Grateful
A good friend will bail you out of jail. A true friend will be sitting at your side saying, "Boy - didn't we have fun?"

 

[GTLoco99]

The problem is with your AddToList function. Is this a function you wrote?

Response = AddToList("NCType", "Type", NewData)

Thanks
GTLoco

 

[BLBurden]

Thanks GTL, for your response. Not this is not a function I wrote, I saw it in sample database that access put out. But I have found the problem and corrected it, and it's works fine now.

Thanks again for your response.

BLB - Always Grateful
A good friend will bail you out of jail. A true friend will be sitting at your side saying, "Boy - didn't we have fun?"