[Resolvido]Duplicidade de Itens no mesmo pedido (não permitir)

Senhores, boa tarde.

Após muita pesquisa e não ter encontrado o que preciso, recorro a ajuda de vocês.
Preciso que ao inserir item no meu pedido (subform detalhes do pedido), caso ele já tenha sido cadastrado NO MESMO PEDIDO, seja exibido a mensagem "Item Cadastrado", p. exemplo.
Em um novo pedido, o item pode ser inserido.
Espero ter conseguido explicar minha necessidade.
Muito obrigado.
Antonio Aurélio

Trabalha com formulários acoplados ou não?

Obrigado pelo interesse em me ajudar.

Trabalho com os formularios Clientes, Pedidos e Subform Pedidos por Clientes (de maneira bem similar ao bd exemplo do access).

Abraços,

Olá...
Adapte a sua necessidade, Coloque no evento antes de atualizar no campo que voce seleciona o produto

Código:

 On Error Resume Next
    Dim frm As Recordset

    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "tblNomeDaSuaTabela.CodigoDoProduto =" & Me.NomeDoCampoDoSubFormulário& ""
        If Not .NoMatch Then
          MsgBox "Já existe um lançamento Com este Produto" & Chr(10) & "" & "Altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
          Cancel = True
          Me.NomeDoCampoDoFSubFormulário.Undo
         
        End If
    End With
    Set frm = Nothing

Espero que ajude


Abraços

Bom dia.

Agradeço a atenção de vocês.
O código funciona, porém, como já tenho outros pedidos abertos, se abro outro pedido e tento inserir um produto já existente em outro pedido recebo a mensagem de lançamento existente para o produto.

O que preciso é que no mesmo pedido não seja possível vender o mesmo produto (basta alterar a quantidade), mas, num pedido novo os produtos possam ser inseridos normalmente para vendas posteriores.

Agradeço e continuo contando com o apoio de voces.

Muito obrigado.

Bom dia

É um formulário com um subformulário ligado ?

No código que o Celso lhe passou o mesmo vai a tabela procurar se o produto que já esta registado, até aqui tudo bem, mas esse produto pode ser registado em vários documentos, portanto tem que ter mais uma condição.

Tente aplicar este código, e tiver duvida poste

Private Sub Ref_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("[Ref]", "TbldetalheOrcamento", "[Ref] = '" & Me.Ref & "' And idligacao = " & Forms!frmOrcamento!idOrcamento & "")) Then
MsgBox "Ref Já Registada neste Orçamento", vbInformation, "Aviso"
Me.Undo
End If
End Sub

Bom dia.

Obrigado pela ajuda.

O meu formulário PEDIDOS tem um subformulário DETALHES DA VENDA.

Adaptei o código e continuo recebendo a mensagem que o o item já existe no pedido.

If Not IsNull(DLookup("[CódigoDoProduto]", "Detalhes_da_Venda", "[CódigoDoProduto] = '" & Me.CódigoDoProduto & "' And CódigoDoProduto = " & Forms![ Detalhes_da_Venda]!CódigoDoProduto & "")) Then
MsgBox "Produto Já Registrado neste Pedido", vbInformation, "Aviso"
Me.Undo
End If

O que percebo é que ele não está verificando os produtos inseridos no pedido atual (ou está pesquisando da tabela de Produtos ou da tabela Detalhes da Venda, retornando a mensagem de "Item já registrado" ignorando o número do Pedido atual).

Continuo contando com a ajuda de vocês.
Volto às minhas pesquisas, também.
Obrigado.

Antonio Aurélio

Antonio Aurélio

Copie e cole para testar

If Not IsNull(DLookup("[CódigoDoProduto]", "Detalhes_da_Venda", "[CódigoDoProduto] = " & Me.CódigoDoProduto & " And CódigoDoProduto = " & Forms![ Detalhes_da_Venda]!CódigoDoProduto & "")) Then
MsgBox "Produto Já Registrado neste Pedido", vbInformation, "Aviso"
Me.Undo
End If

E vai ter erro aqui

And CódigoDoProduto = " & Forms![ Detalhes_da_Venda]!CódigoDoProduto & ""))


Aqui são os campos ID de ligação do formulário com o subformulário.

Veja bem a Mensagem nº 6

If Not IsNull(DLookup("[Ref]", "TbldetalheOrcamento", "[Ref] = '" & Me.Ref & "' And idligacao = " & Forms!frmOrcamento!idOrcamento & "")) Then

Continuo recebendo a mensagem.

O item A 100.345.353 está no Pedido nº 000.001 (encerrado e sem possibilidades de alteração);

Estou abrindo o Pedido nº 000.002 e tento inserir o mesmo item para venda; aí recebo a mensagem de item registrado.

