[Resolvido]Mudar Registro de uma Familia para outra - O Retorno

Boa tarde, amigos do forum.
Algum tempo atras o Noobezinho me ajudou a resolver um problema, no seguinte tópico:

http://maximoaccess.forumeiros.com/t21409-resolvidocomo-mudar-registro-de-uma-familia-para-outra

Deu certinho!!!!

Agora, porém, retorno ao assunto pois tentei colocar a mesma Função em outro Formulário e não consegui.
É o seguinte:
Se voce abrir o Formulario "Fml_CadastroFamilias" e quiser transferir um dos Membros da Familia escolhida para outra familia, ou para o Arquivo Morto, basta clicar duas vezes sobre o "Numero da Familia" que fica à esquerda do nome que abrir-se-a o "frm_MudaTitular". Escolhe-se o titular adequado e pronto. Está transferido.
Funciona beleza!

Criei um novo Formulario "Fml_CadastroPelaRecepção", com seu respectivo subformulario, e criei também o "fml_MudaTitularPelaRecepção". Fiz algumas adaptações no Módulo MudaTitular() e renomeei o mesmo de MudaTitularPelaRecepção(). Esse Fml_CadastroPela Recepção deveria funcionar do mesmo jeito que o Fml_CadastroFamilias, mas isso ocorre até no momento que se escolhe o Nome do Novo Titular no frm_MudaTitularPelaRecepção. Ao clicar nele o Access pede para inserir um valor de parâmetro:
Formulários!Fml_CadastroPelaRecepção!SubFml_MembrosDaFamiliaPelaRecepção.Formulário!CódigoTitular
Tentei encontrar onde está o erro mas não consegui. Será que alguém pode me ajudar?

Aqui, o link para baixar parte do BD:

https://www.dropbox.com/s/xf9l1ue9rmy6i7p/Cadastro%20PSF.rar?dl=0



A Função modificada ficou assim:

Private Function MudaTitularPelaRecepção()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl_MembrosDaFamilia SET Tbl_MembrosDaFamilia.CódigoTitular = " & _
"[Formulários]![frm_MudaTitularPelaRecepção]![Lista0]" & _
"WHERE (((Tbl_MembrosDaFamilia.CódigoTitular)=[Formulários]![Fml_CadastroPelaRecepção]![SubFml_MembrosDaFamiliaPelaRecepção].[Formulário]![CódigoTitular]) " & _
"AND ((Tbl_MembrosDaFamilia.CódigoMembrosFamilia)=[Formulários]![Fml_CadastroPelaRecepção]![SubFml_MembrosDaFamiliaPelaRecepção].[Formulário]![CódigoMembrosFamilia]));"
DoCmd.SetWarnings True
Forms!Fml_CadastroPelaRecepção!SubFml_MembrosDaFamiliaPelaRecepção.Form.Requery

DoCmd.Close acForm, "frm_MudaTitularPelaRecepção"
End Function
-----------------------------------

Obrigado,

Walter

Walter

Tudo certinho com teus código, com exceção de um pequeno cochilo de tua parte, se me permite

No controle código, onde se clica para mudar o titular, no subformulário, verifique no código VBA ,   o nome do formulário que muda o titular  não é o nome do frm_MudaTitularPelaRecepção, por isso não ta funfando.

[]'s

Noob

Amigo Walter veja:
Grande noob também tinha descoberto o probleminha.
Abçs.

https://dl.dropboxusercontent.com/u/90217826/Cadastro%20PSF.rar

Beleza! Pô, foi uma distração mesmo!!! E olha que procurei esse erro várias vezes e não dei conta de achar.... Dizem que a gente consegue enxergar o erro dos outros melhor que o nosso. Esse fato comprovou o ditado!
Muito Obrigado, Noob e Kaynan, por mais essa ajuda.

Um abraço a todos. (Tô marcando como resolvido)

É isso mesmo Walter

Boa sorte !!

Noob