2 Formulário buscando registro na mesma tabela.

Prezados, necessitando de mais uma ajuda.

Criei dois formulários para tabela "Tbl_Cadstro", sendo  formulário "Frm_Protocolo" e formulário "Frm_Documentos_Anexados".

O formulário "Frm_Protocolo" possui todos os campos da tabela exceto o campo "DocumentosAnexados", mas o formulário "Frm_Documentos_Anexados" possui somente um campo que é o "DocumentosAnexados".

A intenção é no momento que o usuário estiver cadastrando um registro  e for necessário listar nome de algum documento que está anexado ao documento relativos aquele registro, ele abra o formulário "Frm_Documentos_Anexados" através de um botão ou msgbox VbyesNo e digita o nome do documento no controle "DocumentosAnexados" que está no formulário em questão.

O que está ocorrendo é que quando se está no registro de número "X" no formulário "Frm_Protocolo" e clica no botão para abrir o formulário "Frm_Documentos_Anexados", este não abre no registro de número "X", abrindo no primeiro registro.

O que eu precisava era que quando o usuário estivesse no registro "X"  no formulário "Frm_Protocolo" e necessitasse alterar algum dado no campo "DocumentosAnexados" que está no formulário "Frm_Documentos_Anexados", este abrisse no mesmo registro do formulário "Frm_Protocolo".

Tentei implementando o código de numeração abaixo no evento Ao Abrir do formulário "Frm_Documentos_Anexados" mas não funcionou.

If Not IsNull(Me.IdSequencial) Then
Exit Sub
Else
Me.IdSequencial.value = "00000-GAB" & "/" & Year(Date)
End If

Caso alguém tenha alguma sugestão, fico agradecido.

Bom dia e feliz 2019.

Como estão os relacionamentos entre os dois formulários ?

Se ambos tem a origem na mesma tabela isso não deveria ocorrer, fica a dica

Ao clicar no botão para abrir o segundo formulário, faça a referência a chave primaria do primeiro formulário

Bom dia, Silvio. Feliz 2019 para você também.

Não existe relacionamento entre os dois formulários.
Ambos formulários são originados na mesma tabela, porém o segundo formulário, que abre através de um botão, possui somente um campo, como já escrito.

Como fazer a referência da chave primária do primeiro formulário como sugerido por você? Ela não existe.

Agradeço a atenção.

Bom dia Oldri

Poste a tabela e os ditos 2 formulários.

Prezado Assis, segue anexo o BD.

O acesso  ao formulário "Frm_Documentos_Anexados" é feito através do botão "Alterar Anexos" no formulário "Frm_Protocolo" ou, ainda, ao sair do campo Procedência do Documento.

Agradecido pela a atenção.

Oi Oldrivg

Tenta assim no Bt_AlterarAnexo do form FRM_PROTOCOLO

Código:

Private Sub Bt_AlterarAnexo_Click()

'DoCmd.OpenForm "Frm_Documentos_Anexados"
DoCmd.OpenForm "Frm_Documentos_Anexados", , , "IdSequencial='" & Me.NumeroProtocoloPagMov & "'"

End Sub

Saludos

Olá FranklinJSP, bom dia.

Agradeço-lhe a atenção.

A sua sugestão funcionou no botão "Bt_AlterarAnexo". Porém não funcionou no evento Ao Sair do controle "ProcedenciaDocumento" em Novo Registro. Ao sair do controle "ProcedenciaDocumento" sem realizar um "Requery" retorna a janela do MVB com um erro em tempo de execução '2448' informando que não pode ser atribuído um valor  ao objeto (segue em anexo printScr). Há como tratar este erro?

A título de informação, você usou, na sugestão, o controle "Me.NumeroProtocoloPagMov", ocorre que este controle somente fica visível quando a pagina "Movimentações" do ControleGuia está visível. Em um Novo Registro este controle não é visível. Poderia  ser isto a causa do erro retro citado?

Desde já agradeço