Genvejs taster på brugerflade(form)??

You can use the Caption property to assign an access key to a label or command button. In the caption, include an ampersand (&) immediately preceding the character you want to use as an access key. The character will be underlined. You can press ALT plus the underlined character to move the focus to that control on a form.

Du kan lade formularen \"smage\" på alle tastetryk, og så angive den ønskede funktion.

I nedenstående eksempel er oprettet en formular med 2 knapper, som virker på F1 henholdsvis F2.

For at formularen kan \"smage\" på tastetryk før det kontrolelement, der har fokus, skal du
sætte egenskaben \"tastegennemsyn\" til \"ja\" for formularen (findes sammen med hændelserne).

Du skal huske at sætte KeyCode til 0 for at undgå at yderligere hændelser kaldes. Ved F1-tasten vil f.eks. hjælpe-funktionen blive kaldt.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyF1
      knpF1_Click
      KeyCode = 0
    Case vbKeyF2
      knpF2_Click
      KeyCode = 0
  End Select
End Sub


Private Sub knpF1_Click()
  MsgBox \"F1\"
End Sub

Private Sub knpF2_Click()
  MsgBox \"F2\"
End Sub

mvh/Jens-Peter

Hej Jens-Peter...
Jeg kan sagtens få den form du har pastet til at virke..
Men så snart jeg vil have det overført til min egen form så kager det...
Jeg paster lige formen her..
Kan du prøve at rette den til så knappen \"Opret ny repseddel\" bliver aktiveret ved tryk på feks. F1...
Så kan det være jeg kan se en sammenhæng i skidtet...

Option Compare Database
Option Explicit

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Repseddel\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Repseddel1\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String

    stDocName = \"Udestående repsedler\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
   
End Sub
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

    Dim stDocName As String

    stDocName = \"Afsluttede repsedler\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command4_Click:
    Exit Sub

Err_Command4_Click:
    MsgBox Err.Description
    Resume Exit_Command4_Click
   
End Sub
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Igang\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click
   
End Sub
Private Sub Søg_på_reparationen_på_maskinnumer__Click()
On Error GoTo Err_Søg_på_reparationen_på_maskinnumer__Click

    Dim stDocName As String

    stDocName = \"søg på afsluttede rep på maskinnummer\"
    DoCmd.OpenReport stDocName, acNormal

Exit_Søg_på_reparationen_på_maskinnumer_:
    Exit Sub

Err_Søg_på_reparationen_på_maskinnumer__Click:
    MsgBox Err.Description
    Resume Exit_Søg_på_reparationen_på_maskinnumer_
   
End Sub
Private Sub Søg_på_rep__pr__maskinnummer__Click()
On Error GoTo Err_Søg_på_rep__pr__maskinnummer__Click

    Dim stDocName As String

    stDocName = \"søg på afsluttede rep på maskinnummer\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Søg_på_rep__pr__maskinnummer__Click:
    Exit Sub

Err_Søg_på_rep__pr__maskinnummer__Click:
    MsgBox Err.Description
    Resume Exit_Søg_på_rep__pr__maskinnummer__Click
   
End Sub
Private Sub Gå_til_søgemenu_Click()
On Error GoTo Err_Gå_til_søgemenu_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Søgemenu\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Gå_til_søgemenu_Click:
    Exit Sub

Err_Gå_til_søgemenu_Click:
    MsgBox Err.Description
    Resume Exit_Gå_til_søgemenu_Click
   
End Sub
Private Sub Ris_ros_Click()
On Error GoTo Err_Ris_ros_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Ris_Ros\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Ris_ros_Click:
    Exit Sub

Err_Ris_ros_Click:
    MsgBox Err.Description
    Resume Exit_Ris_ros_Click
   
End Sub
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

    Dim stDocName As String

    stDocName = \"Elværksted\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
   
End Sub
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click

    Dim stDocName As String

    stDocName = \"Funny Street\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command19_Click:
    Exit Sub

Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
   
End Sub
Private Sub Command20_Click()
On Error GoTo Err_Command20_Click

    Dim stDocName As String

    stDocName = \"Doll Street\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command20_Click:
    Exit Sub

Err_Command20_Click:
    MsgBox Err.Description
    Resume Exit_Command20_Click
   
End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

    Dim stDocName As String

    stDocName = \"Lego Car Street\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click
   
End Sub
Private Sub Command22_Click()
On Error GoTo Err_Command22_Click

    Dim stDocName As String

    stDocName = \"Midi Team\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command22_Click:
    Exit Sub

Err_Command22_Click:
    MsgBox Err.Description
    Resume Exit_Command22_Click
   
End Sub
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"info\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command25_Click:
    Exit Sub

Err_Command25_Click:
    MsgBox Err.Description
    Resume Exit_Command25_Click
   
End Sub


Tupsy!!

tupsy> Hvad er der i vejen med min forslag, er det ikke LIDT nemmmer?

terry>>
Jow, måske..
Hvis jeg forstod hvad det gik ud på... :-)

Tupsy!!

Caption property for a button.
Set the caption to &PressMe

when you press Alt+P then this is the same a spressing the button
You place the & before the key you want to use as the \"genvej\"
EASY:o)

Kan man få lidt mere forklaring??
Jeg har en dansk version af access...
Kan man kun lave en genvejs tast i hver form??

Sorry... Men jeg \"fatter\" det ikke...

Tupsy!!

Hej tupsy

Jeg har ikke nået at kigge på dit noget lange spørgsmål til mig.

Det Terry forsøger at forklare er, at man ved at navngive knapperne på en bestemt måde kan bruge en kombination af Alt-knappen og et bogstav for at aktivere knappen.
Hvis du f.eks. navngiver en knap \"L&uk\", vil u\'et blive understreget når formularen vises, og du kan så aktivere knappen ved samtidigt at trykke på Alt og U.

Dette er en helt almindelig måde at gøre det på, men hvis det er vigtigt for dig at du kun skal trykke på en enkelt knap, f.eks. F2, så er du nødt til at bruge den metode, jeg har angivet.

mvh/Jens-Peter

Hej igen

Nu har jeg kigget lidt på dit spørgsmål.

Jeg kan ikke lige se nogen knap, der hedder \"Opret ny repseddel\", men jeg antager at det er formularen \"Repseddel\", og at det derfor er
proceduren Command0_Click, der skal aktiveres af F1-knappen.

Du skal så blot tilføje:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyF1
      Command0_Click
      KeyCode = 0
    Case vbKeyF2
\'    Her kan en anden procedure kaldes
  End Select
End Sub

Du skal selvfølgelig stadig huske at sætte \"tastegennemsyn\" til \"ja\", for ellers er det ikke formularen der får adgang til dine tastetryk, men den knap (eller andet kontrolelement) der har fokus i øjeblikket.

mvh/Jens-Peter

tupsy> man kan gøre det for alle knapper og felter på formen.
og tak for hjælpen jens-peter:)

Hvor sætter jeg tastegennemsyn til ja??
Kan ikke finde noget der hedder det....

Tupsy!!

Hold da kæft hvor føler jeg mig som en spørge Jørgen... :-)

Tupsy!!

Arrk.. Glem det... Har fundet det.. Og det virker... :-)

Takker...

Tupsy!!

jens-peter
Hej den database med f1 + f2 taster ville jeg gerne havde tilsendt. På: oz1bua@wanadoo.dk
På forhånd tak.
Vh Henrik