[Resolvido]Selecionar um item em uma Cbo em um Formulario e este item ser mostrado em uma caixa de texto em outro Formulario

Ola colegas , estou precisando de uma ajuda novamente, estou precisando fazer com que um item selecionado em uma Caixa de combinação de um formulario , apareça em uma caixa de texto em outro formulario. Abaixo esta o link do exemplo .
http://www.sendspace.com/file/3p37tz

Agradeço desde já.

Você pode usar uma função que verifique se o form onde está a CaixaTexto está aberto:
(esta função deve ficar num módulo global)


Public Function FormIsOpen(ByVal strFormName As String) As Boolean
Const conDesignView = 0
Const conObjStateClosed = 0
FormIsOpen = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
FormIsOpen = True
End If
End If
End Function

Então seria algo assim:


Private Sub SuaCombo_AfterUpdate()
  If FormIsOpen("SeuOutroForm") Then
   Forms!SeuOutroForm.SuaCaixaDeTexto = Forms!SeuFormComCombo.SuaCombo
  Else
   DoCmd.OpenForm "SeuOutroForm"
   Forms!SeuOutroForm.SuaCaixaDeTexto = Forms!SeuFormComCombo.SuaCombo
  End If
End Sub

O fórum agradece sua participação e o retorno!