disable default message (NotInList)

[FlyingDragon via AccessMonster.com]

hi all
i get the following code to add items in my combobox
it works fine
my problem is the default access message still appear if i click NO
Any help plz?


Private Sub DesID_NotInList(NewData As String, Response As Integer)
Dim strMsg As String
Dim rst As DAO.Recordset
Dim db As DAO.Database

strMsg = "'" & NewData & "' is not in the list. "
strMsg = strMsg & "Would you like to add it?"

If vbNo = MsgBox(strMsg, vbYesNo + vbQuestion, "desid") Then

Response = acDataErrDisplay

Else

Set db = CurrentDb()
Set rst = db.OpenRecordset("CrimesDes")

rst.AddNew
rst("CrimeDes") = NewData
rst.Update
Response = acDataErrAdded
rst.Close

End If

 

[Benjamins via AccessMonster.com]

Hi,

Try acDataErrContinue instead of acDataErrDisplay
acDataErrContinue: Doesn't display the default message to the user
acDataErrDisplay: Displays the default message to the user.

 

[Douglas J. Steele]

You may also want to put

Me.DesID.Undo

in the No branch of the If statement.

 

[FlyingDragon via AccessMonster.com]

Hi,

Try acDataErrContinue instead of acDataErrDisplay
acDataErrContinue: Doesn't display the default message to the user
acDataErrDisplay: Displays the default message to the user.

hi all
i get the following code to add items in my combobox

[quoted text clipped - 26 lines]

End If

works great many thanks

 

[FlyingDragon via AccessMonster.com]

You may also want to put

Me.DesID.Undo

in the No branch of the If statement.

Hi,

[quoted text clipped - 32 lines]

too important
many many thanks