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

    Cópia de dados tabela

    adrianoheitor
    adrianoheitor
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 13/07/2010

    Cópia de dados tabela Empty Cópia de dados tabela

    Mensagem  adrianoheitor 28/10/2019, 12:23

    Bom dia....
    tenho a seguinte situação:
    Tabelas:

    •   - tblOrcamentos: NumeroOrcamento
                                  CodigoCliente
                                  DataOrcamento
                                  DataEntrega
                                  InformacoesAdicionais
        - tblDetalheOrcamentos: CodigoInterno
                                             NumeroOrcamento
                                             CodigoKit
                                             ComplementoKit
                                             ValorUnitario
                                             Quantidade
                                             Desconto
        - tblVendas: NumeroVenda
                           CodigoCliente
                           DataVenda
                           DataEntregaProduto
                           OutrasInformacoes
                           NumeroOrcamento
        - tblDetalheVendas: CodigoInterno
                                      NumeroVenda
                                      NumeroOrcamento
                                      CodigoKit
                                      ComplementoKit
                                      ValorUnitario
                                      Quantidade
                                      Desconto


    As tabelas tblOrcamento e tblDetalheOrcamentos estão em um formulário.
    Criei um botão para, se o orçamento virar venda, clico nele e os dados deste orçamento são transferidos para as tabelas tblVendas e tblDetalheVendas.
    Os dados de tblOrcamento para tblVendas estão indo, pois é apenas um registro.
    Os dados de tblDetalheOrcamento para tblDetalheVendas está indo apenas o primeiro registro; quando possuem mais registros, não são copiados.
    Sei que tenho que fazer um laço para que, enquanto o número do orçamento for igual, os dados vão sendo copiados. Entretanto, não estou conseguindo fazer esse laço.
    Faz muito tempo não mexo com o Access (o que não é muita desculpa, pois o que se aprende, não se esquece).... mas, enfim, estou encalhado aqui.
    Se puderem dar uma luz, agradeço.

    Obrigado

    Adriano Heitor
    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 267
    Registrado : 08/09/2012

    Cópia de dados tabela Empty Re: Cópia de dados tabela

    Mensagem  Maicon 28/10/2019, 21:36

    Bom amigo , primeiro teria que explicar :

    O que evento faz ? E uma consulta ? É um procedimento vba com recordset ?

    Parece que se só puxa a primeira linha do pedido é um recordset correto ? se for isso pode ser falta move.next


    Veja o tópico do nosso grandioso Cláudio Más : "https://www.maximoaccess.com/t10733-resolvidoerro-em-movenext-e-moveprevious"


    Poste o código do teu evendo para que possamos ajudá-lo.


    Se possivel poste parte do teu banco de dados para que possamos avaliar.


    Última edição por Maicon em 28/10/2019, 21:41, editado 1 vez(es) (Motivo da edição : Complementar a Resposta)


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 25/11/2024, 18:44