add newdata to combo box and save to the original table

[ronaldlee]

Please advis how to do to save the newdata to the original Table or Form when it is not in the list and it will automatically update the newdata to the combo box list, not need to refresh it by manual

I have tried "event - NoInlist" to pop up the originl form to key in the newdata but it is only update the original form. It should refresh the comb BOx to have the newdata in list.

Please kindly provide solution

Thank you

 

[jimmythegeek]

This is how the NotInList event should work. You need to make sure that your "Limit To List" property is set to "Yes".


Private Sub YourField_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Set ctl = Me!YourField

If MsgBox("Would you like to add " & NewData & " to the list??", vbYesNo + vbQuestion) = vbYes Then
Response = acDataErrAdded
CurrentDb.Execute "INSERT INTO YourTable (YourField) SELECT '" & NewData & "'"
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub Jim Lunde
compugeeks@hotmail.com
We all agree your theory is crazy, but is it crazy enough?