event NotInList triggert niet

Private Sub Cbbverwijzend_arts_NotInList(NewData As String, Response As Integer)
        Dim msg As String, CR As String, strSQL As String, Result As Variant
        CR = Chr$(13)
        NewData = Me.naam
        If NewData = "" Then Exit Sub
            msg = "'" & NewData & "' staat niet in de lijst." & CR & CR
            msg = msg & "Wil je ´" & NewData & "´ toevoegen?"
    
            If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then
                DoCmd.OpenForm ("Dokter_nieuw"), , DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=NewData & "|Dokter toevoegen"
            End If
            Result = DLookup("[naam]", "dokter", "[Naam]=""" & NewData & """")
            If IsNull(Result) Then
                Response = acDataErrContinue
            Else
                Response = acDataErrAdded
                Me.Cbbopmerking = Result
            End If
        End If
End Sub