Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
A.8.2.3 Prosedyren cmdOK_Click()<br />
'Prosedyre registrert av Steinar Gulichsen 270203. Hensikten med prosedyren er å lagre<br />
beskrivelsen som brukeren taster inn i skjemaet.<br />
'Beskrivelsen lagres i arket Beskrivelse<br />
'Deklarerer variabler<br />
Dim intTeller<br />
Dim intLengdeTeller<br />
Dim strBeskrivelse<br />
'Initsierer variabeler<br />
intTeller = 2<br />
intLengdeTeller = 1<br />
44<br />
'Slår av skjemoppdateringen, slik at koden kjøres raskere<br />
Application.ScreenUpdating = False<br />
'Aktiverer arket Beskrivelse hvor beskrivelsen skal lagres<br />
Sheets("Beskrivelse").Activate<br />
'Looper gjennom de lagrede beskrivelsen for å finne første rad hvor en ny beskrivelse kan legges<br />
inn<br />
Do Until Cells(intTeller, 1).Value = ""<br />
intTeller = intTeller + 1<br />
Loop<br />
'Henter beskrivelsen fra skjemaet<br />
strBeskrivelse = Me.txtBeskrivelse.Value<br />
'Lagrere beskrivelsen<br />
Cells(intTeller, 1).Value = strAvdNavn<br />
strBeskrivelse = Replace(strBeskrivelse, vbCrLf, vbLf)<br />
Cells(intTeller, 2).Value = strBeskrivelse<br />
'Slår på skjemoppdaterinen, aktiverere arket Avdelingsoppsett og lukker skjemaet<br />
Sheets("Avdelingsoppsett").Activate<br />
Application.ScreenUpdating = True<br />
Unload Me<br />
A.9 Modulen MORSKImport<br />
A.9.1 Hensikt<br />
Modulen MORSKImport inneholder all kildekode i MORSK som er uavhengig av de ulike<br />
skjemaene i applikasjonen. Under følger en gjennomgang av alle prosedyrene i modulen.