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]Evitar Registo Duplicado

    Compartilhe

    zaffer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 02/02/2010

    [Resolvido]Evitar Registo Duplicado

    Mensagem  zaffer em Sex 30 Jun 2017, 12:54 pm

    Boa tarde a todos os amigos do fórum:

    Estou com algumas dificuldades em implementar/ajustar, na minha BD, uma instrução VBA, nomeadamente no formulário (Orçamentos), por forma a que não haja introdução de registos duplicados.
    Este código está a funcionar corretamente no formulário (Clientes), mas não estou conseguindo ajustar e pôr a funcionar corretamente no formulário (Orçamentos), no campo (NumeroOrcamento), no evento: (Antes de Atualizar)

    Dando o seguinte erro: "Run-Time Error "3464" Tipo de dados incorretos na expressão de critérios."

    Se possível agradecia a vossa ajuda.

    Este código encontra-se aqui no fórum, na área de códigos VBA, penso que, disponibilizado pelo amigo JPaulo.


    Nota: Para funcionar corretamente a B.D. colocar a pasta (Base Dados Orcamentos) em C:\
    Anexos
    Orcamento Mecanica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 8 vez(es)
    avatar
    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 08/10/2012

    Re: [Resolvido]Evitar Registo Duplicado

    Mensagem  Ney em Sex 30 Jun 2017, 2:21 pm

    zaffer, Boa tarde!!

    Tente assim, evento após atualizar campo,

    Código:
    If DCount("Número_Orçamento", "[Orçamento]", "CodigoOrçamento = Forms!Orçamento!NumeroOrcamento") >= 1 Then
    MsgBox "Número já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
    Cancel = True
    Exit Sub
    End If



    Att;

    Ney

    zaffer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 02/02/2010

    Evitar Registo Duplicado

    Mensagem  zaffer em Seg 03 Jul 2017, 10:19 am

    Boa tarde Sidney
    Em primeiro lugar quero agradecer a sua preciosa ajuda e a forma rápida como respondeu à minha dúvida.
    Depois de ler as suas orientações, implementei o código tal como descrito.
    Acontece que ainda existe um pequeno erro, que é o seguinte:
    na linha (Cancel= True) dá erro, abrindo o VBA e informando ( VARIABLE NOT DEFINED)
    Uma vez mais agradecia a sua ajuda, se possível.
    Anexo printscreen do erro.

    Obrigado pela sua ajuda e empenho, na minha dúvida.
    Anexos
    Erro VBA.png
    Erro VBA
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 6 vez(es)
    avatar
    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 08/10/2012

    Re: [Resolvido]Evitar Registo Duplicado

    Mensagem  Ney em Seg 03 Jul 2017, 11:54 am

    Zaffer, Boa Tarde!!!

    Verifique o anexo,

    att;

    Sidney
    Anexos
    Base Dados Versao 3.1.2.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (712 Kb) Baixado 25 vez(es)

    zaffer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 02/02/2010

    Evitar Registo Duplicado

    Mensagem  zaffer em Qui 06 Jul 2017, 5:29 am

    Bom dia Sidney

    peço desculpas em só agora responder ao seu último post, tenho tido bastante trabalho e só agora me foi possível vir aqui ao fórum.
    Analisei as correções efetuadas, no código, agora está a funcionar na perfeição.
    Uma vez mais quero agradecer o seu empenho e dedicação, em me ter ajudado a solucionar o problema.
    Muito Obrigado pela sua ajuda.
    Obrigado também ao fórum.

    avatar
    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 08/10/2012

    Re: [Resolvido]Evitar Registo Duplicado

    Mensagem  Ney em Qui 06 Jul 2017, 9:42 am

    O fórum agrade, não esquece de colocar como RESOLVIDO.

    abraço

    att;

    Ney

    zaffer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 02/02/2010

    Evitar Registo Duplicado

    Mensagem  zaffer em Qui 06 Jul 2017, 10:32 am

    Uma vez mais, muito obrigado Sidney
    E a todos os colaboradores do fórum.

      Data/hora atual: Qua 22 Nov 2017, 5:43 am