Office: Fehlermeldung Datum

Hallo,
ich habe eine Tabelle mit einem Datumsfeld. Über ein Formular wird dort das Lieferdatum eingegeben. Gibt man ein falsches Datum ein wie z.B. 31.11.2022 erscheint folgende Fehlermeldung:
Sie haben einen Wert eingegeben der für dieses Feld nicht gültig ist.
Sie haben möglicherweise Text in ein numerisches Feld eingegeben, oder Sie haben eine Zahl eingegeben, die größer ist, als die Feldgröße-Einstellung zulässt.
Wie kann ich diese Meldung abfangen? bzw. Selbst einen verständlicheren Text ausgeben?

 

Moin Bacardi,
schau Dich mal nach der Formel =WENNFEHLER (bzw. den Funktionen in neueren XL-Versionen) um.
Bsp:

Code:

=WENNFEHLER(A1/B1;"So geht's aber nicht!")

reagiert auf DIV/0, falls beide Zellen leer sind.
Grüße

 

Hallo d'r Bastler,
leider hilft mit der Tip nicht weiter. Ich arbeite mit Access 2021. Bei welcher Prozedur kann ich die Fehlermeldung abfangen?
Bein Ändern, Vor Aktualisierung? Ich habe verschiedenes ausprobiert mit If IsDate ... konnte aber die Fehlermeldung nicht abfangen. Vielleicht kannst Du mir noch mal etwas auf die Sprünge helfen.

 

Moin Bacardi,

würdest Du dem Bastler mal 'n Gruß ausrichten, dass er bitte Lesen lernen sollte .

Sorry, ich hatte völlig übersehen, dass es bei Dir um Access geht und nicht um XL. Von Access habe ich leider genau keine Ahnung.

Grüße

 

Vor Aktualisieren sollte problemlos funktionieren.
Vielleicht zeigst du mal deinen Versuch dazu

 

Hallo Bacardi,
man kann die von Dir genannte Fehlermeldung oft ohne Programmierung/VBA unterdrücken, also abfangen.
Berarbeite für das betroffene Formular-Feld die folgenden Eigenschaften:
Register Daten > Gültigkeitsregel: Nicht IstDatum([Erstellt])
Und bei Daten > Gültigkeitsmeldung: Geben Sie bitte ein gültiges Datum ein.

Das genannte Beispiel geht von dem Eingabefeld [Erstellt] aus.
Bei der Eigenschaft Gültigkeitsregel kann man auch eigene VBA-Funktionen verwenden. Die von MS gelieferte Funktion IstDatum() erkennt aber Fehler, wie zum Beispiel Buchstaben in Datumsfeld nicht. Dazu braucht es leider mal wieder eine eigene Funktion die den Text des Eingabefelds untersucht.

Grüße

 

Hallo, erstmal Danke an alle die sich bemüht haben mir zu helfen. Leider hatten meine Bemühungen keinen Erfolg.
Fehlerhinweis verhindern (access-o-mania.de) hier wird wohl schon 2011 das Thema behandelt und es gab kein zufriedenstellendes Resultat.
Für alle die es noch mal probieren wollen: ein einfaches Formular mit einem ungebundenen Textfeld vom Typ Datum.
Dann 31.11.2022 eingeben und diese Fehlermeldung abfangen.

Liebe Grüße aus Berlin

 

Versuche es über die Form_Error:

Code:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    MsgBox DataErr
    Select Case DataErr
        Case Is = 2113
           ' If Screen.ActiveControl = [Bestelldatum] Then
                MsgBox "Das eingegebene Datum ist nicht gültig. Bitte wiederholen Sie Ihre Eingabe!", vbInformation, "Geh weg da"
                Response = acDataErrContinue
                'Me!Bestelldatum.Undo
                Exit Sub
            'End If
    End Select
End Sub

 

Hab jetzt gesehen, dass das BeforeUpdate Event bereits zu spät ist, da der eingegebene Text zuvor schon in ein Datum umgewandelt werden muss. Daher bleibt also nur das Form-Event wie bereits von jhc gezeigt oder das Change-Event.
Wobei beim Change-Event die Auswertung übermäßig erschwert wird.

 

vielen Dank an alle die sich mit dem Problem beschäftigten.
Die Lösung von jhc funktioniert bestens.