combo Box with NotInList error routine. next step?

[Carl]

I have the code to open a form and add a name if the name does not appear in
combo box, but when I close the data input form the combo box does not pick
up the fact that the
name has beeen added.
What am I missing?

Here is what i have:
Private Sub cboLastName_NotInList(NewData As String, Response As Integer)
Dim intReply As Integer
intReply = MsgBox("The teammate's name '" & NewData & _
"' is not in the list. Would you like to add?", vbYesNo)
If intReply = vbYes Then
DoCmd.OpenForm "frmTeammates", , , , acFormAdd, acDialog, NewData
'-- Record added, so cancel Access's default processing
Response = acDataErrAdded
Else
MsgBox "Please select an item in the list."
Response = acDataErrContinue
End If
End Sub

Carl

 

[Allen Browne]

Carl, I would expect your code to work if the bound column of the combo is
the one that the NewData is being added to. It won't work if combo's bound
column is zero-width, so that the data being added is not the same as the
key value.

 

[Carl]

Thank you I will try that out.
Carl

Carl, I would expect your code to work if the bound column of the combo is
the one that the NewData is being added to. It won't work if combo's bound
column is zero-width, so that the data being added is not the same as the
key value.