MS Access NotInlist add to combo box

[mpmason14]

i just posted another piece of code before i came accross this one. it almost adds the new value to the table, except now i get an error back saying the value isnt in the list AFTER i told it to add it to the list. the new code is below. any help is GREATLY appreciated!


Private Sub PRININVEST_NotInList(NewData As String, Response As Integer)

Dim db As Database
Set db = CurrentDb

'Ask the user if they want to add to the list
If MsgBox("Do you want to add this value to the list?", vbYesNo + vbQuestion, "Add new value") = vbYes Then

'The user clicked Yes - add the new value
db.Execute "INSERT INTO proposal (PRININVEST) VALUES (""" & NewData & """)", dbFailOnError

'Tell Access you've added the new value
Response = acDataErrAdded

Else

'The user clicked No - discard the new value
Me.PRININVEST.Undo
'Tell Access you've discarded the new value
Response = acDataErrContinue

End If

db.Close
Set db = Nothing

End Sub

[PEB]

First you have to turn the Response parameter to False
Response=False

When U add the new value you have to refresh or requery the combo box for appearing the new value

Then you can turn the response=true

And the new value will be accepted :)