Vou continuar tentando.

Tentei fazer referência ao Pedidos, mas, não consegui obter sucesso.

Abraços e obrigado novamente.

António Aurélio

Poste ai só:

Tabela de vendas e a tabela de Detalhes_da_Venda, e o respetivo formulário aonde está a registar.

Aguardo

Bom dia, se me permitem um simples pitaco...

Algo parecido com isso, detalhe uso em um subformulário, em uma combobox, que passa o valor dela para uma caixa oculta( CodProdutoOculta).

Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
   Set frm = Me.RecordsetClone
   With frm
   .FindFirst "CodProdutoOculta='" & Me.CboCodProd & "' And CodSubPed=" & Me.CodSubped & ""
       If Not .NoMatch Then
         If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
       Else
          Cancel = True
          Me.CboCodProd.Undo
          End If
       End If
   End With
   Set frm = Nothing
End Sub


Detalhes...

CodProdutoOculta= recebe o valor da combobox CboCodProd.
CodSubPed= Chave primária do subformulário.

Tem que alterar duas linhas apenas para cancelar a introdução de artigos repetidos.


Bons estudos.

Senhores,

Estou tendo progresso.
Fiz algumas adaptações conforme o Código que Sr. Sílvio postou.

Dentro do subformulário detalhes da venda (modo folha de dados), recebo a mensagem que o produto existe no pedido e se desejo ou não re-incluí-lo.
Ótimo.

Quando abro o Formulário de Pedidos e tento incluir o mesmo item, não recebo a mensagem e o ítem é incluído.

Onde estou pecando?

Código alterado.
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
Set frm = Me.RecordsetClone
With frm
.FindFirst "CodProdutoOculta=" & Me.CódigoDoProduto & " And CódigoDoPedido=" & Me.CódigoDoPedido & ""
If Not .NoMatch Then
If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
Else
Cancel = True
Me.CódigoDoProduto.Undo
End If
End If
End With
Set frm = Nothing

Obrigado.

Porque você não posta a parte do BD que você precisa corrigir? Fica muito mais fácil pra quem for te ajudar.

Ola Marcelo, bom dia.

Agradeço seu retorno.

Não postei parte do BD por não ter visto necessidades neste caso.

Julguei até que minha dúvida poderia ser simples, mas, percebí que não é, principalmente para quem não tem tanta experiência como eu.

Muito obrigado.

Antonio Aurélio.

Olá Bom dia a todos

Testado e funcionando, verifica ai.

Antonio, é importante a base de dados porque não sabemos como ela esta projetada.

Mas testa ai, nã esque de corrigir os nomes dos campos para os seus

Código:

Dim frm As Recordset

    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "CodProduto=" & Me.CboCodProduto & ""
        If Not .NoMatch Then
          MsgBox "Já existe um lançamento Com este Produto" & Chr(10) & "" & " Por favor,altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
          Cancel = True
          Me.CboCodProduto.Undo
          'Me.Bookmark = .Bookmark
        End If
       
    End With
    Set frm = Nothing

Este tambem funciona

Código:

Dim frm As Recordset

    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "CodProduto=" & Me.CboCodProduto & " And NumPedido=" & Me.txtNumPedido & ""
        If Not .NoMatch Then
          MsgBox "Já existe um lançamento Com este Produto" & Chr(10) & "" & " Por favor,altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
          Cancel = True
          Me.CboCodProduto.Undo
          'Me.Bookmark = .Bookmark
        End If
       
    End With
    Set frm = Nothing

Aguardamos

Senhores, boa tarde.

Muito obrigado pela valiosa colaboração.
Os Códigos enviados pelo Sr Celso Roberto, após as adaptações necessárias, funcionaram.
Obrigado a todos.

Tópico resolvido.
Muito obrigado.

Antonio Aurélio

Olá...

Ficamos felizes por ter conseguido resolver

O Fórum agradece o seu retorno

Abraços

Por favor Senhores, na mensagem 16 deste tópico o segundo código, dos campos citados, quais são do formulário – do subformulário, ou das tabelas?
Conforme o próprio interessado comenta que Trabalha com os formularios Clientes, Pedidos e Subform Pedidos por Clientes (de maneira bem similar ao bd exemplo do access)

Infelizmente o interessado não postou seu banco de dados.
Eu não estou conseguindo implementar o código no meu banco de dados que tenho.
Formulário com nr pedido e cliente
Subformulário com produtos relacionado com nr pedido do formulário. Desde já agradeço.

Dim frm As Recordset

