Hvad er modules

Moduler er en måde at genbruge kode på eller at opdele kode på.

Genbruge:
Når du har lavet noget rigtigt smart kode, f.eks til at lase en ini fil gemmer du det i et modul.
Næste gang du skal bruge en inifil funktion inkluderer du bare modulet i projektet og vupti har du adgang til inifilen.

Opdeling:
Hvis du har et meget stort project med meget kode kan man med fordel dele det op i forskellige moduler, det gør det lettere at finde rundt i koden.

//akj

Nej - Koden kan ikke kompromeres.
Et modul er et databaseobjekt, i hvilke du kan placerer flere koder. Dise koder kan så kaldes fra alle formularer ved først at kalde modulet og derefter funktionen:

Modul1.Funktion1

som åbner Modul1 og afspiller koden i Funktion1.

Den væsemtligste forskel fra at placere koden i en formular er , at modulet kan kaldes fra alle formularer og så at sige "gerbruges".

Altså hvis man gør, hvordan kører man så det module?

som tidligere nævnt:

Modul1.Funktion1

Som mugs skriver.

Hvis du opretter et modul (modul1) og laver en funktion

function test()
msgbox "Denne kode ligger i modul1"
end funktion

Så kan du kalde den funktion alle stedder fra med modul1.test

//akj

Nu har jeg lavet et module BG med indhold:

Private sub hej()
Msgbox "hej, vbinformation, "hej"
End sub

Hvad skal jeg så skrive i den anden formular for at hente modulet

Det skal være en public sub
ellers kan du kun kalde den fra det samme modul

//akj

BG.hej

hedder kommandoen for at hente bare BG.hej... den giver nemlig fejl..

Kommandoen er korrekt. Og du har ændret fra Private til Public Sub?

Har lavet et modul. Læg din e-mail så sender jeg det.

øhhh. ja... hvad skriver du helt præcist i modulet og i den anden formular..?

torben_hansen007@ofir.dk

Her er et simpelt eks

http://www.eybye-kjaer.dk/uploads/files/db15.mdb

//akj

jeg er benytter af ac. 97

Sendt i 97

danke schõn, mugs

Selv tak jannick - eller? :o)

Hmm.. Mystisk...
Men de modules kan ikke have variabler i sig, eller hvad???

Jo. her er et eks.

Option Compare Database

Dim msg As String


Private Sub settext()
msg = "hej"
End Sub


Public Sub hej()
settext
MsgBox (msg)
End Sub

Og et andet:

Public Sub hej()
Dim a As String
a = "Hej Hej"
MsgBox a
End Sub

Nu tænkte jeg mere på de andre formularer havde defineret en variabel, som så skulle bruge i modulet... Men jeg tænkte det var et spg for sig selv så jeg oprettede http://www.eksperten.dk/spm/379312