Updating a textbox on a form

[MNNovice]

frmEchoEnter has a subform which does not get activated unless the user selects an Echo Number. cboEchoSelect displays a list of Echo Number available to select.

To add to the avaialbe Echo Number I have this


Not In List

Private Sub cboEchoSelect_NotInList(NewData As String, Response As Integer)
    MsgBox "Double-click this field to add a New ECHO number to the list."
    Response = acDataErrContinue
End Sub

On Double Click

Private Sub cboEchoSelect_DblClick(Cancel As Integer)
On Error GoTo Err_cboEchoSelect_DblClick
 
    If IsNull(Me![cboEchoSelect]) Then
        Me![cboEchoSelect].Text = ""
    Else
                Me![cboEchoSelect] = Null
    End If
    DoCmd.OpenForm "frmECHO", , , , , acDialog, "GotoNew"
    Me![cboEchoSelect].Requery
 
 
Exit_cboEchoSelect_DblClick:
    Exit Sub
 
Err_cboEchoSelect_DblClick:
    MsgBox Err.Description
    Resume Exit_cboEchoSelect_DblClick
End Sub

After Update

Private Sub cboEchoSelect_AfterUpdate()
 
Me.Filter = "[ECHOID]=" & Me![cboEchoSelect]
 Me.FilterOn = True
     EnableControls Me, acDetail, True
     sfrmAP.Enabled = True
     sfrmPayroll.Enabled = True
 
 
End Sub

Everything is working except that after I add a new Echo Number, I must exit frmEchoEnter for the new number to be available on the list. What codes do I need to solve this problem?

• I want to double click the combo box,
• add the new number to frmEcho,
• close fromEcho and
• keep adding data to frmEchoEnter.

Thanks.