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 Qui 05 Jan 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 : 1119
    Registrado : 05/02/2010

    Registro Duplicado

    Mensagem  good guy em Qui 05 Jan 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 Sex 06 Jan 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 : 1119
    Registrado : 05/02/2010

    Registro Duplicado

    Mensagem  good guy em Sex 06 Jan 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 Sab 07 Jan 2012, 17:52

    Ok vou verificar depois retorno
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Registro Duplicado

    Mensagem  good guy em Sex 13 Jan 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: Seg 23 Abr 2018, 03:05