- 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
5 participantes
[Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº1
[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
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº2
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
up
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
- Mensagem nº3
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
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
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº4
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº5
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Alexandre, segue o bd em anexo
- Anexos
- Excluir.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (32 Kb) Baixado 27 vez(es)
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº6
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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.
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.
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº7
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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.
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº8
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
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
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
- Mensagem nº9
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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.
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.
- Anexos
- SCV.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (95 Kb) Baixado 57 vez(es)
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
marcelo3092- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 19/08/2010
- Mensagem nº10
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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.
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.
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº11
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº12
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº13
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Ney a msg nº 5 tem o exemplo, está igual no meu BD
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº14
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Desculpe nao tinha me atentado..
Tambem estou num projeto e a cabeça esta a mil
Tambem estou num projeto e a cabeça esta a mil
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº15
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
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
- Anexos
- Excluir_new.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (34 Kb) Baixado 25 vez(es)
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº16
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
up
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº17
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
.................................................................................
*** Só sei que nada sei ***
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº18
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
- Mensagem nº19
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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.
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.
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº20
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº21
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
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
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
- Mensagem nº22
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
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
Se quiser postar aqui seu sistema ou me mandar no privado, tudo bem !!
Um abraço e sucesso nos seus projetos.
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
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!!!
Pois colocou meu modelo de caixa num nivel que prefiro nem comentar rss..
Sim. Existem várias formas de se programar e deixar cada vez mais seu código enxuto e funcional.
Uma outra coisa que me intriga é como existem maneiras diferentes de se cadastrar ou melhor criar código no vba.
Se quiser postar aqui seu sistema ou me mandar no privado, tudo bem !!
Um abraço e sucesso nos seus projetos.
.................................................................................
Marcar tópico como Resolvido: clique aqui
Postar anexos no fórum: clique aqui
Sistemas e Tecnologia Ltda
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº23
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
segeu projeto
Zipado e claro rs.
Zipado e claro rs.
- Anexos
- DADOS.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (22 Kb) Baixado 13 vez(es)
Última edição por Ney Santos em 2/4/2020, 18:26, editado 1 vez(es)
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº24
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Ney clica em cima do nome dele, vai aparecer enviar privado
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº25
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
continuando
- Anexos
- BOTOES.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (124 Kb) Baixado 12 vez(es)
Última edição por Ney Santos em 2/4/2020, 18:32, editado 2 vez(es)
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº26
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
agora voltando ao assunto, quem tiver alguma ideia para ajudar a resolver o problema que postei agradeço
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº27
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
segeu ultima parte
- Anexos
- SCCS.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (974 Kb) Baixado 28 vez(es)
alozs- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 298
Registrado : 07/02/2018
- Mensagem nº28
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Agradeço a todos os envolvidos, consegui resolver colocando um
antes de rodar o " do while " fica a dica ai pra quem precisar de algo parecido! funcionou redondo
- 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
Ney Santos- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 360
Registrado : 23/05/2011
- Mensagem nº29
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
Parabens !
Fico feliz que conseguiu resolver..
Fico feliz que conseguiu resolver..
Conteúdo patrocinado
- Mensagem nº30
Re: [Resolvido]Código para excluir um único registro em uma tabela com registros duplicados
» Código para bloquear importação de registros duplicados
» Excluir Registros Duplicados Parcialmente em uma tabela
» [Resolvido]Erro em VBA para Excluir Registros Duplicados
» [Resolvido]Excluir registros de uma tabela, mas que fosse transferida para outra tabela no mesmo BD
» [Resolvido]Excluir registros duplicados preservando um de cada
» Excluir Registros Duplicados Parcialmente em uma tabela
» [Resolvido]Erro em VBA para Excluir Registros Duplicados
» [Resolvido]Excluir registros de uma tabela, mas que fosse transferida para outra tabela no mesmo BD
» [Resolvido]Excluir registros duplicados preservando um de cada