Читать диплом по всему другому: "Information security management system of a corporate network" Страница 35

(Назад) (Cкачать работу)

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

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

Похожие работы