[Resolvido]Abrir registro em um formulário, clicando no subformulário

Meus amigos, boa tarde!!!

Tenho um formulário (com sub formulário) e, quando eu clico na informação deste sub formulário, deveria ir para o registro principal, que fico em outro formulário.

Estou usando este código:

Código:

Private Sub nome_catequiz_DblClick(Cancel As Integer)
DoCmd.OpenForm "FORMULÁRIO ONDE FICA O REGISTRO", acNormal, , "NOME DO CAMPO DO FORMULÁRIO=" & Me!NOME DO CAMPO DO SUBFORMULÁRIO
End Sub

Ficando assim:

Código:

Private Sub nome_catequiz_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmCatequizando", acNormal, , "nome_catequiz =" & Me!nome_catequiz
End Sub

Porém não dá certo... tentei colocando o ID dos campos também, mas apenas abre o formulário, mas não vai para o registro específico.


Alguém pode me ajudar?

Agradeço muito a atenção...

Forte Abraço


Roberto Garcia

Se é texto tem de colocar aspas;

Código:

DoCmd.OpenForm "frmCatequizando", acNormal, , "nome_catequiz ='" & Me!nome_catequiz.Value & "'"

Também funciona usando o OpenArgs;

Código:

No duplo clik do campo...

Docmd.Openform "frmCatequizando",,,,,,Me.nome_catequiz.Value

No evento ao Abrir do seu Segundo formulário frmCatequizando.

If Me.nome_catequiz.Value = "" Or IsNull(Me.nome_catequiz.Value) Then
 Me.nome_catequiz.Value = Me.OpenArgs
End If

Amigo JPaulo, muito obrigado pela sua ajuda!!!

Tentei dos dois métodos que vc me informou, mas em ambos os casos ele abre o formulário em branco, não no registro que eu preciso...

Será que eu poderia lhe enviar o arquivo do meu BD para que você possa me dar uma ajuda?

Lhe agradeço muito a atenção.

Abraço

Roberto.

Olá
Pode enviar sim.

Olá amigo JPaulo, Grato pela sua disponibilidade.

Segue o link com o arquivo...

o subformulário encontra-se no formulário frmTurma e o Formulário onde encontram-se os registros para serem abertos é o frmCatequizando.

Muito obrigado!!!


"//"

Olá Roberto

A tabela Tab_Turma tem um problema, que quando faço o Compactar/Reparar essa tabela desaparece.
Desta forma não consigo ajudar.

Preciso que:
1º Abra um modulo de VBA, fazer o Debug/Compile e corrija todos os erros que apresenta.
2º Criar uma tabela nova para Tab_Turma
3º Fazer o Compactar/Reparar
4º Enviar de novo para mim

Bom dia JPaulo...


Fiz as ações que você solicitou... segue novo link com o arquivo:

"//"

Abraço!!!

Roberto Garcia

Consigo entrar em todas as tabelas, menos na Tab_Turma;

Pode por favor criar a Tab_turma manualmente num banco vazio e enviar para mim ?

Parece que o problema está apenas num campo que está como "Large Number", tem de alterar esse campo.

Olá Amigo JPaulo


Não sei se entendi muito bem, mas vamos lá...

Deletei a TAB_Turma e criei novamente do zero... segue link com o arquivo modificado:

"//"


Seria isso?

Abraço amigo!!!


Roberto Garcia

Veja se é o que deseja;

https://www.dropbox.com/s/fjjn6hfrinvfbch/SGC_Apresentacao09.03.2022_OLD.zip?dl=0

Código:

Private Sub id_catequiz_DblClick(Cancel As Integer)
  'abre o form frmCatequizando sem filtros
    DoCmd.OpenForm "frmCatequizando"
  'aplica o filtro
    Forms("frmCatequizando").Filter = "[id_catequiz] = " & Me.id_catequiz
    Forms("frmCatequizando").FilterOn = True
End Sub

Amigo JPaulo... perfeito!!!

é exatamente isso que preciso...

Mas, se eu quiser configurar para clicar no nome do catequizando, ao invés do ID, que alteração eu aplico no código?

Muito obrigado pela atenção!!!

Assim;

Código:

Private Sub nome_catequiz_DblClick(Cancel As Integer)
  'abre o form frmCatequizando sem filtros
    DoCmd.OpenForm "frmCatequizando"
  'aplica o filtro
    Forms("frmCatequizando").Filter = "[nome_catequiz] = '" & Me.nome_catequiz & "'"
    Forms("frmCatequizando").FilterOn = True
End Sub

Amigo JPaulo, ficou perfeito...


Muito obrigado pela sua ajuda e disposição!!!


Forte abraço!!!

Obrigado pelo retorno o fórum agradece.