Not in list wont open message box

[dinsey90]

Hi I have tried entering the below code which i got from a you tube video on how to do a not in list code to open a form and add the client to the list. the problem is when i type in to the combo box and hit enter it just allows the new info and doesn't add it to my clients table.

Private Sub Client_Name_NotInList(NewData As String, Response As Integer)
Dim MsgBoxAnswer As Variant


Response = acDataErrContinue


MsgBoxAnswer = MsgBox("Client not in list. Do you want to add this client?", vbYesNo)


If MsgBoxAnswer = vbNo Then
    Me.Client_Name = Null
    DoCmd.GoToControl "Client_Name"
    GoTo exitline
Else
    txtHiddenField = "AddOK"
    DoCmd.OpenForm ("frmAddClient")
    DoCmd.GoToRecord , , acNewRec
    Forms![frmNewQuote]![Client_Name] = NewData
    Me.Client_Name = Null
    DoCmd.GoToControl "Description"
End If


End Sub

[June7]

You open frmAddClient but then you populate field on frmNewQuote - should be frmAddClient.

Set a breakpoint and step debug.

[dinsey90]

Thanks June, the problem is though it doesnt even open a message box when i enter a name thats not in the list, its as if the code isnt even running? Once i type in a name that isnt in the list and hit enter it just goes on to the next cell in the form as if there is no code under Notinlist :/

[June7]

Make sure the combobox NotInList event property has [Event Procedure]. Also, LimitToList property must be Yes.