Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
A.4.2 Kildekode<br />
A.4.2.1 Prosedyren cmdAvbryt_Click()<br />
'Avbryter oppdatering ved å lukke skjemaet<br />
Unload Me<br />
A.4.2.2 Prosedyren cmdOppdater_Click()<br />
'Oppdaterer data for byggeklossen ved å starte prosedyren Oppdater_KM_Data. Denne<br />
prosedyren bruker byggeklossnavnet som input<br />
Oppdater_KM_Data cmbMorsk.Value<br />
A.4.2.3 Prosedyren UserForm_Activate()<br />
'Henter inn alle avdelingene som er lagret i MORSK. Disse hentes fra kolonne A i arket<br />
Avdelingsoppsett<br />
'Deklarerer variabler<br />
Dim intTeller As Integer<br />
'Initsierer variabler<br />
intTeller = 2<br />
'Legger inn MORSK avdelingene i skjemaet. Dersom det står at JA i kolonnen MORSK<br />
avdeling blir avdelingen lagt inn i kombinasjonsboksen<br />
Do Until Cells(intTeller, 1).Value = ""<br />
If Cells(intTeller, 1).Value "" And Cells(intTeller, 6).Value = "JA" Then<br />
frmOppdater.cmbMorsk.AddItem Cells(intTeller, 1).Value<br />
End If<br />
intTeller = intTeller + 1<br />
Loop<br />
A.5 Skjemaet frmSlett<br />
A.5.1 Hensikt<br />
32<br />
Dette skjemaet brukes til å slette byggeklosser fra MORSK. Dersom denne operasjonen skulle<br />
vært gjort manuelt måtte brukeren slettet informasjon i flere ark, noe som kunne resultert i at all<br />
informasjon ikke hadde blitt slettet. Dette kunne igjen resultert i at modellen ikke hadde fungert.<br />
Under vises skjemaet slik det ser ut i Excel
Change language