MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Erro ao Inserir 99/99/9999 em um campo de Data/Hora

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    Erro ao Inserir 99/99/9999 em um campo de Data/Hora Empty Erro ao Inserir 99/99/9999 em um campo de Data/Hora

    Mensagem  mfmaiafilho em 23/4/2020, 19:25

    Boa tarde galera, gostaria de colocar uma mensagem que não seja padrão do Access no campo Data/Hora


    Aparece assim:

    o Valor que você inseriu não é válido para este campo

    Por exemplo, talvez você tenha inserido texto em um campo númerico ou um número maior que o permitido pela configuração Tamanho do Campo.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    Erro ao Inserir 99/99/9999 em um campo de Data/Hora Empty Re: Erro ao Inserir 99/99/9999 em um campo de Data/Hora

    Mensagem  DamascenoJr. em 24/4/2020, 04:59

    Assunto já tratado no fórum
    https://www.maximoaccess.com/t5034-mensagem-personalizada-ao-digitar-valor-diferente-da-mascara-de-entrada
    https://www.maximoaccess.com/t854-resolvidopersonalizar-mensagem-do-campo-data

    Basta inserir os códigos no evento "ao ocorrer erro" do formulário.

    Segue abaixo código de outros possíveis erros

    Código:
    Dim strMensagem As String
       
        'erro formato de data
        If DataErr = 2113 Then
            Select Case Screen.ActiveControl.Name
                Case Me!txtData.Name
                    strMensagem = "A data informada não está em um formato válido."
                Case Else
                    strMensagem = "O valor inserido não é válido para este campo."
            End Select
       
        'erro de item informado não constar na lista
        ElseIf DataErr = 2237 Then
            Select Case Screen.ActiveControl.Name
                Case Me!cboProdutos.Name
                    strMensagem = "Selecione um produto disponível na lista ou digite um que coincida com uma das opções listadas."
                Case Else
                    strMensagem = "Selecione uma das opções da lista ou digite uma que coincida com uma das opções listadas."
            End Select

        'erro de máscara de entrada
        ElseIf DataErr = 2279 Then
            Select Case Screen.ActiveControl.Name
                Case Else
                    strMensagem = "A máscara de entrada violada ocorreu no controle " & Screen.ActiveControl.Name & "!"
            End Select
        End If
       
        Response = acDataErrContinue
        Call fncMensagem(strMensagem, vbExclamation, "Atenção !!!")


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    Erro ao Inserir 99/99/9999 em um campo de Data/Hora Empty Re: Erro ao Inserir 99/99/9999 em um campo de Data/Hora

    Mensagem  mfmaiafilho em 24/4/2020, 12:31

    Bom dia tudo bem amigo, eu copiei e colei o codigo e não deu certo, da um erro dizendo "Erro de compilação" Sub ou Function não definida...

    eu fui em formulário e coloquei no evento "Ao Ocorrer Erro"...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 22/11/2016

    Erro ao Inserir 99/99/9999 em um campo de Data/Hora Empty Re: Erro ao Inserir 99/99/9999 em um campo de Data/Hora

    Mensagem  DamascenoJr. em 24/4/2020, 23:22

    Troque a linha
    Call fncMensagem(strMensagem, vbExclamation, "Atenção !!!")

    por
    Call Msgbox(strMensagem, vbExclamation, "Atenção !!!")


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 21/9/2020, 15:21