Set frm = Me.RecordsetClone
With frm
.FindFirst "CodProduto=" & Me.CboCodProduto & " And NumPedido=" & Me.txtNumPedido & ""
If Not .NoMatch Then
MsgBox "Já existe" & Chr(10) & "" & " Altere! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
Cancel = True
Me.CboCodProduto.Undo
'Me.Bookmark = .Bookmark
End If

End With
Set frm = Nothing

Olá Carlos Cruz..

Como eu disse na própria mensagem 16, é importante anexar a base de dados.
Então vá ao tópico que você criou e anexe sua Base de dados com as tabelas, consultas e formulários envolvidos e com dados suficientes para que possamos tentar te ajudar.

Abraços

Algumas informações necessárias do que eu preciso estão em vermelho no próprio formulário. Desde já agradeço a todos. Qualquer dúvida por favor contacte. Obrigado!

Olá Carlos cruz

Primeiro abra o editor do Visual Basic clique em ferramentas depois em referencias, vai abrir uma caixa conforme imagem abaixo e marque a referencia indicada



Em Segundo cole este código no evento antes de atualizar da caixa de combinação ProdutoTblProdutoPedido

Código:

Private Sub ProdutoTblProdutoPedido_BeforeUpdate(Cancel As Integer)
Dim frm As Recordset

    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "ProdutoTblProdutoPedido='" & Me.ProdutoTblProdutoPedido & "' And PedidoTblProdutoPedido=" & Me.PedidoTblProdutoPedido & ""
        If Not .NoMatch Then
           MsgBox "Já existe um lançamento Com este Produto" & Chr(10) & "" & " Por favor,altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
           Cancel = True
           Me.ProdutoTblProdutoPedido.Undo
           'Me.Bookmark = .Bookmark
        End If
        
    End With
    Set frm = Nothing
End Sub

Faça os teste e retorne

Nota: Quando me referi ao seu tópico criado, eu me referi a este
maximoaccess.com/t33760-nao-repetir-item-em-formulario-continuo-2

Se tudo estiver ok, não esqueça de encerrar ele ou de continuidade por ele

Abraços

Celso Roberto, perfeitamente, funcionou 100% como eu precisava. Muito obrigado. Se eu puder retribuir de alguma forma, por favor contacte! Neste forum continuarei buscando informações e quando eu puder contribuirei com informações. Obrigado a todos!

Olá..

Fico feliz por ter ajudado e
Obrigado pelo retorno.

Abraços

Olá Celso Roberto. Desculpe, mas por erro meu, tenho que retornar a pedir sua ajuda. Tentei consertar mas me falta conhecimento em códigos. Torço para que seja apenas uma linha do código para consertar o problema.
No banco de dados resumido que eu postei anteriormente para você criar um código para não ocorrer venda de produto repetido no mesmo pedido, funcionou perfeitamente, isso porque na tabela que criei os campos eram:
    ProdutoTblProdutoPedido  com formato texto curto
    PedidoTblProdutoPedido    com formato número
Agora ao adaptar ao meu banco de dados o código não funcionou, acho que o motivo é que infelizmente os campos tem formato diferente, ou seja, ambos são formato número!
    ProdutoTblProdutoPedido com formato número
    PedidoTblProdutoPedido   com formato número
Acredito que apenas duas linhas do código que você criou deva ser alterado:

Obs. Posto bd    CarlosCruzNovo    já com os campos envolvidos em formato número, é só mudar o código !!!

Primeira alteração todos os campos envolvidos serão formato número, não sei se retiro aspas, coloco entre parênteses, retiro Me. ???

.FindFirst "ProdutoTblProdutoPedido='" & Me.ProdutoTblProdutoPedido & "' And PedidoTblProdutoPedido=" & Me.PedidoTblProdutoPedido & ""

Segunda alteração, na linha um pouco mais abaixo:

Me.ProdutoTblProdutoPedido.Undo         ‘ também é formato número

Desde já agradeço e peço desculpas por retornar no mesmo assunto.
Abraço

Novo Banco de Dados, é só mudar o código?

Olá..

Substitua linha do .FindFirst por esta

.FindFirst "ProdutoTblProdutoPedido=" & Me.ProdutoTblProdutoPedido & " And PedidoTblProdutoPedido=" & Me.PedidoTblProdutoPedido & ""

É só questão de aspas

Aspas simples mais aspas duplas '" Me.Meucampo '" = campo texto
Sómente aspas duplas " Me.MeuCampo "= campos númericos

Abraços

Bingo !!! Agora sim funcionou perfeitamente Celso. Agradeço sua dedicação, paciência e rapidez para ajudar repassando seus conhecimentos aos usuários do fórum. Também agradeço ao fórum e todos seus usuários participantes!
No que eu puder ajudar, contem comigo!
Abraço a todos!
Carlos

Olá...

Obrigado pelas palavras, esta é a finalidade do Fórum

Abraços