[AC-2007] Masque de saisie : message personnalisé [Résolu]

[eperat]

Bonjour,

Lorsqu'on applique un masque de saisie sur une zone de texte (où par exemple on exige que l'utilisateur encode obligatoirement 4 chiffres) et que l'utilisateur en encode par exemple que 3 (au lieu de 4) et qu'il valide, un message prédéfini d'Accès apparaît : "La valeur entrée n'est pas appropriée au masque de saisie "0000;;_" spécifié pour ce champ".

Serait-il possible de personnaliser ce message en affichant par exemple "Veuillez encoder 4 chiffres..." au lieu du message prédéfini ?

[eperat]

Bonsoir,

J'ai trouvé une réponse à l'adresse http://support.microsoft.com/kb/120567/fr

Voici le code donné pour les versions Access 95 et 97 (mais compatible avec Access 2007) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Error (DataErr As Integer, Response As Integer)
      Const INPUTMASK_VIOLATION = 2279
      Dim Msg As String
      If DataErr = INPUTMASK_VIOLATION Then
         Select Case Screen.ActiveControl.Name
            Case "Phone"
               Beep
               MsgBox "The phone number you entered is invalid!"
            Case "SSN"
               Beep
               MsgBox "The SSN you entered is invalid!"
            Case "Zip"
               Beep
               MsgBox "The ZIP code you entered is invalid!"
            Case Else
               Beep
               Msg = "An input mask violation occurred in control "
               Msg = Msg & Screen.ActiveControl.Name & "!"
         End Select
         Response = acDataErrContinue
      End If
   End Sub

Cependant, ce code n'est pas complet : en effet, pour les dates, lorsque le masque de saisie n'est pas respecté, ce n'est pas l'erreur 2279 qui est générée mais la 2113. Donc, si vous avez dans votre formulaire par exemple un masque de saisie pour un code postal et une date, il faudra légèrement modifier la condition dans le code par :

Code :

If DataErr = 2113 Or DataErr = 2279 Then

Voir l'URL : http://www.applecore99.com/frm/frm049.asp

Maintenant, je n'ai pas testé tous les cas. Peut-être que d'autres numéros d'erreur peuvent être déclenchés avec les masques de saisie.