Information security management system of a corporate network

Дипломная работа - Компьютеры, программирование

ьтры]![сотрудник]"

Case 2 'документ

frm.Filter = "[Документ]=[Forms]![ф_фильтры]![Документ]"

Case 3 'меры

frm.Filter = "[заходи]=[Forms]![ф_фильтры]![меры]"

Case 4 'средства

frm.Filter = "[засоби]=[Forms]![ф_фильтры]![средства]"

Case 100 'Активы

frm.Filter = "[Активи]=[Forms]![ф_фильтры]![Активы]"

Case 200 'угрозы

frm.Filter = "[загрози]=[Forms]![ф_фильтры]![угрозы]"

Case 400 'требования

frm.Filter = "[Вимоги]=[Forms]![ф_фильтры]![требования]"

Case 500 'решения

frm.Filter = "[Вирішення]=[Forms]![ф_фильтры]![решения]"

Case Else 'disable

frm.FilterOn = False

Exit SubSelect.FilterOn = TrueSub

Sub filters_close(fname As String)

'get current form's name

Dim frm As Form

Set frm = Forms(fname)

'close filters.FilterOn = False.Кн_закрФильтр.Visible = False.Групп_фильтр.Visible = False.Кн_обнов.Visible = FalseIsFormOpen("ф_отчеты") Then

MsgBox "Фільтр вимкнено, але вікно усмов відбору не буде зачинено, доки відчинене вікно компонування документів.", , "Попередження"

DoCmd.Close acForm, "ф_фильтры", acSaveNoIfSub

Appendix F

Program module of the ISMS report (listing)

Option Compare Database

Sub Report_NoData(Cancel As Integer)"Інформація про задачі відсутня.", vbOKOnly, "Звіт порожній"= TrueSub

Sub Report_Open(Cancel As Integer)Case Me.OpenArgs

Case "expired" 'expired tasks only

Me.загол_Надп.Caption = "Прострочені задачі на " & Date

Me.RecordSource = "Зу_Срок"

Case Else 'no conditions. List all tasks

Me.загол_Надп.Caption = "Повний перелік задач"

Me.RecordSource = "Зу_всеЗадачи"

showArchived (Me.Name) 'call public sub on this reportSelectSub