El maestro Happy dice:

Tengo un formulario Cuentas, en el cual tengo un comboCliente
(basado en la tabla Clientes, con dos columnas IdCliente,NombreCompañia,
solo la segunda columna es visible). Cuando creo una nuevacuenta debo asignarsela
a algún cliente mediante ese combo, pero cuando el cliente todavía no lo he creado
se activa el evento NotInList (el clienteinexistente no está en la lista del combo).

Entonces tengo éste código:

Private Sub Cliente_NotInList(NewData As String, Response As Integer)
Dim Nuevocli As Integer, entTruncarNombre As Integer, txtTítulo As String,entMsjDiálogo As IntegerDim nuevo As String
Nuevocli = msgbox("¿Desea agregar un nuevo cliente?", vbOKCancel) 
If Nuevocli = vbOK Then 
 nuevo = "nuevo"  
 DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 
 DoCmd.OpenForm "clientes", acNormal, , , acAdd, , [nuevo]
 Forms!clientes!NombreCompañia = NewData   
 Response = acDataErrContinue  
End If
End Sub

Así abro el formulario Clientes, en el cual ingreso todos los datos delcliente nuevo,
al abrirse el campo NombreCompañia ya estará lleno con eldato que ingresé en el combo, 
al terminar de escribir los datos cierro elformulario y en evento Unload 
tengo éste código:
Private Sub Form_Unload(Cancel As Integer)
 Dim ctl As Control   
 If  Me.OpenArgs = "nuevo" Then  
  Set ctl = Forms!cuentas!Cliente  
  DoCmd.SelectObject acForm, "cuentas"
  ctl = Me!IdCliente  
  ctl.Requery 
  ctl.SetFocus
 End If
End Sub