Dim strWhereCategory1 As String

Dim strWhereCategory2 As String

strWhereCategory1 = "Код_поставщика = Forms![Отчеты о продажах]!Spisok"

strWhereCategory2 = "Дата_накладной Between Forms![Отчеты о продажах]!txtNach And Forms![Отчеты о продажах]!txtConch"

strWhereCategory3 = "Код_поставщика = Forms![Отчеты о продажах]!Spisok And Дата_накладной Between Forms![Отчеты о продажах]!txtNach And Forms![Отчеты о продажах]!txtConch"

If flag.Value = False Then

Select Case Me!grpOtchet

Case 1

DoCmd.OpenForm "Приход", acNormal

Case 2

DoCmd.OpenForm "Сводная форма", acFormPivotTable

Case 3

If IsNull(Forms![Отчеты о продажах]!spisok) Then

DoCmd.OpenForm "Приход", acNormal

Else

DoCmd.OpenForm "Приход", acNormal,, strWhereCategory1

End If

End Select

End If

If flag.Value = True Then

Select Case Me!grpOtchet

Case 1

DoCmd.OpenForm "Приход", acNormal,, strWhereCategory2

Case 2

DoCmd.OpenForm "Сводная форма", acFormPivotTable,, strWhereCategory2

Case 3

If IsNull(Forms![Отчеты о продажах]!spisok) Then

DoCmd.OpenForm "Приход", acNormal

Else

DoCmd.OpenForm "Приход", acNormal,, strWhereCategory3

End If

End Select

End If

DoCmd.Close acForm, "Отчеты о продажах"

End Sub

Сохраните процедуру, выйдите из редактора VBA, сохраните форму, перейдите в режим просмотра.

Для того, чтобы проверить работоспособность нашего сложного обработчика событий выполним следующее:

- выберите из списка Вид отчета – Продажи по всем поставщикам и нажмите кнопку Просмотр формы. Если вы верно выполнили все вышестоящие инструкции, то у вас должна отобразится форма Приход. Закройте форму Приход.

- выберите из списка Вид отчета – Продажи по определенному поставщику, из списка Поставщики – выберите любого поставщика, например МЧП Олимпийский, и нажмите кнопку Просмотр формы. Если вы верно выполнили все вышестоящие инструкции, то у вас должна отобразится форма Приход с примененным фильтром на выбранного поставщика. Закройте форму Приход.

- выберите из списка Вид отчета – Сводный отчет с итогами, установите начальную дату – 1.01.2001, конечную дату – 1.01.2010, установите флажок учитывать период дат, и нажмите кнопку Просмотр формы. Если вы верно выполнили все вышестоящие инструкции, то у вас должна отобразится сводная форма с примененным фильтром дат. Закройте сводную форму.

Не нашли, что искали? Воспользуйтесь поиском: