genvejstaster

hej  - jeg har  i en form brug for en række genvejstaster for at aktivere forskellige filtre men er kørt fast og kan ikke få det til at virke med mere en een karakter . Havde tænkt  mig at bruge Q1 - Q2 etc som genvejstaster.  Jeg har lavet en kode hvor jeg bruger F tasterne men det er ikke nok :-) 

vh Knud

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Form_KeyDown

    If KeyCode = vbKeyF2 Then
        filterIgår_Click
    End If

    If KeyCode = vbKeyF3 Then
        filterIdag_Click
    End If

    If KeyCode = vbKeyF4 Then
        filterImorgen_Click
    End If
 
   
    If KeyCode = vbKeyF5 Then
        KeyCode = 0
        Kommandoknap53_Click
    End If
   
    If KeyCode = vbKeyF8 Then
        PrintDisp_Click
    End If
   
   
    If KeyCode = vbKeyF9 Then
        PrintChfIns_Click
    End If
   
    If KeyCode = vbKeyF10 Then
        PrintFakturabilag_Click
    End If
       
    If KeyCode = vbKeyF12 Then
        Find_Click
    End If
   
    If KeyCode = vbKeyReturn Then
        KeyCode = 0
        Me.Dirty = False
    End If
   
    If KeyCode = vbKeyPause Then
        KeyCode = 0
        If Me.FilterOn = False Then
            Me.FilterOn = True
        Else: Me.FilterOn = False
        End If
    End If
   
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyUp: DoCmd.GoToRecord , , acPrevious
        Case vbKeyDown: DoCmd.GoToRecord , , acNext
    End Select
       
Exit_Form_KeyDown:
    Exit Sub

Err_Form_KeyDown:
    prompt = "Enten SagsID, Kundenr., eller Dato er ikke indtastet. Indtast de manglende oplysning, eller tryk F3 for fortryd!"
    If MsgBox(prompt, vbOKOnly, "Fejl") = vbOK Then
        Resume Exit_Form_KeyDown
    End If
     
End Sub