[Resolvido]Código para Abrir Formulário não funciona

Bom dia, amigos.
Tenho um Banco de Dados com dois formulários. O primeiro se chama "Fml_CadastroFamilias" e o segundo "Fml_Individual". No primeiro tem um subformulario com o nome dos membros da familia, e ao clicar duas vezes sobre o nome de um dos membros da familia, abre-se o Fml_Individual com os dados daquele individuo. Isso está funcionando legal. Porém, nesse Fml_Individual tem botão para retornar ao Fml_CadastroFamilias no mesmo registro que estava, e isso não está acontecendo, o Fml abre, mas em branco... Vejam o código:

Private Sub Comando83_Click()
DoCmd.OpenForm "Fml_CadastroFamilias", , , [Forms]![Fml_Individual]!]CódigoTitular] = Me.CódigoTitular
DoCmd.Close acForm, "Fml_Individual"
End Sub

Tentei com Macro também e não funcionou. Parace que tem alguma coisa bloquendo o Filtro....

Obrigado.

Poste um exemplo do BD.

Cumprimentos.

Ok. Vou anexar parte do BD para você ver o problema.

Observe que vc está querendo usar uma condição "Where" quando devia estar usando um argumento "FindRecord", afinal, o primeiro form está fechado. O que vc quer é que ele abra novamente já num registro especificado.

DoCmd.OpenForm "Fml_CadastroFamilias", , , [Forms]![Fml_Individual]!]CódigoTitular] = Me.CódigoTitular

A sintese do comando é clara:
DoCmd.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

Se vc colocar a condição na posição de "OpenArgs", vai ter o resultado que procura.

No caso, a linha do código vai ficar assim:

DoCmd.OpenForm "Fml_CadastroFamilias", , , , , , [Forms]![Fml_Individual]![CódigoTitular] = Me.CódigoTitular

Espero não ter falado besteira aqui, testei e deu certo.
Abs

No Duplo Click do nome no subForm:

Private Sub NomeMembroFamilia_DblClick(Cancel As Integer)
Dim escolheRegistro As String
escolheRegistro = "CódigoMembrosFamilia=" & Me!CódigoMembrosFamilia
DoCmd.OpenForm "Fml_Individual", , , escolheRegistro
Forms!Fml_CadastroFamilias.Visible = False
'DoCmd.Close acForm, "Fml_CadastroFamilias"
End Sub

e no botão fechar do outro form:

Private Sub Comando65_Click()
DoCmd.Close
Forms!Fml_CadastroFamilias.Visible = True
End Sub


Cumprimentos.

Boa tarde, Walter e Piloto.
Testei as sugestões no meu Banco de Dados...
A sua sugestão, Walter, não funcionou, no meu BD. Dava o mesmo resultado que o anterior, ou seja, o Form abre em branco!
Já a sugestão do Piloto caiu como uma luva. Funcionou direitinho do jeito que eu queria.
Mesmo assim, obrigado a ambos. Esse forum tem solucionado muitas de minhas duvidas com o Access.

Um abraço

Walter

So Faltou clicar no Joinha da mensagem que o auxiliou.


O Fórum agradece o Retorno.