MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]não consigo inserir dados iguais com tabelas diferentes

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  crysostomo em 21/11/2019, 17:00

    Boa tarde , ja pesquisei e não sei aonde está o erro.
    Tenho 2 tabelas diferentes, mas quero inserir os mesmos dados
    ele é inserida em 1, mas na outro não! essa tabela só acrescenta o código, mas os dados mas fica em branco
    Eu tenho outra forma de inserir os dados, mas só queria entender o porque não consigo inserir as 2 tabelas nesse código.

    Código:
    Dim db      As DAO.Database
    Dim sSQL    As String
    Set db = CurrentDb
    sSQL = "INSERT INTO tbVendas"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "CodProduto"
        sSQL = sSQL & " ,NomeDoProduto"
        sSQL = sSQL & " ,Quantidade"
        'sSQL = sSQL & " ,Total"
        'sSQL = sSQL & " ,Data"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.cboCodProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.cboNomeDoProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.txtTotal) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.dataDaVenda) & "'"
        sSQL = sSQL & ")"
        db.Execute sSQL


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty Re: [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  Alexandre Fim em 21/11/2019, 17:35

    Olá Crysostomo,

    Não entendi o motivo de inserir os mesmos dados em tabelas diferentes, mas segue o código:

    Código:


        sSQL = "INSERT INTO tbVendas"
        sSQL = sSQL & "("
        sSQL = sSQL & "  CodProduto"
        sSQL = sSQL & " ,NomeDoProduto"
        sSQL = sSQL & " ,Quantidade"
        sSQL = sSQL & ")"
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.cboCodProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.cboNomeDoProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
        sSQL = sSQL & ")"
        Db.Execute sSQL

        'INSERIR DADOS NA OUTRA TABELA
        sSQL = "INSERT INTO NomeDaOutraTabela"
        sSQL = sSQL & "("
        sSQL = sSQL & "  CodProduto"
        sSQL = sSQL & " ,NomeDoProduto"
        sSQL = sSQL & " ,Quantidade"
        sSQL = sSQL & ")"
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.cboCodProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.cboNomeDoProduto) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
        sSQL = sSQL & ")"
        Db.Execute sSQL


    Espero ter ajudado.

    Boa sorte



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty Re: [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  crysostomo em 21/11/2019, 18:57

    alexandre boa tarde. é  o seguinte Tenho 2 botões
    1- dar baixa
    2 - finalizar a venda
    eu não consegui fazer um relatório ou uma consulta temporária para preencher o cupom , então resolvi fazer uma tabela pra preencher o cupom , e outra pra venda, assim que dar baixa ele vai para tabela para preenche o cupum e atualiza o estoque e quando finalizar a venda o conteúdo da tabela cupom é deletado para fazer novo cupom, e os dados ficam inseridos na tabelaVendas.

    quero transferir o que esta na tabala do cupom para a tabela da venda


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty Re: [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  Alexandre Fim em 21/11/2019, 19:53

    Crysostomo,

    Algum tempo atrás eu desenvolvi um modelo de vendas para um amigo aqui do fórum.
    Este sistema gera o cupom na tela à medida que vc vai incluindo os produtos, e ele tmb grava o cupom na tabela.

    Veja o modelo:

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Cupom_10


    Estou disponibilizando o modelo e veja se pode te ajudar de alguma forma.




    Abraços
    Anexos
    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes AttachmentVendasSys.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (94 Kb) Baixado 21 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty Re: [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  crysostomo em 21/11/2019, 20:47

    Obrigado , vou adapta-lo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]não consigo inserir dados  iguais com tabelas diferentes Empty Re: [Resolvido]não consigo inserir dados iguais com tabelas diferentes

    Mensagem  Alexandre Fim em 21/11/2019, 21:01

    Crysostomo,

    Vou melhorar este sistema, criando as entradas/saida de estoque.

    Entrada: Qtde de produtos através de NF.
    Saida: Através do Pedido de Vendas.

    OBS: O Cupom Não Fiscal está definido um tamanho específico e ai vc tmb deve adaptá-lo para impressora do tipo Bematech ou Matricial com adaptador de bobina de papel.

    É isso !!!

    []'s



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 29/11/2020, 19:10