[Resolvido]Atualização em 2 campos em 2 Forms! com apenas um form de atualização!

Olá pessoal do fórum, Boa Noite a todos. Aqui no Brasil Boa noite. Sintam-se todos cumprimentados. Estou com uma situação no meu projeto, que não sei como fazer e preciso da ajuda de vocês. Vamos lá: Tenho 02 forms que contem em cada um o campo CIDADE_FUNCIONARIO E CIDADE_PACIENTE, estes que provém de uma tabela CIDADES e estes forms com uma combo que busca estas informações referente a tabela. e coloquei um ícone no FORM_FUNCIONARIOS, que se não tiver a cidade do funcionário cadastrada, clico no mesmo, abre um form que criei para cadastro de CIDADES, cadastro e no evento atualizo a combo, funfa que uma beleza,mas aí que vem minha dúvida, quero usar o mesmo form CIDADE, para cadastrar no FORM_PACIENTES, estou utilizando o evento após fechar o form CIDADE este código:
Private Sub Form_Close()
Dim ctlLista As Control
Set ctlLista = FORMS!FUNCIONARIOS!CIDADE_FUNCIONARIOS
ctlLista.Requery
End Sub
e queria saber como faço para agregar a atualização no código acima, para atualizar o FORMS!PACIENTES!CIDADE_PACIENTES.
espero que tenha ficado claro para todos. e como sempre já antecipo meus agradecimento.

Uma forma de se passar valores de um form para outro é assim:

Forms!NomeDoFormulário!NomeCampoDoOutroForm = Me.NomeCampoDoFormCorrente
Se fechar o form corrente pode não funcionar caso o form se feche antes dos valores passarem para o outro form. Nesse caso, deve fechar depois de passar os valores.

Criquio, valeu pelo rápido retorno. Mas na verdade não é bem isso que quero fazer. Na verdade estou atualizando a combo no formulário corrente, no evento após fechar. só que quando abro o form para inserir a nova cidade, funciona mas quando vou fechar o form me retorna um erro em tempo de execução do visual basic. Sei onde está o erro, só não sei agregar a funçao ou código para o form atualizar tanto se eu estiver usando o FORM_PACIENTES OU FORM_FUNCIONARIOS. Olha o código que está atual:
Private Sub Form_Close()
Dim ctlLista As Control
Set ctlLista = FORMS!FUNCIONARIOS!CIDADE_FUNCIONARIOS
ctlLista.Requery
End Sub
Neste caso acima, quando estou no FORM_FUNCIONARIOS, abro o form CIDADES, cadastro a nova fecho atualiza a combo e vamos embora, efetuando cadastro, mas quando chamo o FORM_PACIENTES, clico para chamar o FORM_CIDADE, vai tudo ok, Cadastro a cidade Nova, mas quando fecho, já era! ERRO.!!!
Pensei que o código seria esse:
Private Sub Form_Close()
Dim ctlLista As Control
Set ctlLista = FORMS!FUNCIONARIOS!CIDADE_FUNCIONARIOS
Set ctlLista = FORMS!PACIENTES!CIDADE_PACIENTES
ctlLista.Requery
End Sub;
inclui esta nova linha, para ver se o VB entendia que se eu estivesse em qualquer formuláio ele atualizaria, mas como diz os mestres NÃO FUNFA...
Como ficaria o código?
Desde já agradeço

Para usar um único form de cadastro, você precisa identificar qual formulário está aberto. Tente a função abaixo, disponibilizado, se não me engano, pelo JPaulo, no formulário de cadastro de cidades:

Function IsLoaded(ByVal strFormName As String) As Integer

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function

No evento "Ao fechar" do formulário, coloque:

Dim ctlLista As Control

If IsLoaded("FUNCIONARIOS") Then
Set ctlLista = FORMS!FUNCIONARIOS!CIDADE_FUNCIONARIOS
ElseIf IsLoaded("PACIENTES") Then
Set ctlLista = FORMS!PACIENTES!CIDADE_PACIENTES
ctlLista.Requery

End If

Criquio, vamos novamente a parte do código IsLoadedme retorna um erro que segue:

Erro de compilação
Sub ou Function não definida

Grato

E marca qual a linha ao depurar o vba?

Criquio, ao depurar o vba primeiro é marcado em vermelho parte do código:
IsLoaded
e após para a mensagem descrita no post anterior fica marcado em amarelo o início:
Private Sub Form_Close() e realçado em azul parte descrita acima: IsLoaded
Desde já agradeço

Se não conseguir, vou criar uma cópia do FORM_CIDADE e copiar os códigos mudando para pacientes.

Mas de antemão agradeço a todos que visualizaram o tópico.

Se desejares, poste uma cópia zipada aqui para a gente dar uma checada.

Se me permitem aqui vai um pitaco da minha parte;

Neste exemplo você tem dois forms

frmFuncionario
frmPaciente

Em ambos tem uma Combobox que preenche o campo Cidade.

Se a Cidade não estiver na lista, tente introduzir manualmente e veja o resultado em ambos os forms e tabela Cidades;

http://dl.dropbox.com/u/771097/Jesus.rar

JPaulo, Funfou......., fico muito agradecido, e também ao Críquio que deu várias dicas. Aproveitando, tem como ao invés de abrir uma janela interna do access informando que a cidade não foi cadastrada, inserir uma mensagem baseado em um form para que fique personalizado conforme meu projeto. Utilizando o código no post acima que me tirou do sufoco? EX; Criaria um form com a mensagem igual a do access, mas com minhas cores, ícones, etc...

desde já Agradeço. e Valeu mais uma vez a todos que visualizaram o post.

Veja o simples e desculpe a demora;

http://dl.dropbox.com/u/771097/Jesus_II.rar

Peço desculpas também pelo retorno, pois sabe como é feriadão muito trabalho para fazer em casa. Jpaulo, mais uma vez fico imensamente agradecido. ficou show..., vou adaptar ao meu este código. Abração e até a próxima.

Obrigado pelo retorno amigo, precisando de novo estamos ae.