[Resolvido]Atualizar caixa listagem

Tenho uma Caixa de listagem que lanco os produtos das vendas, esta tudo ok.

Porem coloquei um botao a parte que utiliza outro comando para jogar os produtos dentro desta mesma caixa de listagem/ Mas nao esta processando os produtos dentro da mesma, Mas os produtos estao sendo lancados normalmente na Tabela aplicada.

Onde esta o erro aqui:

Dim OBrinde
Dim varBrinde As String
varBrinde = InputBox("Descreva o Produto", "adicionar")
OBrinde = varBrinde

CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
listaItensVenda.Requery

Porem coloquei um botao a parte que utiliza outro comando para jogar os produtos dentro desta mesma caixa de listagem/ Mas nao esta processando os produtos dentro da mesma, Mas os produtos estao sendo lancados normalmente na Tabela aplicada.

Aqui acima uma correcao.

Os produtos nao estao sendo jogados nao na tabela.

Existe a TBlVendas e a TBlVendasDet,

surge alguma mensagem de erro?

Confira os campos do tipo texto que devem estar entre aspas
Confira também os campos do tipo numérico que não precisam de aspas

Caso ainda persista o erro, anexo os objetos envolvidos aqui.

Ola, entao estou usando este comando abaixo

Dim OBrinde
Dim varBrinde As String
varBrinde = InputBox("Descreva o Produto", "adicionar")
OBrinde = varBrinde

CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
listaItensVenda.Requery

Porem listaitensVenda é uma consulta nao sei se issi faz diferenca, pois Meu PDV usa a caixa de listagem dentro do PDV com referencia a esta consulta.

No comando acima eu estou dando o caminho correto para que os Dados sejam armazenados em TblVendaDet que esta relacionada com TblVenda

Anexe o banco com os objetos envolvidos para que tenhamos melhor chance de encontrar o que acontece.

Sabe o que reparei aqui, fiz o procedimento normal, e o produto dentro do Form PDV, entrou certinho dentro da caixa de listagem. Dai eu abri a Consulta CSLISTAVENDA, pois a caixa de listagem do PDV se refere a essa consulta em Origem da linha, e la estava o item escrito na Consulta.

Entao usei o Botao que adicionei o codigo acima nao deu erro nehum , mas abri novamente a Consulta CSLISTAVENDA mas o produto nao aparece la, entao abri a TBLVENDADET e o produto aparece na Tabela , soo nao aparece na consulta, entao e esse o motivo pelo qual o item nao esta entrando na caixa de listagem.

Agora porque eu nao sei???

Anexou o banco aqui como foi solicitado?

Confira o IDVenda se está casando. Se registro na tabela atende aos filtros da consulta. Etc etc etc

oi eu nao anexei porque meu sistema esta todo amarrado, a varios formularios, so pra ter ideia o tamanho e de 625.984kb

Um formulario esta marrado a outro, cliente, pesquisa cliente, estoque, pesquisa estoque, etc e as tabelas tb.

Nao sei se te facilita mas fui fazendo a venda passo a passo nos comandos atraves de F8.

Neste comando abaixo e onde joga o produto dentro da COnsulta e tb dentro da caixa de listagem.

CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade, Produto, Sabor, Apres, RefValidade, valorNormal, RefDesc, Origem_Produto) VALUES ('" & Me!txtidVenda & "' , '" & Me!txtCodigoBarra & "' , '" & Me!txtPrecoUnitario & "' , '" & Me!txtQuantidade & "', '" & Me!txtValidade & "', '" & Me!txtDescricaoProduto & "' , '" & Me!txtsabor & "' , '" & Me!txtUnidade & "' , '" & Me!RefValidade & "' , '" & Me!txtPrecoUnitario * Me!txtQuantidade & "', '" & Me!txtPrecoUnitario & "', '" & Me!Ref_Empresa & "' )"


O comando a parte que estou querendo que funcione e assim:

CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
listaItensVenda.Requery

Estou usando o mesmo que acima era pra funcionar

Anexe o banco apenas com a tabela venda, vendadet e a consulta.

momento te mandar

em anexo

não veio o anexo

Me passe um email pode ser, nao esta indo aqui

Os seguintes erros foram encontrados
O arquivo adicionado não é valido: tamanho máximo de anexo ultrapassado (2000 kB).

estou mandando .zip mas nao ta indo

Utilize a opção compactar e reparar antes de anexar. Se continuar ultrapassando 2mb, experimente anexar no dropbox e deixar aqui no tópico o link ou enviar por email (damascenojr@outlook.com)

mandei email

A sua consulta vinculada a tabela vendadet com a tabela produtos (inner join). Se seus brindes não estão cadastrados na tabela produtos então não aparecerão.

Cadastre os brindes na tabela produtos ou então use uma consulta com right join (se escolher a última opção, fique atento aos nomes dos campos).

Deixo aqui meus agardecimentos ao IvanJR e extendo é claro atodos os outros que sempre me ajudam nas minhas testes aqui.

Fiz conforme me explicou e tudo deu certo, em Consulta fiz a alteracao e nas propriedades da Juncao entre as tabelas. Feito isso tudo ok.

Agradeco

Andre

fechando este topico