Suppressing NotInList msg in ComboBox [** RESOLVED **]

[M Owen]

Hi all.

This one is bugging me ... I'm running Access 2000 and have a form that I want to allow adding of an account number thru the NotInList event of the combobox. That all works fine BUT! when I return from the routine that adds the acct # and refreshes the combobox the blasted default "Not in list " message still pops up even tho I have my own custom message box ... Any ideas of what I'm missing or got out of sequence?

Here's my event procedure:

Private Sub AccountComboBox_NotInList(NewData As String, Response As Integer)
 Dim MsgVal As VbMsgBoxResult
    
    MsgVal = MsgBox(NewData & " is not a recognized account number. Do you wish to add it?", vbYesNo, "System Monitor")
    If MsgVal = vbYes Then
        Response = acDataErrAdded
        CheckThisAccountNumber (NewData)
        NewData = ""
        AccountComboBox_AfterUpdate
        Exit Sub
    Else
        AccountComboBox.SelStart = 0
        AccountComboBox.SelLength = Len(CustomerComboBox)
    End If
    Response = acDataErrContinue
End Sub 

Thanks for taking a look ...

- Mike

[Matt_T_hat]

There are people who would very much like to know how you solved that one. I'm one such person.

[M Owen]

Everyone! See my other related post on this subject ...

http://www.vbforums.com/showthread.p...hreadid=255978

- Mike

[M Owen]

UPDATE:

Here is my updated NotInList method ... It works now ...

Private Sub AccountComboBox_NotInList(NewData As String, Response As Integer)
    Dim MsgVal As VbMsgBoxResult, AcctID As Long
    
    MsgVal = MsgBox(NewData & " is not a recognized account number. Do you wish to add it?", vbYesNo, "System Monitor")
    If MsgVal = vbYes Then
        AcctID = CheckThisAccountNumber(NewData)
        Call FillTheAccountComboBox
        AccountComboBox.Value = AcctID
        AccountComboBox_AfterUpdate
    Else
        AccountComboBox.SelStart = 0
        AccountComboBox.SelLength = Len(AccountComboBox)
        AccountComboBox.Text = ""
        AccountComboBox.Value = ""
    End If
    Response = DATA_ERRCONTINUE
End Sub 

The change was not setting the Response value to DataErrAdded.
The other significant properties of this combobox is that it's a Value List ... That also makes a difference. I'm not doing Requery actions on it ... I reconstuct the entire list with each NotInList item ...

- Mike