Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auf bestimmte Tasteneingaben zu reagieren
zurück: beliebigeArbeitsgruppeninformationsdatei beim Starten laden. weiter: Null <> Null Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
10Martin
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Dez 2006, 21:47
Rufname:
Wohnort: Lugau bei Chemnitz

Auf bestimmte Tasteneingaben zu reagieren - Auf bestimmte Tasteneingaben zu reagieren

Nach oben
       Version: Office 2003

Hallo an euch Bastler und Profis,

hab eine kleine aber arbeitserleichternde Spielerei für den Enduser. Entstanden ist die Geschichte daher das ich ein Fetischist für Tastenkombination bin bei der Erfassung der von vielen Daten.

Hier mal ein Beispiel für die Änderung von Datumseingaben nur mit einer Taste (kann natürlich abgewandelt werden).

Hintergrund:
Ich habe ein Erfassungsformular von Bankbuchen gemacht, da sich hier meist die Datumsangaben gar nicht oder nur um einen Tag ändern ist es in Access zu aufwendig (auch mit Maus) relativ nervig viel Daten nacheinander einzugeben da die Hände von der Tastatur genommen werden müssen.

Dies geht aber sehr einfach nur mit einem "+" und einem "-"

1. Schritt:
Die Datumsangabe soll als Standardwert von DS zu DS mitgenommen werden: (kenn wir ja)
Im Ereigniss "Nach Aktualisieren" folgenden Code
Code:
Private Sub DeinFeld_AfterUpdate()
    Me!DeinFeld.DefaultValue = Str(CDbl(Me!DeinFeld))
End Sub

2. Schritt:
Es sollen nun nur die Ziffern und der "." sowie das "/" für die Datumseingabe funktionieren. (Also der Rest der Buchstabentasten soll nicht gehen)
Im Ereingiss "Bei Taste"
Code:
Private Sub DeinFeld_KeyPress(KeyAscii As Integer)
    'MsgBox KeyAscii
    Select Case KeyAscii
      Case 46 To 57  'entspricht 0 bis 9
      Case 8 To 9 'entspricht Tab und Backspace
      Case Else
        KeyAscii = 0
    End Select
End Sub

3. Schritt
Bei "+"-Taste oder "-"-Taste soll aber doch was passieren, nämlich Datum um einen Tag ändern (einschl. Standartwert).
Code:
Private Sub DeinFeld_KeyDown(KeyCode As Integer, Shift As Integer)
    'MsgBox KeyCode
    Select Case KeyCode
      Case 187
        Me!DeinFeld = Me!DeinFeld + 1
        Me!DeinFeld.DefaultValue = Str(CDbl(Me!DeinFeld))
      Case 189
        Me!DeinFeld = Me!DeinFeld - 1
        Me!DeinFeld.DefaultValue = Str(CDbl(Me!DeinFeld))
    End Select
End Sub
Die Massage-Boxen sind zum probieren für die Tastencode´s da, also einfach Hochkomma raus zum rumbasteln.

Danke nicht mir dankt unserem Engel Willi Wipp, da er mich auf diese Idee gebracht hat.
Willi Wipp
Moderator


Verfasst am:
29. Dez 2006, 00:36
Rufname:
Wohnort: Raum Wiesbaden


Re: Auf bestimmte Tasteneingaben zu reagieren - Re: Auf bestimmte Tasteneingaben zu reagieren

Nach oben
       Version: Office 2003

Hi 10Martin,

vielen Dank fuer diesen Tipp und die Blumen Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Eine bestimmte Abfrage erstellen... 5 Cihande 200 25. Nov 2011, 12:22
Cihande Eine bestimmte Abfrage erstellen...
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Anzahl Zeilen exportieren 1 Snipress 504 06. Jun 2011, 15:11
Gast Bestimmte Anzahl Zeilen exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Anzahl von Zeichen löschen 3 Bernd62 701 30. Mai 2011, 23:27
MissPh! Bestimmte Anzahl von Zeichen löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Neues Form öffnen, schließen der anderen bis auf bestimmte 6 abohlen 724 26. Feb 2011, 19:03
abohlen Neues Form öffnen, schließen der anderen bis auf bestimmte
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-Befehl: Nur bestimmte Einträge zeigen 1 Azrael19 1311 08. Feb 2011, 11:10
Gast SQL-Befehl: Nur bestimmte Einträge zeigen
Keine neuen Beiträge Access Tabellen & Abfragen: bestimmte zeichen auslesen & in neue spalte schreiben 5 aece 1424 16. Sep 2010, 20:28
Gast bestimmte zeichen auslesen & in neue spalte schreiben
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Tabelle versionieren. 4 Peter.F 298 20. Jul 2010, 11:26
Peter.F Bestimmte Tabelle versionieren.
Keine neuen Beiträge Access Tabellen & Abfragen: Access: bestimmte Duplikate löschen 3 MateMik 2121 29. Sep 2009, 19:58
MateMik Access: bestimmte Duplikate löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Nur bestimmte Datensätze anzeigen.... 3 bernd5 610 23. März 2008, 22:26
bernd5 Nur bestimmte Datensätze anzeigen....
Keine neuen Beiträge Access Tabellen & Abfragen: SQL -> Spalte doppelt zu weisen wenn bestimmte bedingung 1 Speedy@Web 1216 08. Nov 2007, 19:59
rita2008 SQL -> Spalte doppelt zu weisen wenn bestimmte bedingung
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Felder von Group by ausschließen 2 Freeman_6 702 05. Jul 2007, 11:06
Freeman_6 Bestimmte Felder von Group by ausschließen
Keine neuen Beiträge Access Tabellen & Abfragen: Nur bestimmte EInträhge inTabelle zulässig 1 trashm 388 29. Mai 2007, 16:37
KlausMz Nur bestimmte EInträhge inTabelle zulässig
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln