To add a new item to the Row Source of the combo box and still have it there
the next time you open the form, you need to use a table or query as the row
source and store the new value in the table.
To do this, set the Limit To List property to Yes then use the Not In List
event to add the item to the table.
Example:
Dim rst As DAO.Recordset
If Msgbox(NewData & " is not in the list. Add it?", vbYesNo + vbQuestion,
"Add to list?") = vbYes Then
Set rst = CurrentDb.OpenRecordset("tblRowSource", dbOpenDynaset)
With rst
.AddNew
rst!fldFieldName = NewData
'add to other fields here, if needed
.Update
End With
Response = acDataErrAdded
Else
Me.cboCombobox.Undo
Response = acDataErrContinue
End If
rst.Close
Set rst = Nothing
