Autokeys

[Sytse1]

Hoe start ik een functie met een toetsenbord combinatie.
Ik gebruik Access 2019.
In een vorige Access versie maakte ik een macro waarbij ik direct een toetsenbord combinatie kon opgeven. De macro vervolgen omzetten naar vba en klaar is Kees.
In 2019 is deze mogelijkheid niet aanwezig.
Enig idee hoe dit opgelost kan worden?
Bij voorbaat dank

 

[Pletter]

Sytse1,

In eigenschappenvenster van Formulier toetsvoorbeeld op ja zetten.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    Select Case KeyCode
        Case vbKeyDelete
            MsgBox "The Delete key was Pressed"
            KeyCode = 0
        Case vbKeyF1
            MsgBox "The F1 key was Pressed"
            KeyCode = 0
        Case vbKeyF2
            MsgBox "The F2 key was Pressed"
            KeyCode = 0
    End Select
        
End Sub

Groetjes,

 

[Sytse1]

Hai Pletter,
Bedankt voor je reactie. Waar moet jouw code (bij welke gebeurtenis) geplaatst worden?
Inmiddels heb ik een oude mbd kunnen achterhalen waarin een autokeys macro staat.
Om met een autokeys macro te werken moet deze macro de juiste naam hebben en b.v. voor het gebruik van de toetscombinatie CTRL k het volgende in de macro.
Submacro ^k
Procedureuitvoeren
Functienaam naamvandefunctie
Submacro beeindigen

Bij het laden van de toeppassing wordt overal in de toepassing met ctrl k de procedure uitgevoerd.

 

[Pletter]

Sytse1,

Open formulier in ontwerpweergave, toets Alt en F11 dan kom je in de editor.
Plak de code in een leeg gedeelte, dus niet in een al bestaande code's.

Zoek even op internet naar vbKey, er zijn legio mogelijkheden.


Groetjes,