Rural, Thanks. As usual, you came thru. I added your 2 lines and it solved the problem. However, now that I have the popup form opening I have 2 other problems. First, when msgbox asks if I want to add to list and I choose yes, the popup form opens but displays Access default message that text I entered is not in list. I have to close this message before I can enter data in new record in popup form. How do I get rid of that message?
Second, after I enter the data in the popup form and return to my combobox the new name is not appearing in the combo list. I tried adding a requery command but I get a message telling me I have to save the field first. I think it may be a question of where I have my requery located in the sub routine. Heres the code.
------------
Option Compare Database
Option Explicit
Private Sub Combo18_NotInList(NewData As String, Response As Integer)
Dim StrFrm As String
Dim intAnswer As Integer
StrFrm = "frm_Doctors"
intAnswer = MsgBox("The Dr's Name " & Chr(34) & NewData & _
Chr(34) & " is not currently listed." & vbCrLf & _
"Would you like to add it to the list now?" _
, vbQuestion + vbYesNo, "Doctor")
If intAnswer = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenForm StrFrm
Response = acDataErrAdded
Me.Combo18.Requery
Else
MsgBox "Please choose a Dr's Name from the list." _
, vbInformation, "Doctor"
Response = acDataErrContinue
End If
End Sub
-------------