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


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  julianovv 24/1/2012, 21:57

    Boa noite. Tenho um formulário de cadastro com um subformulário. Esse subformulário possui outro subformulário. Está tudo funcionando normalmente.
    Preciso copiar um registro nesse formulário para colar em um novo registro mas preciso que copie também os dados desses subformulários.
    Gostaria de criar um botão "Copiar para novo registro" mas que nas tabelas, o código colado vire o código que está na sequencia sem perder o relacionamento. Esse código seria o criado quando o novo registro foi aberto. Tem jeito isso?
    Eu inseri a barra de seleção de registro no formulário principal e ele copia somente o formulário que está selecionado não copiando os dados nos subformulários.
    Alguém sabe como fazer isso?
    Obrigado!

    Rolling Eyes
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  Convidad 24/1/2012, 22:37

    Olá

    Só uma ideia...

    Pode tentar usar um Recordset para adicionar o registro pai, e Recordset's subsequentes para gerar os registros filhos.


    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("NomeTabela")
    rs.AddNew
    rs!Campo1 = Forms!NomeForm!NomeCampo1
    rs!Campo2 = Forms!NomeForm!NomeCampo2
    rs!Campo3 = Forms!NomeForm!NomeCampo2
    '...
    rs.Update
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing


    Para as subtabelas é preciso criar uma variável que retorne o ID do registro criado na tabela pai, e passar o valor para o Recordset filho.

    Também deve se possível fazer com DoCmd.RunSQL
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  julianovv 25/1/2012, 10:30

    Esses campos que você diz são os campos dos subformulários?

    rs!Campo1 = Forms!NomeForm!NomeCampo1
    rs!Campo2 = Forms!NomeForm!NomeCampo2
    rs!Campo3 = Forms!NomeForm!NomeCampo2

    Não tenho muita experiência com vba e gostaria de maiores detalhes.
    Este código ficaria no botão "ao clicar" no rodapé do formulário principal?

    Wink
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  Convidad 25/1/2012, 11:03

    O Recordset abre uma tabela e permite a insersão de registros (AddNew).
    Então informamos que os valores para os campos são:
    O campo1 no novo registro da tabela é igual ao campo1 do formulário;
    O campo2 no novo registro da tabela é igual ao campo2 do formulário;
    ... e assim por diante...

    Para rodar o código pode ser um botão no form.
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  Convidad 30/1/2012, 21:56


    Juliano, conseguiu resolver?
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  julianovv 1/2/2012, 18:54

    Boa tarde. Desculpa não ter retornado antes.
    O código até que funcionou para o formulário principal mas quando inseri o subformulário (que tem outro subformulário) no código, não deu certo. Deu mensagem de erro de formulário ou campo não encontrado.
    Como faço para ele entender que a cópia é feita a partir do primeiro registro no fomrulário principal e copie também os dados relacionados nos subformulários?
    Neste relacionamento possuem 3 tabelas. A primeira inserida "NomeTabela", funcionou legal mas parece que ele não entendeu pra onde copiar os dados dos outros subformulários.

    O primeiro formulário (Frm_CadastroPVECVE - tabela: Tbl_PVE-MIK) possui os seguintes campos que serão copiados:

    tipo_pve_cve
    pve_numero
    revisao
    cod_cliente
    licitacao_pregao
    licitacao2
    cliente_primus
    cliente_nao_primus
    concessionaria
    demonstracao
    projeto
    cod_vei
    cod_modelo
    cod_cabines
    teto
    cod_entre_eixos
    cod_vpbase
    referencia
    cod_recurso_ext
    descricao_de_configs
    data_inicio
    data_fim
    data_negociacao
    data_entrega
    semana
    obs_datas
    cod_implem

    Neste formulário possui o subformulário (SubFrm_PVE_MIK tabela: Tbl_PVE-MIK_num) com os seguintes campos a serem copiados:

    item
    Cod_desc
    cod_area
    vp
    implementacao
    pesquisa
    cod_recursos
    horas

    No subformulário inserido no anterior (SubFrm_PVE_MIK1 - tabela: Tbl_PVE-MIK_num1) são os seguintes os campos:
    Este subformulário está no modo "Formulário Continuo".

    part_number
    descricao1
    delete
    add
    fornecedor
    observacao

    Todos esses campos devem ser inseridos nas tabelas e devidamente relacionados com código gerado automaticamente (cod_pve).

    Rolling Eyes
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  julianovv 4/2/2012, 14:15

    Segue uma apresentação do sistema para mostrar a ordem das tabelas.

    http://www.4shared.com/office/kpKl0WP8/Copiar_registros_relacionados.htm

    Rolling Eyes
    avatar
    Convidad
    Convidado


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  Convidad 4/2/2012, 14:35


    Não é uma tarefa fácil, pelo menos pra mim. A coisa encrespa no subform.
    Estou tentando montar um exemplo, pois a questão já apareceu por aqui mais vezes.
    Se funcionar, posto no repositório.

    Por enquanto, sorry!
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  julianovv 6/2/2012, 12:55

    Ok, obrigado. Vou tentando. Se não der vai ser na munheca mesmo. Coloco um tutorial para copiar manualmente.

    Rolling Eyes

    Conteúdo patrocinado


    [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário Empty Re: [Resolvido]Copiar um registro no formulário e seus registros relacionados no subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:59