Samme genvejs tast på hver formular

Det er lidt uklart, hvad det er du er ude efter; men generelt kan man sige:

På formularens egenskaber:
  - Tastgennemsyn sættes til Ja
  - VedTastetryk skal indeholde koden (start evt. med MsgBox KeyAscii så du kan aflæse værdierne)

Det er det jeg er ude efter kan du give et eks.

Jeg er stadig ikke med på, hvad det er du vil.

Skud fra hoften, som giver dig mulighed for at fange kontroltaster (i dette tilfælde variationer over tasten a):

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim ShiftDown As Integer
  Dim AltDown As Integer
  Dim CtrlDown As Integer
 
  ShiftDown = (Shift And acShiftMask) > 0
  AltDown = (Shift And acAltMask) > 0
  CtrlDown = (Shift And acCtrlMask) > 0
  Select Case KeyCode
    Case 65          ' a
      If ShiftDown Then
        MsgBox "Du tastede Shift-a"
      Else
        If AltDown Then
          MsgBox "Du tastede Alt-a"
        Else
          If CtrlDown Then
            MsgBox "Du tastede Ctrl-a"
          End If
        End If
      End If
  End Select
  If ShiftDown Or AltDown Or CtrlDown Then KeyCode = 0    ' Send ikke KeyCode videre, hvis kontroltast
End Sub

Bemærk, at koden er flyttet til Form_KeyDown.
Hvis det er helt ved siden af, må du lige forklare, hvad det er du vil.
Vil du fange "almindelige" tegn, kontroltaster, funktionstaster eller hvad?

Jeg hvil gerne havde funktions tast og ctrl+noget til aat funger

Jamen, så er den færdige kontruktion lige her:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim ShiftDown As Integer
  Dim AltDown As Integer
  Dim CtrlDown As Integer
 
  ShiftDown = (Shift And acShiftMask) > 0
  AltDown = (Shift And acAltMask) > 0
  CtrlDown = (Shift And acCtrlMask) > 0
  Select Case KeyCode
    Case 65          ' a
      If ShiftDown Then
        MsgBox "Du tastede Shift-a"
      Else
        If AltDown Then
          MsgBox "Du tastede Alt-a"
        Else
          If CtrlDown Then
            MsgBox "Du tastede Ctrl-a"
          End If
        End If
      End If
    Case 112
      MsgBox "Du tastede F1"
    Case 113
      MsgBox "Du tastede F2"
    Case 123
      MsgBox "Du tastede F12"
  End Select
  If KeyCode >= 112 And KeyCode <= 123 Then KeyCode = 0    ' Send ikke KeyCode videre, hvis funktionstast
  If ShiftDown Or AltDown Or CtrlDown Then KeyCode = 0    ' Send ikke KeyCode videre, hvis kontroltast
End Sub

Du kan teste koden ved at oprette en formular (husk at sætte formularens Tastgennemsyn til Ja) med en tekstboks. Kopier så ovenstående kode ind i formularens modul og test ved at taste i tekstboksen.

Takker for point.