[Resolvido]Código para excluir um único registro em uma tabela com registros duplicados

Olá a todos, o problema parece ser simples porem minha limitação de conhecimento me atrapalha um pouco, estou a bastante tempo procurando resolver um problema que seria o seguinte, estou usando o código abaixo que resolve entre aspas meu problema porem ele gera outro problema, quando eu lanço por exemplo 3x o mesmo produto (mesmo código) na mesma venda e quero apagar somente 1 ele apaga todos, tentei os comandos do while mais como meu conhecimento ainda é pequeno não consegui fazer funcionar

Código:

On Error GoTo trataerro
Dim varProdutoExcluir As String

varProdutoExcluir = InputBox("Digite o código do produto para excluir da venda", "Excluindo") 'insiro o código do produto em uma box
txtcodigo = varProdutoExcluir

If varProdutoExcluir = DLookup("CódigoDoProduto", "Tbl_Cad_Produtos", "CódigoDoProduto=" & Me!txtcodigo & "") Then 'se o código for igual ao cadastrado no sistema ele continua a execução

  CurrentDb.Execute ("DELETE * FROM Detalhes_Vendas WHERE CódigoDoProduto = int(val(" & txtcodigo & "))AND NºCOD_VENDAS = (" & NºCOD_VENDAS & ");")
  MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"
  Me.SUB_FORM_VENDAS.Requery
  txtcodigo = Null

  Else
  MsgBox "Selecione o item na lista para exclusão.", vbInformation + vbOKOnly, "Atenção!"
  txtcodigo = Null
  End If
  Exit Sub
trataerro:
If err.Number = 3075 Then
'MsgBox "", , "Cancelado"
txtcodigo = Null
'Resume Next
End If
Else
MsgBox "Por favor reabra a venda para a exclusão do produto desejado!", , "Aviso!"
End If

up

Olá Alonso,

O correto seria o sistema não permitir a inclusão do mesmo produto no pedido, ao invés de excluir os duplicados.
Envie seu banco de dados (somente partes envolvidas), para que possamos analisar e encontrar uma solução.

Abraço

Olá Alexandre muito obrigado pela sua resposta, na realidade antigamente era assim porem retirei essa parte pois varios clientes estavam reclamando que dificultava na hora da venda, agora na hora de excluir ele excluí tudo de uma vez, queria um por um igual a inclusão, estou quebrando a cabeça aqui para conseguir fazer esse procedimento, até consegui mais ainda estou enfrentando alguns erros, vou ver se consigo postar aqui somente essa parte do meu BD

Alexandre, segue o bd em anexo

Boa tarde tambem tive esse problema no meu caso era no caixa .
Resolvi da seguinte forma:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SUBVENDAS")
rs.Index = "CONTREG"
rs.Seek "=", Me.NumReg
If Not rs.NoMatch Then
ESCOLHA = MsgBox("Confirma exclusão?" & vbCrLf & "PRODUTO: " & Me.LSTPED.Column(1), vbYesNo + vbSystemModal, "Confirmação")
If ESCOLHA = 6 Then
rs.Delete

Me.LSTPED.Requery
Me.Requery
End If
End If
Agora explico:
criei um campo "contreg" nas minha Tabela SUBVENDAS e o deixei com numeração automatica na minha tabela assim toda vez que insiro um registro esse campo atualiza automaticamente.
as linhas rs.index e rs.Seek buscam o campo da tabela e um campo no formulario(NumReg).
quando dou o comando delete (rs.delete) ele filtra pelo NUmReg.
Antes de fazer isso acontecia a mesma coisa comigo ele excluia o primeiro produto da lista pois buscava o codigo do produto,
então se meu produto em questão fosse o terceiro quarto quinto ou o que for não adiantava ele pegasempre o primeio regitro da tabela.
espero que ajude voce tambem.

Valeu ney, ainda vou tentar resolver isso antes de mudar pois envolve um monte de vendas já lançadas dai ficaria um pouco inviável fazer isso, na realidade eu até consegui utilizando os comando while, for e etc porem dava problema na outra parte da programação, por exemplo se eu digitasse algum código que não fosse cadastrado ele dava erro ou digitava algum código já cadastrado porem não tivesse na venda ele não continuava o código e etc, acredito que não seja algo muito complexo, até pq eu consegui resolver em partes, não precisa pegar de um campo específico pode ser qualquer local da tabela, de preferência o ultimo lançado.

eu quando criei o novo campo da tabela tambem ja tinha itens lançados, mas por ser um campo que não se duplicava pois é auto numeração
bastou escrever um códio para buscar o seek que funcionou
sequiser post essa parte do sistema em questão posso dar uam olhada pra vc..
muito ja me ajudou esse site não custa ser reciproco

Alonso boa noite,

Pouco tempo atrás eu criei um modelo de vendas com cupom não fiscal para um colaborador aqui do fórum.

Após incluir o produto que já consta na lista, o sistema emite mensagem e não permite incluir novamente este produto, conforme abaixo:




Veja se te ajuda no teu sistema.

Segue arquivo anexo.

Abraço e boa sorte.

Boa noite colega veja ai se te ajuda eu montei um sistema de mercado e o sistema de mercado ele geralmente usa numeração de item e atraves dessa numerão e que sao excluida eu coloquei a função no sub seu fncnumerar que ela a medida que coloca o produto ele vai numerando automaticamente os item
e para excluir modifiquei seu codigo e na caixa que pede o codigo do produto agora pede o numero do item e exclui somente o item que digito veja se te ajuda.

