waarschuwing invoermasker onderdrukken/wijzigen

[Noordhoekie]

Als de invoer van een veld niet voldoet aan het invoermasker dat komt er een standaard waarschuwing dat de opgegeven waarde niet voldoet aan het invoermasker. Hoe kan ik deze tekst onderdrukken/wijzigen en met een eigen waarschuwing komen.

Deze vraag is ook al eens eerder gesteld. Er wordt toen aangegeven dat er dan misschien beter niet met een invoermasker kan worden gewerkt, maar er een controle van de invoer plaats kan vinden.

Kan iemand mij helpen? Ik wil namelijk wel graag het invoermasker blijven gebruiken.

Inez

 

[OctaFish]

Daarvoor moet je een formulier hebben, waar je de volgende code op zet:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
   
   If DataErr = INPUTMASK_VIOLATION Then
      MsgBox "Dur was un foutje met het invoermasker!"
      Response = acDataErrContinue
   End If
   
End Sub

 

[Noordhoekie]

Dat werkt prima!

Bedankt voor de snelle service!

Inez

 

[OctaFish]

Misschien heb je er niets aan, maar mocht je meerdere invoermaskers gebruiken, dan kun je met de volgende code een verschillende boodschap maken voor elk eigen veld:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279

   If DataErr = INPUTMASK_VIOLATION Then
      Select Case Screen.ActiveControl.Name
         Case "Telefoon"
            Beep
            MsgBox "Het telefoonnummer is niet echt belbaar..."
         Case "aanschafdatum"
            Beep
            MsgBox "De datum was niet helemaal jofel!"
         Case "Zip"
            Beep
            MsgBox "The ZIP code you entered is invalid!"
         Case Else
            Beep
            Msg = "An input mask violation occurred in control "
            MsgBox Msg & Screen.ActiveControl.Name & "!"
      End Select
      Response = acDataErrContinue
   End If

End Sub

Success ermee!