[Resolvido]Botão para abrir formulário de registro relacionado

Boa tarde amigos,

Estou tentando criar um botão para acessar o registro de um formulário relacionado.

Exemplo: estou no formulário 'Credenciamento - Termo' e quero, por intermédio do botão, abrir o formulário ('Credenciamento - VCM') do registro relacionado.

Já tentei da seguinte forma:

DoCmd.OpenForm "Credenciamento - VCM", acNormal, , "[Termo_de_adesao]=" & Me!Termo_de_adesao, acFormEdit


Mas o Access abre sim o formulário 'Credenciamento - VCM', porém em branco, sem registros.

Já grato pela possibilidade de ajuda!!!

DoCmd.OpenForm "Credenciamento - VCM", acNormal, , "[Termo_de_adesao]=[Forms]![NomeFormularioAtual]![NomeCampoTermo_de_Adesao]"

Termo_de_adesao = É o nome de um Campo da Tabela e nao do formulario
NomeCampoTermo_de_Adesao =É onde tem o Numero do Termo de adesao no formulario atual.

Bom dia FabioPaes,


Procedi desta forma abaixo


DoCmd.OpenForm "Credenciamento - VCM", acNormal, , "[Termo_de_adesao]=[Forms]![Credenciamento - VCM]![Termo_de_adesao]"


Mas, ainda assim, ele abre o formulário 'Credenciamento - VCM', porém não mostra nenhum registro e tampouco o registro referente ao Termo de Adesão que estou no formulário atual.

Tem algum problema dos nomes dos campos, em ambas tabelas serem iguais e também do 'Termo_de_adesao' ser chave primária?

Ja verificou se seu Formulario nao abre automaticamente em NOVO REGISTRO?

Qlquer coisa posta aqui seu BD.

Eu acredito que não. Pelo menos, olhando nas Propriedades não visualizei nada que se refira a isto.

Acredito que não consiga carregar o banco. O arquivo é grande. Se tiver alguma parte específica eu mando a imagem de repente.

Abra um novo BD, copie pra ele apenas as tabelas e Formularios envolvidos... Limpe a tabela com os dados, deixando apenas uns 3 Registros.

Compacte e Repare seu BD. Compacta formato .zip e Anexe aqui meu amigo... Ou Google Drive, DropBox...

Beleza.

Deixei 3 registros de pessoa física e 1 registro de pessoa jurídica.

Mude para:

Dim F As String
F = Me.Contrato_Novo

DoCmd.OpenForm "Credenciamento - VCM", acNormal, , "[Termo_de_adesao]= '" & F & "'"

Que deverá funcionar!

Putz deu certinho.

Aí fui ver, o nome da caixa de texto estava como 'Contrato_Novo'. É muito detalhe kkk

Muito grato Fabio

Pois é amigo... Alem de ser Texto tambem... entao fica entre '" & & "'. se nao, dara problemas tambem

Vivendo e aprendendo kkk!

Valeu mesmo

Fala FabioPaes,

Cara, consegui criar todos os botões que necessitei e funcionou belezinha. Mas, me deparei com mais um detalhe:


Depois de ter criado tudo o que eu precisava nos forms, depois de ter atualizado as tabelas e tudo mais, eu fiz a cópia do banco para a máquina do colega que trabalha comigo, vinculei as tabelas e tudo mais. Porém, nenhum botão dos formulários funciona na máquina dele.

(cheguei até a abrir novo tópico no fórum mas to meio no pânico de resolver isto pois já botei o banco em atividade)

Os arquivos "se enxergam" porém os botões não funcionam. As versões de Windows são as mesmas (se é que isto faz muita diferença)

Por favor, pode me ajudar?

Amigo, as macros nao estão sendo bloqueadas?

Veja se ao abrir o Arquivo apresenta essa Mensagem:

Não esta aparecendo esta informação não.

Apenas as buscas funcionam (fiz as buscas utilizando macros). Estas do anexo.

Num teria a ver com o fato das instruções serem Private não né?

Cara,

Entrei na central de confiabilidade e consegui achar o esquema que deixa todas as macros habilitadas por padrão!


Valeu pela atenção novamente!!!

Bacana! rererererere

kkk total!