MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Registro Duplicado

    Compartilhe
    avatar
    Eduardo-Japao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 05/05/2011

    [Resolvido]Registro Duplicado

    Mensagem  Eduardo-Japao em 5/1/2012, 15:23

    Tenho um Formulario em modo de folha de dados com este codigo para registros duplicados:
    Private Sub CodigoVenda_BeforeUpdate(Cancel As Integer)

    If (Not IsNull(DLookup("[CodigoVenda]", "EquipamentoConj", _
    "[CodigoVenda] ='" & Me!CodigoVenda & "'"))) Then
    MsgBox "Este Equipamento já está cadastrado...", vbInformation, "Cadastro de Equipamentos"
    Me.CodigoVenda.Undo
    Cancel = True 'cancela o evento.
    'Me!CodigoVenda.Undo 'desfaz a digitação.
    End If

    End Sub
    Ao terminar o codigo abre uma outra caixa de mensagem dizendo assim : "nenhum registro atual"
    O que posso fazer para não aparecer esta mensagem
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Registro Duplicado

    Mensagem  good guy em 5/1/2012, 17:51

    Olá Eduardo,

    Tente assim com tratamento de erros:

    Private Sub CodigoVenda_BeforeUpdate(Cancel As Integer)
    On Error GoTo TrataErro
    If (Not IsNull(DLookup("[CodigoVenda]", "EquipamentoConj", _
    "[CodigoVenda] ='" & Me!CodigoVenda & "'"))) Then
    MsgBox "Este Equipamento já está cadastrado...", vbInformation, "Cadastro de Equipamentos"
    Me.CodigoVenda.Undo
    Cancel = True 'cancela o evento.
    'Me!CodigoVenda.Undo 'desfaz a digitação.
    End If

    Exit_CodigoVenda_BeforeUpdate:
    Exit Sub
    TrataErro:
    MsgBox Err.Description
    Resume Exit_CodigoVenda_BeforeUpdate

    End Sub

    avatar
    Eduardo-Japao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 05/05/2011

    Re: [Resolvido]Registro Duplicado

    Mensagem  Eduardo-Japao em 6/1/2012, 12:44

    Caro Guy esta mensagem aparece apos ter saido da sub,porque dentro do codigo ja existe tratamento de erro
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Registro Duplicado

    Mensagem  good guy em 6/1/2012, 16:26

    Olá Eduardo,

    Testei aqui o seu código simulando toda a situação e não aconteceu nada. Já depurou o seu código para saber em qual linha aparece o erro? Esta mensagem pode ser uma mensagem de erro ou resposta a um comando que seu código passa.

    Teste no final do seu código essa linha:

    DoCmd.SetWarnings False

    Se persistir o problema, talvez seja preciso postar o código para uma análise mais apurada.
    avatar
    Eduardo-Japao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 05/05/2011

    Re: [Resolvido]Registro Duplicado

    Mensagem  Eduardo-Japao em 7/1/2012, 17:52

    Ok vou verificar depois retorno
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Registro Duplicado

    Mensagem  good guy em 13/1/2012, 11:37

    Olá Eduardo,

    Se tudo estiver certo no seu código, coloque assim o mesmo:

    DoCmd.SetWarnings False
    Seu código...
    DoCmd.SetWarnings True

      Data/hora atual: 26/9/2018, 09:49