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


2 participantes

    Clonando item de subformulário

    avatar
    Brisa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Clonando item de subformulário Empty Clonando item de subformulário

    Mensagem  Brisa 20/9/2016, 20:08

    Boa tarde!
    Eu tenho um formulário com um subformulário em folha de dados.
    Quero clonar este registro.

    Para os itens do formulário foi fácil usei o DoCMD.OpenForm e após o form abrir no carregar coloquei a expressão

    Me.equipamentos = Forms!proposta.equipamentos
    Me.funcionario = Forms!proposta.funcionario
    Mas estes estão no formulário.

    Eu gostaria que os dados do subformulário fossem clonados também.
    Tenho um subformulário com nome "pedido"
    quero que quando eu clicar no botão clonar que tem a ação de abrir novo formulário, além de copiar os dados do formulário "equipamento" e "funcionário" copie também do subformulário pedido "Função"

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Clonando item de subformulário Empty Re: Clonando item de subformulário

    Mensagem  Cláudio Machado 20/9/2016, 21:39

    Olá seja bem vindo.
    Dá pra fazer, mas sem saber os nomes dos campos e forms fica complicado.
    Posta esta parte aqui no fórum  pra gente analisar.

    No aguardo.

    Seria mais ou menso isso:

    Código:

    CurrentDb.Execute "INSERT INTO PEDIDO_COMPRAS_SUB (Produto, Quant, Und, Preço) SELECT ORÇAMENTOS_SUB.Produto, ORÇAMENTOS_SUB.Quant, ORÇAMENTOS_SUB.Unid, ORÇAMENTOS_SUB.Preço FROM ORÇAMENTOS_SUB, PEDIDO_COMPRAS_SUB;"


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Clonando item de subformulário 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Brisa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Clonando item de subformulário Empty Re: Clonando item de subformulário

    Mensagem  Brisa 21/9/2016, 14:11

    Olá Claudio, obrigada por retornar.

    A estrutura é

    Tabela1: Planilha
    ID >CHAVE(NUMERÇÃO AUTOMÁTICA)
    MATERIAL > NUMERO
    EQUIPAMENTO > NUMERO
    UNIDADES > NUMERO
    LUCRO> NUMERO

    ESTAS ESTÃO NO FORMULÁRIO PROPOSTA

    Tabela2: Pedido
    CÓDIGO >CHAVE(NUMERÇÃO AUTOMÁTICA)
    CDPLANILHA> NUMERO (VINCULADO AO CAMPO MESTRE ID DA TABELA PLANILHA)
    CARGO >LISTA
    CH> LISTA
    QTD>NUMERO

    ESTAS ESTÃO EM UM SUBFORMULÁRIO PEDIDO

    quero clonar estes dados em um novo registro.

    avatar
    Brisa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Clonando item de subformulário Empty Re: Clonando item de subformulário

    Mensagem  Brisa 21/9/2016, 14:40

    Claudio, este código acima não seria para inserir os dados na tabela?
    Coloquei no botão que cria um novo registro mas retornou com a informação de que a tabela de consulta xxx nao foi localizada.

    Conteúdo patrocinado


    Clonando item de subformulário Empty Re: Clonando item de subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/5/2024, 22:12