Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Personalizar a mensagem padrão do access quando uma máscara de entrada é violada

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

02032013

Mensagem 

Personalizar a mensagem padrão do access quando uma máscara de entrada é violada






Então amigos:



ou



Quando criamos máscaras de entradas nos campos de nossos formulários, precisamos personalizar a mensagem que se exibirá ao usuário, isso se não quisermos que ele veja as mensagens padronizadas do access mostradas acima que acontece ao momento que uma máscara de entrada é violada, ou seja, não é completada.

A Microsoft disponibiliza em sua base de dados a seguinte solução.
Coloque no evento ao occorrer erro do formulário:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
 'Objetivo: Validar o preenchimento dos campos que possuem máscara de entrada
 'Fonte/Autoria: http://support.microsoft.com/kb/120567/pt-br?wa=wsignin1.0
     Const INPUTMASK_VIOLATION = 2279
     Dim Msg As String
     If DataErr = INPUTMASK_VIOLATION Then
        Select Case Screen.ActiveControl.Name
           Case "DataNasc"
              Beep
              MsgBox "A data de nascimento não está completamente digitada." _
                     & vbCrLf & "Complete a digitação antes de seguir para o próximo campo.", vbInformation, "Atenção"
           Case "CPF"
              Beep
              MsgBox "Você precisa digitar 11 números neste campo de CPF" _
                     & vbCrLf & "Continue a digitação.", vbInformation, "Atenção"
           Case "Telefone"
              Beep
              MsgBox "O número do telefone não está completamente digitado" _
                     & vbCrLf & "Continue a digitação e lembre-se de observar que é no formato XX-XXXX-XXXX", vbInformation, "Atenção"
           Case Else
              Beep
              Msg = "A máscara de entrada violada ocorreu no controle "
              Msg = Msg & Screen.ActiveControl.Name & "!"
        End Select
        'Não mostrar a mensagem padrão do access nos casos de máscara de entrada violada
        Response = acDataErrContinue
     End If
End Sub


Faça download do exemplo:
Download

Até study


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum