Pessoal !

bom dia,

Seguinte....tenhu um formulario chamado "Clientes" ...

Este formulario é aberto tanto individualmente ( para cadastro de clientes ) quanto pelo formulario "obras" ... q no momento q nao encontrou 1 cliente desejado....teria 1 botao pra abrir o form cliente e cadastrar 1 novo cliente ..

O problema é o seguinte....neste form Clientes....tera 2 eventos...

Se o form Clientes é aberto individualmente, o form fecha e pronto

Agora se o form Cliente é aberto pelo form Obras ( no botao q eu criei ) ... na hr q ele vai fecha ele tb tem q atualizar a combobox de clientes q o form "Obras" contem


O problema é.... qual comando eu indentifico se o form Clientes foi aberto individualmente ou nao ?

Pq no envento "Sair do form" ....sera assim


If "AbertoporObras" then ' ele só atualiza se tiver carregado o form Obras atraiz ( form pai )
Forms!Obras!cmbCliente.requery 'atualiza
endif

docmd.close acform ,"Clientes"..


Alguem sabe?

Blz?!
Pq vc não atualiza a Combobox no evento "form_current" do form principal?!

Ahhh ... se vc quer mesmo seguir por este caminho, basta usar a função Está Carregado que vem como o NorthWind! Ela verifica se um form está aberto !

o0... e como usa isso ?!!

Amigo, veja se lhes ajudam as linhas abaixo:

Dim frmFormulárioAtual As Form
Dim NomeForm

Set frmFormulárioAtual = Screen.ActiveForm 'capturando o nome do form ativo
NomeForm = frmFormulárioAtual.Name

Rulexx,

segue a função do banco NorthWind..


Function EstaCarregado(ByVal strNomeDoFormulario As String) As Boolean
On Error Resume Next
Const conEstadoObjFechado = 0
Const conModoEstrutura = 0

EstaCarregado = False

If SysCmd(acSysCmdGetObjectState, acForm, strNomeDoFormulario) <> conEstadoObjFechado Then
If Forms(strNomeDoFormulario).CurrentView <> conModoEstrutura Then
EstaCarregado = True
End If
End If
End Function

Como usar a função?!

Dentro do evento, digite:
If EstaCarregado("NomeDoForm") then
combo.requery
endif