Update Combo Box when Not In List and update related info in form



I have a combo box for "properties". When the user enters a value that is
not in the list it asks if they want to add it. When they say yes, it opens
a form so related info can be put in. I adapted this code from posts. I
want it to add the new record to the table before the form opens. Right now
it's not doing that and I don't know why. I have the Properties form opening
to the last record so the user wouldn't have to reenter the value they just
put in the combo box. Thanks.

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

Dim strMsg As String
Dim strSQL As String
Dim strData As String
strMsg = """" & NewData & """ is not in the list" & vbNewLine
strMsg = strMsg & "Do you want to add it?"
strData = NewData
If MsgBox(strMsg, vbInformation + vbYesNo, "New Property") = vbYes Then
strSQL = "Insert Into Properties ([Property]) Values(""" & NewData &
Response = acDataErrAdded
DoCmd.OpenForm "Properties", , , , acFormEdit, acDialog, strData
Response = acDataErrContinue
End If

End Sub



Jeff Boyce

I'd suggest checking into Access HELP for the syntax and commands needed to
add a new combobox item to the underlying table and return to the combobox
with the new value added.


Jeff Boyce
Microsoft Office/Access MVP

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Not In List help needed 1
Help With Code Please 5
Not in list not working 1
Not in list warning 2
Not in list requery issue 4
Unwanted Message Box 2
Combo Box to add items to a table 4
After Update issue 1