Añadir un item en una cuadro combinado

Lo primero lo controlas con el evento "Al no estar en la lista", abres el
form Clientes, etc.

Cuando sales de Clientes, evento "Al salir" del form, miras si está cargado
el frmOrigen y si lo está haces un Requery del CuadroCombinado...

Copias en un modulo esta función (que está en Neptuno.mdb) para saber si un
form está cargado, y lo guardas...

'Cuidado, igual se parten las líneas!!!...
Function EstáCargado(ByVal txtNombreFormulario As String) As Boolean
' Devuelve Verdadero si se ha cargado el formulario especificado.
Const conObjetoEstaCerrado = 0
Const conModoDiseño = 0

If SysCmd(acSysCmdGetObjectState, acForm, txtNombreFormulario) <>
conObjetoEstaCerrado Then
If Forms(txtNombreFormulario).CurrentView <> conModoDiseño Then
EstáCargado = True
End If
End If
End Function

Entonces, en el formulario Clientes, En el evento "Al salir" (por ejemplo)
pones :

If EstáCargado("NombredeTuFormularioOrigen") then
Foms("NombredeTuFormularioOrigen").NomCCombinado.Requery
End if

Saludos,
marjan


"Juan ALAVA" escribió en el mensaje
news:092201c33f17$aa0aad50$

Tengo una aplicacion con un cuadro combinado y quiero que
cuando tecleen un nombre de cliente inexistente de un
mensage, habra el formulario para crear el cliente y
despues vuelva otra vez al formulario de introduccion de
datos y salga en el cuadro combinado.Lo del mensage y lo
de abrir el formulario para crear clientes ya se pero lo
otro me atasco.

GRACIAS