Ao abrir um for, tenho a linha de comabdo:

Me.CodContrato = Forms![frm_ContratosProdutosIncluir]!Contr_Cod

Se o form, ![frm_ContratosProdutosIncluir] estiver aberto, OK

Mas se não, da erro.

Portanto tenho de fazer um If para se o ![frm_ContratosProdutosIncluir] estiver aberto, ler a linha, senão, pula ....

Ou seja, como verificar se um form está aberto ....

Oi Pit

Use este

if syscmd(acSysCmdGetObjectState ,acForm,"NomeFormulário") = 1 then
'verdadeiro
else
'falso
end if

ou este

If CurrentProject.AllForms("TeuForm").IsLoaded Then
Teu código
End If


Agora um puxão de orelha; por que não está usando o procurar ?????

Sucesso
...

This message has been edited. Last edited by: Avelino Sampaio,

Ola, Avelino,

OK, está funcionando ....

Eu procurei no "Procurar", mas talvez não o suficiente ......

Mas valeu pelas duas dicas .....