autokeys

Hey Numsi :o)

Hvis jeg forstår dig ret, så vil du lave en genvejstast vha autokeys, som udføre samme kode som der ligger på en knap?

Dette kan du ikke, da hændelsesprocedure er Sub-procedure og makroer (f.eks. autokeys) kun kan udføre function-procedure.

Hvis man kun skal kunne benytte genvejstasten, når den aktuelle formular er åben, så bør du ikke bruge autokeys, da de virker i hele applikationen (og altså også når formularen er lukket!)
I stedet bør du sætte formularens egenskab \"Tastgennemsyn\" til \"ja\"
og derefter lave en hændelsesprocedure på VedTastNed, så aflæser tastaturet. Derved kan du frit kalde Command19_Click.

Men hvis du stadig ønsker at bruge Autokeys, så bår du lave en ny public funktion i et modul, hvor du så lægger al koden i Command19_Click-proceduren.
Command19_Click kommer så bare til at se således ud:

Private Sub Command19_Click()
  call NyFunction
end sub

Din autokeys-makro kan derefter kalde NyFunktion med makrohandlingen AfspilKode (RunCode)

Jeg håber, at det giver mening?

/Thomas

Så public funktionen skrives således?:
Public Function blabla()

blabla indhold fra command19
End Function

Jep...den skal bare helst ligge i et modul - hvis du lægger den i en formular, kan den kun kaldes når formularen er åben (og så skal den kaldes på en speciel måde) så et modul er bedst.

Ok. jeg kan ikke få det til at virke.
I makroen autokeys, har jeg valgt {F6} til at afspille kode. Skal man så skrive Hjælp()(Som funktionen hedder) i funktionsnavnet eller hvordan skriver man det?

Ja: Hjælp()

Parenteserne skal med.
Kommer den med en fejl?

Bruger du Me i din funktion? I så fald skal du skrive: Forms![NavnPåDinFormular]
alle de steder hvor du bruger Me.

Nej, funktionen ser således ud:
Public Function Hjælp()

On Error GoTo Err_Command19_Click
       
  Dim Wrd As New Word.Application
  Wrd.Visible = True
  Wrd.Activate
  Wrd.Documents.Open \"G:\\Databaser\\Access2000\\Reinhardoil\\Database\\Seneste\\Nyimport-bedsteversion\\Sendt-til-reinhard-6.8\\Hjælpedokument.doc\"
  Set Wrd = Nothing

Exit_Command19_Click:
    Exit Sub

Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click

End Function

Ang. det andet tip du gav ved tastned, hvad skriver man så i hændelsesproceduren, hvis F1 skal udføre koden som ligger i \'knap12\' fx

Du skriver f.eks.:

If KeyCode = vbkeyF1 then
  knap12_click
end if

vbkeyF1 angiver at det er F1

/Thomas

Tak for det!