öppna en modul med en knapp i ett formulär

[Rophphe]

Jag har en modul som jag vill komma åt koden i via en knapp i flera formulär. Modulen heter "Rensa_Ecl. Jag kör Access i Office 365.

hur kodar jag?

[MickeF]

1) Öppna egenskaper för en knapp och skapa en händelse "Vid klickning" enligt bilden:

 

2) Klicka på knappen med dom tre punkterna för att komma till funktionen
3) Ändra funktionen till följande kod

Private Sub btnOpenObject_Click()
    ' Öppna modul i designläge
    DoCmd.OpenModule "Rensa_Ecl"
End Sub

 

 

[Rophphe]

Jag var lite otydlig.... Jag vill kunna köra koden i modulen.

[MickeF]

Modulen består av ett antal Function/Sub. Så du vill alltså köra en Sub eller anropa en Function.

 

Private Sub btnOpenObject_Click()
    ' Visa välkomstmeddelande
    valkomna "Micke"
End Sub

Om du har en Sub i Rensa_Ecl som t.ex ser ut så här:

Sub valkomna(personnamn AS String)
    Msgbox "Välkommen " & personnamn
End Sub

 

[Rophphe]

Förstår inte riktigt. bifogar bild på vad jag vill.

[MickeF]

Ok, två saker du behöver göra:
1) Döp om modulen från "Rensa_Ecl" till t.ex. "Rensa Ecl Modul". (Modulnamn och function-namn får inte vara samma)
2) Sedan byter du ut anropet "

DoCmd.OpenModule "Rensa_Ecl"

till enbart

Rensa_Ecl

Sen borde det fungera.
       

[Rophphe]

Tack nu funkar det....

Rophphe