MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+3
Celso Roberto
thiagomcosta
Antonio Aurélio
7 participantes

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

    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 17/10/2017, 19:45

    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
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

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

    Mensagem  thiagomcosta 17/10/2017, 19:53

    Trabalha com formulários acoplados ou não?
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 17/10/2017, 20:09


    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,
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 17/10/2017, 23:01

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 11:43

    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

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

    Mensagem  Assis 18/10/2017, 12:20

    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



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 12:49

    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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

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

    Mensagem  Assis 18/10/2017, 13:04

    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


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

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

    Mensagem  Assis 18/10/2017, 13:12

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 13:22

    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

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

    Mensagem  Assis 18/10/2017, 13:43

    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


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

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

    Mensagem  Silvio 18/10/2017, 13:53

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 14:33

    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.
    marceloarboit
    marceloarboit
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 09/07/2015

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

    Mensagem  marceloarboit 18/10/2017, 14:36

    Porque você não posta a parte do BD que você precisa corrigir? Fica muito mais fácil pra quem for te ajudar.
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 14:45

    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.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 18/10/2017, 15:00

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Antonio Aurélio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 29/01/2014

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

    Mensagem  Antonio Aurélio 18/10/2017, 16:47

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 18/10/2017, 17:17

    Olá...

    Ficamos felizes por ter conseguido resolver

    O Fórum agradece o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

    [Resolvido]Duplicidade de Itens no mesmo pedido (não permitir) Empty Tentativa de melhor compreensão do código

    Mensagem  Carlos Cruz 6/7/2018, 23:24

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 7/7/2018, 14:32

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

    [Resolvido]Duplicidade de Itens no mesmo pedido (não permitir) Empty Segue banco de dados

    Mensagem  Carlos Cruz 8/7/2018, 03:12

    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!
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 8/7/2018, 17:20

    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

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

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

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

    Mensagem  Carlos Cruz 8/7/2018, 18:19

    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!
    Anexos
    [Resolvido]Duplicidade de Itens no mesmo pedido (não permitir) AttachmentResolvidoCarlosCruz.zip
    Anexo banco de dados já com a solução
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 11 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 8/7/2018, 18:43

    Olá..

    Fico feliz por ter ajudado e
    Obrigado pelo retorno.

    Abraços



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

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

    Mensagem  Carlos Cruz 12/7/2018, 21:50

    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?
    Anexos
    [Resolvido]Duplicidade de Itens no mesmo pedido (não permitir) AttachmentCarlosCruzNovo.zip
    .
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 11 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 13/7/2018, 13:50

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

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

    Mensagem  Carlos Cruz 13/7/2018, 13:59

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 13/7/2018, 14:12

    Olá...

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

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 14:15