auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Access - Datum mit Hilfe der Plus- und Minustaste verändern

Datum mit Hilfe der Plus- und Minustaste verändern

Mit einem einfachen Listing kann man Access dazu bewegen, jedesmal, wenn in einem Datumsfeld eines Formulars anstelle eines Datums die Taste [+] gedrückt wird, das Datum um einen Tag zu erhöhen. Die Betätigung der Taste [-] setzt das Datum um einen Tag zurück. Um das zu erreichen, laden Sie das Formular, das Sie mit dieser Funktionalität erweitern wollen, in die Entwurfsansicht. Dort markieren Sie das Feld mit dem Datum und wählen nach einem Klick mit der rechten Maustaste den Punkt Eigenschaften.

Im Register Ereignis markieren Sie den untersten Eintrag Bei Taste und klicken anschließend auf die Schaltfläche mit den drei Punkten um den Code-Editor zu öffnen. Geben Sie hier das unten abgedruckte Listing ein. Falls Ihre Feldbezeichnung nicht Datum lautet, muss man das Makro entsprechend anpassen.

Weil die Ereignisprozedur allerdings nur dann funktioniert, wenn im Datumsfeld ein Wert eingetragen ist, sollten Sie dieses Feld außerdem mit einem Standardwert versehen. Dafür wechseln Sie in das Register Daten und tragen im Feld Standardwert z.B. die Zeichenfolge Datum() ein, wenn Sie das jeweils aktuelle Datum als Ausgangsbasis in das Datumsfeld eintragen wollen. Wechseln Sie anschließend in die Formularansicht. Dort können Sie jetzt Ihre neue Datumsfunktion ausprobieren.

Durch kleine Veränderungen und Erweiterungen des Listings können Sie auch dafür sorgen, dass beispielsweise die Taste [+] das Datum um 10 Tage hochsetzt oder die Taste [w] (Ascii-Code 119) das Datum sieben Tage erhöht.

Listing Datum_KeyPress:

Private Sub Datum_KeyPress(KeyAscii As Integer)

If KeyAscii = 43 Then     '43 = ANSI-Code für + Taste
  [Datum] = [Datum] + 1   'Datum um einen Tag erhöhen
  KeyAscii = 0     'Anzeige des + Zeichens verhindern
End If

If KeyAscii = 45 Then     '45 = ANSI-Code für - Taste
  [Datum] = [Datum] - 1   'Datum um einen Tag verringern
  KeyAscii = 0     'Anzeige des - Zeichens verhindern
End If

End Sub

Mehr Tipps: Access - Berichte nach Kalenderwoche gruppieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt