[Resolvido]Vendas produtos

Ola pessoal,porque não da certo, no form PDV tem um botão localizar que abre um form para pesquizar os produtos,quero ao clicar 2 vzs esse produto ir para o pdv.
Alguém da uma olhada. Abçs.

https://dl.dropboxusercontent.com/u/90217826/Vendas.rar

E ai gente,como eu faço pra dar certo esse abençoado bd.

Bom dia Kaynan,


Seu bd tem duas tabelas de produtos, MovProdutos e prdProdutos, pergunto?


De qual tabela e campo, vc deseja adiciona à cx de texto CodBarras?


Abraços,

Cleverson

Ola Cleverson, é da tabela prdProdutos,essa outra tabela é onde ficam os produtos que são vendidos.
Quero que ao abrir o form de pesquisa e clicar 2 vezes no produto,esse va para a tela de vendas do PDV.

Abçs.

Desculpa, mas já tem uma cx combinação, acredito que mais simples e prático.

Mas mesmo assim vou verificar seu form de pesquisa.

Cleverson

Se for mais fácil de fazer a combo atualizar o pdv tambem fica legal.

Olhem ai pessoal consegui alguma coisa,com outro formulario de pesquisa,ja esta indo o produto para o pdv,só não esta indo para a tela de vendas do pdv,se alguém conseguir descobrir por que.


https://dl.dropboxusercontent.com/u/90217826/VENDAS.rar

Veja: E coloque os outros Campos que faltaram...

Código:

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO MovProdutos (Venda,[Data],Produto,[Barra],PrecoVenda,QtdSaida) " & _
"Values(" & [Forms]![PDV]![frmdetalhesvenda].[Form]![codvenda_tblsisPDV] & "," & [Forms]![PDV]![frmdetalhesvenda].[Form]![Data] & ",'" & Me.ltxListaProdutos.Column(2) & "','" & Me.ltxListaProdutos.Column(1) & "','" & Me.ltxListaProdutos.Column(4) & "',1)"

[Forms]![PDV]![frmdetalhesvenda].[Form].Requery
End Sub


Fabio esta dando erro de sintaxe na instrução INSERT INTO

Fabio agora que notei que pra dar  certo tenho que fazer primeiro uma venda sem pesquisar,pra depois dar certo.
uma coisa que não ta dando certo é a quantidade, se coloco  2 ou 3 não ta somando.
E só não soma quando faço a pesquisa .

A quantidade eu setei = 1 la pelo VBA. Se quiser que pegue a do formulario, mande buscar do campo la... igual aos outros

Bem Fabio a quantidade fica como esta,só mais um detalhe é possível ao escolher o produto na pesquisa esse produto aparecer escrito na caixatexto acima no pdv.

A tem sim... E so mandar os Valores da CX listagem para os campos no formulario PDV

Código:

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO MovProdutos (Venda,[Data],Produto,[Barra],PrecoVenda,QtdSaida) " & _
"Values(" & [Forms]![PDV]![frmdetalhesvenda].[Form]![codvenda_tblsisPDV] & "," & [Forms]![PDV]![frmdetalhesvenda].[Form]![Data] & ",'" & Me.ltxListaProdutos.Column(2) & "','" & Me.ltxListaProdutos.Column(1) & "','" & Me.ltxListaProdutos.Column(4) & "'," & [Forms]![PDV]![txtQtd] & ")"
[Forms]![PDV]![TxtProduto] = Me.ltxListaProdutos.Column(2)
[Forms]![PDV]![Texto58] = Me.ltxListaProdutos.Column(4)


[Forms]![PDV]![frmdetalhesvenda].[Form].Requery
End Sub


COd Atualizaado...

Eita Fabio blz mesmo, me diga porque ao fazer a venda normal digitando o código,o valor unitário não aparece ali na caixa.
E não sei se notou que ao fazer a venda o valor do produto não vem igual ao que esta na tabela,sempre arredonda o valor pra mais ou pra menos.

No evento apos atualizar do campo Barra, mande preencher o campo valor... igual e feito la na Busca.

Pra aparecer o valor correto, mude na tabela o campo valor... Coloque o formato MOEDA ou Numero Simples, com 2 casasdecimais... isso deve resolver.

Bom dia Fabio, o valor continua arredondando pra mais ou menos.

Amigo, tera que Muda em todas as Tabelas para MOEDA... Mude também no Formulário... Assim dara certo sim...

Perfeito Fabio,resolvido graças a vc amigo véio, e assim a gente vai levando a vida ajudando e sendo ajudado, a vida é mesmo uma corrente.
Abraços e uma boa semana com muita saúde.
Fica com Deus.

Bacana meu amigo... Posta la na RedeAccess o resultado...