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

    (Dúvida) Acrescentando mensagem de erro

    avatar
    RafaelSouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 11/07/2013

    (Dúvida) Acrescentando mensagem de erro Empty (Dúvida) Acrescentando mensagem de erro

    Mensagem  RafaelSouza 25/6/2014, 08:21

    Bom dia  Cool 

    Preciso de uma ajuda para acrescentar uma MSG de ERRO em um sistema

    Tenho um pequeno banco de dados de lançamento de controle dimensional de peças de hora em hora, onde tenho a tolerância pertinente a cada peça.
    Sendo um total de 85 peças e que cada peça tenha 5 medidas.

    Lembrando que cada peça tem sua dimensão ou medida tolerável diferente de cada uma.

    Como posso fazer ao acrescentar a medida encontrada, se a mesma estiver fora do especificado, o BD não permita sair do campo e nem salvar, aparecendo uma msg de erro pois a medida está fora?


    obrigado pela ajuda
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    (Dúvida) Acrescentando mensagem de erro Empty Re: (Dúvida) Acrescentando mensagem de erro

    Mensagem  Marcelo David 25/6/2014, 12:25

    Algo do tipo:

    Evento antes de atualizar do SeuCampo:

    Código:
    If Me!SeuCampo < TamanhoTolerado Then
          Msbox "O tamanha está maior que o tolerado. Por favor, verifique.", vbExclamation,"Informação"
          Cancel = True
    End If


    .................................................................................
    (Dúvida) Acrescentando mensagem de erro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    (Dúvida) Acrescentando mensagem de erro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    (Dúvida) Acrescentando mensagem de erro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    (Dúvida) Acrescentando mensagem de erro Marcel11

      Data/hora atual: 22/11/2024, 17:03