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


2 participantes

    [Resolvido]Registro Duplicado

    Eduardo-Japao
    Eduardo-Japao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty [Resolvido]Registro Duplicado

    Mensagem  Eduardo-Japao 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
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty Registro Duplicado

    Mensagem  good guy 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

    Eduardo-Japao
    Eduardo-Japao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty Re: [Resolvido]Registro Duplicado

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

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty Registro Duplicado

    Mensagem  good guy 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.
    Eduardo-Japao
    Eduardo-Japao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty Re: [Resolvido]Registro Duplicado

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

    Ok vou verificar depois retorno
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro Duplicado Empty Registro Duplicado

    Mensagem  good guy 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

    Conteúdo patrocinado


    [Resolvido]Registro Duplicado Empty Re: [Resolvido]Registro Duplicado

    Mensagem  Conteúdo patrocinado


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