БД СУБСИДИИ

содержит ссылки на таблицы РАЙОНЫ и ХОЗЯЙСТВА.

формы - ленточные

Then ‘значение ВСЕ
Me.ПолеСоСписком29.Visible = False
Me.Надпись19.Visible = False
Else
Me.ПолеСоСписком29 = Me.код_субсидии
Me.ПолеСоСписком29.Requery
End If
End Sub

Объект “ActiveX объект MS Date and Time Picker Control” привязан к полю ДАТА таблицы СУБСИДИИ

‘ Код события ПРИ ОБНОВЛЕНИИ DTPicker5
Private Sub DTPicker5_Updated(Code As Integer)
Me.Дата = Me.DTPicker5
End Sub

Процедура ПРИ ОБНОВЛЕНИИ заносит выбранное в элементе DTPicker значение в поле ДАТА формы СУБСИДИИ

1-го аргумента.

True
‘ настройка и активизация фильтра
Me.Filter = "[вид субсидии]='Региональная'"
Me.FilterOn = True
Me.ПолеСоСписком29.Requery
Case 2
Me.ПолеСоСписком29.Visible = True
Me.Надпись19.Visible = True
‘ настройка и активизация фильтра
Me.Filter = "[вид субсидии]='Федеральная'"
Me.FilterOn = True
Me.ПолеСоСписком29.Requery
Case 3
Me.ПолеСоСписком29.Visible = False
Me.Надпись19.Visible = False
‘ деактивизация фильтра
Me.FilterOn = False
End Select
End Sub

Код события ПОСЛЕ ОБНОВЛЕНИЯ объекта ГРУППА56

Private Sub Кнопка67_Click()
DoCmd.OpenForm "Субсидии_ленточная", , , , acFormPropertySettings
End Sub

Событие на кнопке ОТКРЫТЬ ФОРМУ ДЛЯ СОРТИРОВКИ СУБСИДИЙ

хозяйства.[наименование хозяйства] FROM хозяйства INNER JOIN Субсидии ON хозяйства.код_хозяйства = Субсидии.код_хозяйства;

ПолеСоСписком22

ПолеСоСписком29

s As String
s = "[код_ района]=" & [Forms]![Субсидии_ленточная]![ПолеСоСписком22]
Me.Filter = s
Me.FilterOn = True
End If
End Sub

‘ Событие ИЗМЕНЕНИЕ ПолеСоСписком22
Private Sub ПолеСоСписком22_Change()
Me.ПолеСоСписком22.ForeColor = black
Me.ПолеСоСписком29.ForeColor = gray
End Sub

Null
Me.ПолеСоСписком29.ForeColor = black
Me.ПолеСоСписком22.ForeColor = black
Me.FilterOn = False
End Sub

‘ Событие на кнопке ПРИМЕНИТЬ ОБА ФИЛЬТРА
Private Sub Кнопка27_Click()
s = "[код_ района]=" & Nz([Forms]![Субсидии_ленточная]![ПолеСоСписком22])
s1=“[код_хозяйства]=" & Nz([Forms]![Субсидии_ленточная]![ПолеСоСписком29])
Me.Filter = s & s1
Me.ПолеСоСписком22.ForeColor = black
Me.ПолеСоСписком29.ForeColor = black
Me.FilterOn = True
End Sub

ПолеСоСписком22

ПолеСоСписком29

strsql1, s As String, rst1 As Recordset
Set prev = Screen.PreviousControl
Select Case prev.Name
Case "код_ района"
strsql1="SELECT Субсидии.код_субсидии, Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM хозяйства INNER JOIN (районы INNER JOIN Субсидии ON районы.код_района=Субсидии.[код_ района]) ON хозяйства.код_хозяйства = Субсидии.код_хозяйства ORDER BY районы.[наименование района]"
Case "код_хозяйства"
strsql1 = "SELECT Субсидии.код_субсидии,Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_ района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM хозяйства INNER JOIN (районы INNER JOIN Субсидии ON районы.код_района = Субсидии.[код_ района]) ON хозяйства.код_хозяйства = Субсидии.код_хозяйства ORDER BY хозяйства.[наименование хозяйства]"
Case "дата", "№ платёжного поручения", "Вид субсидии", "сумма субсидии"
strsql1 = "SELECT Субсидии.код_субсидии,Субсидии.Дата, Субсидии.[№ платёжного поручения], Субсидии.[код_ района], Субсидии.код_хозяйства, Субсидии.[Вид субсидии], Субсидии.[Сумма субсидии] FROM Субсидии order by [" & prev.Name & "]"
End Select
Set rst1 = CurrentDb.OpenRecordset(strsql1, dbOpenDynaset)
Set Me.Recordset = rst1
prev.SetFocus
End Sub