PRIMEIRA DUVIDA LISTVIEW

ADHEL 05/11/2009 17:54:50
#327056

PESSOAL BOA TARDE
tenho 2 dúvidas sobre listview vou postar a primeira

CRIEI UM LISTVIEW ASSIM

Private Sub cmdIncluir_Click()
Dim Item As ListItem


Set Item = lstvendas.ListItems.Add(, , txtCódigo)
Item.SubItems(1) = cboProduto.Text
Item.SubItems(2) = txtPreçoVenda.Text
Item.SubItems(3) = txtQuantidadePedido.Text
Item.SubItems(4) = Format(Total, [Ô]currency[Ô])
Item.SubItems(5) = txtSubtração.Text

End Sub

ESSA CODIFICAÇÃO AQUI EMBAIXO é PARA SUBTRAIR A QTD DO PEDIDO COM O ESTOQUE


txtSubtração = Val(txtQuantidade.Text) - Val(txtQuantidadePedido.Text)

E ESSA é PARA ATUALIZAR

cnn.Execute ([Ô]update Produtos set quantidade = [Ô] & CDbl(txtSubtração.Text) & [Ô] WHERE Código = [Ô] & txtCódigo)


APARECE CORRETAMENTE NO LISTVIEW
SENDO QUE ESSE LISTVIEW é DE VENDAS

A MINHA DÚVIDA é A SEGUINTE

QDO EU CLICO NO BOTÃO INCLUIR ELE JÁ DIMINUE A QTD NO ESTOQUE.AGORA SE O CLIENTE DESISTIR DE LEVAR O PRODUTO.COMO FAÇO PARA REVERTER A CODIFICAÇÃO.

TENTEI FAZER A CODIFICAÇÃO DE BAIXA NO ESTOQUE NO BOTÃO GRAVAR ,SÕ QUE NÃO CONSEGUI


CRIEI UM BOTÃO REMOVER COM ESSA CODIFICAÇÃO

cnn.Execute ([Ô]update Produtos set quantidade = quantidade + [Ô] & Val(lstVendas.ListItems(i).SubItems(3)) & [Ô] WHERE Código = [Ô] & txtCódigo)

APARECE ESSA MSG

RUN TIME ERROR

INDEX OUT OF BOUNDS

OBRIGADO A TODOS