Module gebruiken (voor hergebruik code)

[css]

Ben de hele dag al aan het stoeien, maar het lukt me niet.

Ik heb de volgende code in mijn formulieren staan:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

Select Case KeyCode
Case vbKeyF2
pForm "frmNieuweKaart"
KeyCode = 0

Case vbKeyF3
pForm "frmInvoeren"
KeyCode = 0


Case vbKeyF4
pForm "frmInstallatie"
KeyCode = 0
Case Else
End Select
End Sub

Deze wil ik in een module zetten zodat ik alleen maar de verwijzing in m'n formulieren hoef te maken naar deze module...zoiets als Module1.Ftoetsen.

 

[dropl]

Herinner ik het me goed als je van Sub Function moet maken?
End Sub moet dan ook End Function worden.
En Private zal wel Public moeten worden dan denk ik

 

[css]

Ja...dat lukt wel, maar ...als keyF12.... wordt ingedrukt, is het de bedoeling dat ie dan ook de case keyF12 in de module uitvoert, dat gaat dus niet goed in een Module. Ik krijg foutmelding op foutmelding.

 

[dropl]

je kan dan toch vanuit de code voor zo'n sub die functie aanroepen, net als
fToetsen(KeyCode, Shift)

 

[css]

nee....gaat niet...echt niet.....