MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    2 Formulário buscando registro na mesma tabela.

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 20/07/2010

    2 Formulário buscando registro na mesma tabela. Empty 2 Formulário buscando registro na mesma tabela.

    Mensagem  OLDRIVG 28/12/2018, 12:16

    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.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  Silvio 1/1/2019, 13:25

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 20/07/2010

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  OLDRIVG 2/1/2019, 09:07

    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4473
    Registrado : 06/11/2009

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  Assis 2/1/2019, 11:14

    Bom dia Oldri

    Poste a tabela e os ditos 2 formulários.



    .................................................................................
    *** Só sei que nada sei ***
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 20/07/2010

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  OLDRIVG 2/1/2019, 12:16

    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.
    Anexos
    2 Formulário buscando registro na mesma tabela. AttachmentPROTOCOLO - PRO 5 .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (352 Kb) Baixado 12 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  FranklinJSP 2/1/2019, 17:10

    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


    Última edição por FranklinJSP em 2/1/2019, 17:12, editado 1 vez(es) (Motivo da edição : Nome do form)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 20/07/2010

    2 Formulário buscando registro na mesma tabela. Empty Re: 2 Formulário buscando registro na mesma tabela.

    Mensagem  OLDRIVG 3/1/2019, 10:45

    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

    Anexos
    2 Formulário buscando registro na mesma tabela. AttachmentJanela Microsft Visual Basic - Depuração.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 5 vez(es)

      Data/hora atual: 1/8/2021, 12:21