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