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

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

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

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

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:




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




Abraços

Obrigado , vou adapta-lo

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