Excluir item da caixa de listagem

Olá estou desenvolvendo um PDV e estou com dificuldade para resolver este erro.

O erro acontece quando eu quero remover itens adicionados na lista.
O botão excluir executa normalmente, devolve o item ao estoque, mas não exclui o item da lista.
A lista esta vinculada a tblVendaDet.
O correto seria após selecionar o item da lista excluir devolver ao estoque e atualizar a lista.

Private Sub btEcluirProduto_Click() 'Excluir item da lista

If MsgBox("Deseja excluir esse item da lista?", vbYesNo + vbInformation, "Atençao") = vbYes Then

Call fncDevolverEstoque

If txtCodigo = DLookup("CodigoBarra", "tblCad_Produto", "CodigoBarra='" & Me!txtCodigo & "'") Then

CurrentDb.Execute ("DELETE * FROM tblVendaDet WHERE ProdutoID = int(val('" & txtCodigo & "'))AND VendaID = (" & txtVendaID & ");")
MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"
Me.ListaItensVenda.Requery

 Else

 MsgBox "Selecione o item na lista para exclusão.", vbInformation + vbOKOnly, "Atenção!"

  Exit Sub
End If
End If

End Sub

Olá Leandro,

Baixei teu exemplo do sistema e estou fazendo os devidos ajustes.
Assim que finalizar, disponibilizo versão atualizada.

Att,

Alexandre Fim

Obrigado

Já perdi algums finais de semana......tentando resolver.
Já virei youtube de cabeça pra baixo........rsrssrsr

Fico no aguardo

Obrigado

Leandro,

Fiz alguns ajustes no sistema que julguei necessários para melhor funcionamento.

Tambem ajustei o layout do PDV. Ficou assim:


Verifique os comentários no código, que explica o que cada rotina executa.

OBSERVAÇÕES:
1 - No PDV, o sistema permite incluir o mesmo produto mais de 1x. Criar rotina para verificar que o produto já adicionado à lista e não permitir incluir novamente.
2 - Na tabela de produtos, incluir uma coluna para armazenar a quantidade mínima em estoque. Esta pratica é muito comum em sistemas, pois avisa o usuario/administrador que o estoque mínimo foi atingido, para que seja feita a reposição do produto no estoque, para não deixar zerar o estoque.
3 - O sistema permite incluir itens na lista do PDV com estoque zerado. Incluir rotina para não permitir.
4 - Ao incluir o produto na lista de itens do PDV, verificar se o produto escolhido não atingiu o estoque mínimo, conforme item 2.

Segue versão atualizada do sistema.

Espero ter ajudado.

Att,

Alexandre Fim

Só tenho a agradecer por pessoas como você por estarem a disposição para ajudar.

Concerte-se será os próximos passos... para melhorar o controle de estoque.........
Para depois partir para o controle financeiro, crediários , geração de carne.........
O caminho é longo mais é gratificante.

Obrigado.

Leandro,
Os membros deste fórum estarão dispostos em ajudá-lo.
Não esqueça de marcar como Resolvido.

Boa sorte e sucesso.
Att,

Alexandre Fim