Showing changed value ain a control

[jeffhanner10@gmail.com]

I am in a combobox (Combo242, which is a ContactID#) and I enter a new full name which is not on the list. My notinlist event runs and if I answer yes a pop-up form allows me to add the new contact. After the contact is saved, I am automatically returned to the control and want to fill it with the new value. I set the new value to TempVars!contactID and then try to requery, I get the error message "You cannot requery as the control has not been saved.


I can't figure out how to show the new Contact.

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


    NewContact = StrConv(NewData, vbProperCase)
    If MsgBox(NewContact & " Is not in the Contact list." & Chr(10) & _
    "Do you want to add it to the Contacts?", _
          vbYesNo + vbQuestion) = vbYes Then


            DoCmd.OpenForm "frmContactsLight", acNormal 'Opens a pop-up form to add the contact data
            If TempVars!JustCameFromContactsLight = 1 Then ' This is a flag from the pop-up form
            
            Me.Combo242 = TempVars!ContactID
            Me.Combo242.Requery ' Here is get the error "You cannot requery because the control has not been saved"
            TempVars!ContactID = "" ' This resets the TempVars
            End If
    TempVars!JustCameFromContactsLight = 0 ' This resets the flag
    
    End If
    
    Response = acDataErrContinue

Any help is appreciated

Jeff

[June7]

Open the form in dialog mode to suspend code execution on calling form until dialog form closes.

DoCmd.OpenForm "frmContactsLight", acNormal, , , , acDialog

Then maybe do the requery before populating box with new value.

[jeffhanner10@gmail.com]

THAT WORKED!!!
I Changed the code to:

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


   
    NewContact = StrConv(NewData, vbProperCase)
    If MsgBox(NewContact & " Is not in the Contact list." & Chr(10) & _
    "Do you want to add it to the Contacts?", _
          vbYesNo + vbQuestion) = vbYes Then


            DoCmd.OpenForm "frmContactsLight", acNormal, , , , acDialog
            
            If TempVars!JustCameFromContactsLight = 1 Then
            
            Me.Combo242 = TempVars!ContactID
            Me.Combo242.Requery
                  
            TempVars!ContactID = ""
            End If
    TempVars!JustCameFromContactsLight = 0
           
    
    End If
    
    Response = acDataErrContinue
    






End Sub

Thank you June7 you are always a good source of info.