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


    [Resolvido]Duplicidade de registro

    avatar
    Convidado
    Convidado


    [Resolvido]Duplicidade de registro Empty [Resolvido]Duplicidade de registro

    Mensagem  Convidado 22/9/2017, 07:24

    Bom dia colegas

    Pesquisei no forum sobre duplicidade de registros e não encontrei o que pretendo.

    Seria isso:
    Em um subformulário o produto pode ser digitado somente uma vez:

    Ex: Mouse - 01
    Cpu - 01

    Ao tentar digitar novamente um desses produtos o sistema não aceita emitindo mensagem.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Duplicidade de registro Empty Re: [Resolvido]Duplicidade de registro

    Mensagem  Silvio 22/9/2017, 07:36

    Bom dia,

    Algo parecido com isso em teu subformulário.

    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


    .................................................................................
    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
    Convidado
    Convidado


    [Resolvido]Duplicidade de registro Empty Re: [Resolvido]Duplicidade de registro

    Mensagem  Convidado 22/9/2017, 07:47

    Bom dia Silvio,

    Obrigado por responder.

    O que seria CodProdutoOculta

    avatar
    Convidado
    Convidado


    [Resolvido]Duplicidade de registro Empty Re: [Resolvido]Duplicidade de registro

    Mensagem  Convidado 22/9/2017, 23:05

    .

    Conteúdo patrocinado


    [Resolvido]Duplicidade de registro Empty Re: [Resolvido]Duplicidade de registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:54