Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA Code beim drücken von Tastenkombination ausführen

Frage Entwicklung VB for Applications

Mitglied: Valume91

Valume91 (Level 1) - Jetzt verbinden

30.01.2012 um 13:18 Uhr, 20082 Aufrufe, 5 Kommentare

Wie kann ich einen bestimmten Code in VBA beim betätigen von z.B. "Alt"+"f" ausführen lassen?

Hallo Zusammen

Ich möchte den Usern die Möglichkeit bieten, einen bestimmten Filter in Access per Tastenkombination (z.B. "Alt" + "f") setzen
zu können.
Wie kann ich die betätigte Tastenkombination abfragen?

Google hat mir leider nicht weiter geholfen.
Wir arbeiten mit Access 2010.

MfG Valume
Mitglied: 83928
30.01.2012 um 14:02 Uhr
Hi,

schau Dir mal die Ereignisse "KeyUp" und Key Down an. Da ist bestimmt was dabei für Dich.


Beispiel
01.
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer) 
02.
If KeyCode = 70 And Shift = 4 Then MsgBox "ALT+f" 
03.
End Sub
Bitte warten ..
Mitglied: Valume91
30.01.2012 um 15:36 Uhr
Hi abaaba

Ja das schaut schonmal gut aus. Aber irgendwas mache ich wohl falsch.
Ich habe mal deinen Code genommen und für das ganze Formular gültig gemacht.
01.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
02.
If KeyCode = 70 And Shift = 4 Then MsgBox "ALT+f" 
03.
End Sub
Funktioniert allerdings nicht. Wie kommst du eigentlich auf die Zahlen 70 und 4?
Ich habe ausserdem das Beispiel vom msdn probiert.
Hat bei mir auch nicht geklappt.

Was mache ich falsch?

Gruss Valume
Bitte warten ..
Mitglied: Logan000
30.01.2012 um 16:11 Uhr
Moin Moin

Wie kommst du eigentlich auf die Zahlen 70 und 4?
http://msdn.microsoft.com/de-de/library/0z084th3%28VS.80%29.aspx

Funktioniert allerdings nicht.
Eigentlich schon. Allerdings nur wenn das jeweilige Objekt auch den Focus hat.
Daher dürfte das für deine Zwecke eher ungeeignet sein.

Versuchs lieber so: http://office.microsoft.com/de-ch/access-help/ausfuhren-von-access-makr ...

Gruß L.
Bitte warten ..
Mitglied: 83928
30.01.2012 um 16:13 Uhr
Zitat von Valume91:
Hi abaaba

Ja das schaut schonmal gut aus. Aber irgendwas mache ich wohl falsch.
Ich habe mal deinen Code genommen und für das ganze Formular gültig gemacht.
Funktioniert allerdings nicht.

Das KeyDown-Ereignis tritt bei Formularen nicht immer in Kraft. Aber genaueres, oder auch woran es liegt kann ich Dir leider nicht sagen.

Wie kommst du eigentlich auf die Zahlen 70 und 4?

Durch ausprobieren ;)
Aber in Deinem Link steht ja auch, wie man ohne ausprobieren an die Daten kommt:

<quote>
KeyCode A key code, such as vbKeyF1 (the F1 key) or vbKeyHome (the HOME key). To specify key codes, use the intrinsic constants shown in the Object Browser. You can prevent an object from receiving a keystroke by setting KeyCode to 0.

Shift The state of the SHIFT, CTRL, and ALT keys at the time of the event. If you need to test for the Shift argument, you can use one of the following intrinsic constants as bit masks:
Constant Description
acShiftMask The bit mask for the SHIFT key.
acCtrlMask The bit mask for the CTRL key.
acAltMask The bit mask for the ALT key.
</Quote>
Das heist die "KeyCodes" findest Du im ObjektKatalog (F2 in der Entwicklungsumgebung) und "Shift" ist eine der 3 o.g. Konstanten.


Ich habe ausserdem das Beispiel vom msdn probiert.
Hat bei mir auch nicht geklappt.

Was mache ich falsch?

<Quote>
To try the example, add the following event procedure to a form containing a text box named KeyHandler.
</Quote>
Ich wette das Du die Zeile ignoriert hast. ;)
Gruss Valume
Bitte warten ..
Mitglied: 83928
30.01.2012 um 16:15 Uhr

Eindeutlich die bessere Möglichkeit ;)
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Code (2)

Frage von specialuser zum Thema VB for Applications ...

Erkennung und -Abwehr
Code ohne Macros in Word ausführen! (1)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Windows Server
Kennwort vergessen bei Hyper vserver 2012r (20)

Frage von jensgebken zum Thema Windows Server ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Festplatten, SSD, Raid
Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (13)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...