https://drive.google.com/open?id=1psphD4uvtzgVzTNSoU_UE5Mn45hl8jka


pode tb ao se inserir o mesmo item ele pode fazer um update no item somando o item com a outra quantidade ja fiz isso tb.

Obrigado Ney e Marcelo mais dessas formas não vai servir, como é um caixa rápido vai precisar ir "bipando" com o leitor de cod de barras produto a produto e na hora de excluir basta bipar o mesmo produto que exclui (o código atual funciona dessa forma porem ele exclui todos os produtos da venda) gostaria de fazer o mesmo procedimento porem inverso, pressionar uma tecla para excluir e "bipa" o produto e ir excluindo um por vez

estranho , temcomo postar parte do bd, pois o exemploq ue te passei e justamente um caixa de açougue que tambem usa leitro de codigo de barras

Ney a msg nº 5 tem o exemplo, está igual no meu BD

Desculpe nao tinha me atentado..
Tambem estou num projeto e a cabeça esta a mil

Estou quase conseguindo!  
Utilizando os comando do...while porem empaquei em uma parte, agora ele excluí da forma que eu preciso quando o código do produto tem na venda porem quando você digita um código que foi cadastrado no sistema porem que não faz parte da venda ele não aparece a msg para selecionar um produto da venda para excluir.

segue o BD

up

Boa tarde

Teste no exemplo que anexo.

Assis obg pela ajuda mais não seria isso o problema, segue abaixo a imagem de como é e como deveria ser para tentar exemplificar melhor!

Alonso,
Conseguiu visualizar o exemplo que te mandei na Mensagem 9 ?
Este exemplo já existe todo um tratamento de dados para não ocorrer dados duplicados e também com os campos desacoplados da tabela, onde o registro é efetivamente gravado na tabela após clicar no botão "Salvar".

Espero ter ajudado.

olá alexandre conforme expliquei na msg nº11 é um caixa rápido, não vamos utilizar mouse, então precisaria ser basicamente tudo por teclas de atalho e precisa ser de uma forma rápida, antes eu utilizada dessa forma porem perdia-se muito tempo quando era produtos pequenos e muitos, por exemplo uma venda com 50 itens, o cliente precisa ir com o mouse e alterar a quantidade e na hora da impressão do cupom muitas vezes o entregador não via o campo quantidade e acaba entregando somente 1 produto

Prezado Alexandre:
Seu exmeplo esta simplesmente maravilhoso,
lendo suas linhas de programação fiquei abismado
principalmente no que se refere a criar o cupomnão fiscal.
Tomei a libderdade baixar seu arquivo exemplo e estou a estuda-lo
Pois colocou meu modelo de caixa num nivel que prefiro nem comentar rss..
Minha duvida é seria possivel geral um rel baseado nesse cupon não fiscal?
E justamente oque gostaria de fazer para um proejeto para um pequeno açougue.
Se quiser dar uam olhada eu posto meu form Caixa para vc ver como é..
Uma outra coisa que me intriga é como existem maneiras diferentes de se cadastrar ou melhor criar código no vba.
Prinicpalmente no se refere a gerar dados e gravar nas tabelas, ainda não tinha vista nada parecido com a maneira de como vc escreve seus código..
Att Ney Santos

Caro Ney Santos,
Lá nos primórdios, eu utilizava o Access com os objetos acoplados e tal, mas tive sérios problemas quando rodava em rede e com vários usuários. Passei a entender e estudar o VBA e utilizá-lo para deixar o sistema mais seguro e garantindo a qualidade e a integridade dos dados, e foi o trampolim para desenvolver sistemas em outras linguagens (VB.Net, C# Asp.Net e etc) e outros bancos de dados (MS SQL server, Oracle, SyBase).
Atualmente, utilizo o Access mais pra "desenhar" as telas e alguns recurso do VBA, mas o resto é linguagem VB.
Fique à vontade pra baixar e utilizar qualquer exemplo que eu disponibilizar, até porque é esta minha intenção mesmo...rss

Pois colocou meu modelo de caixa num nivel que prefiro nem comentar rss..

O importante é que você criou um modelo dentro do universo do seu conhecimento (nunca é tarde para aprender mais e explorar outras tecnologias), e que funciona..simples assim..Parabéns!!!

Uma outra coisa que me intriga é como existem maneiras diferentes de se cadastrar ou melhor criar código no vba.

Sim. Existem várias formas de se programar e deixar cada vez mais seu código enxuto e funcional.

Se quiser postar aqui seu sistema ou me mandar no privado, tudo bem !!

Um abraço e sucesso nos seus projetos.

segeu projeto
Zipado e claro rs.

Ney clica em cima do nome dele, vai aparecer enviar privado

continuando

agora voltando ao assunto, quem tiver alguma ideia para ajudar a resolver o problema que postei agradeço

segeu ultima parte

Agradeço a todos os envolvidos, consegui resolver colocando um

Código:

If rs.RecordCount = 0 Then
MsgBox "Selecione o item na lista para exclusão.", vbInformation + vbOKOnly, "Atenção!"
Exit Sub
End If

antes de rodar o " do while " fica a dica ai pra quem precisar de algo parecido! funcionou redondo

Parabens !
Fico feliz que conseguiu resolver..