|
Private Sub №_платёжного_поручения_DblClick(Cancel As Integer) |
|
|
DoCmd.OpenForm "Субсидии", , , , acFormPropertySettings |
Событие на двойном |
|
Select Case [Forms]![Субсидии_ленточная]![Вид субсидии] |
|
нажатии на поле “№ |
|
Case "Региональная" |
|
платежного поручения” |
|
[Forms]![Субсидии]!Группа56 = 1 |
|
|
|
[Forms]![Субсидии].Filter = "[вид субсидии]='Региональная'" |
|
[Forms]![Субсидии]!ПолеСоСписком29.Visible = True |
|
|
[Forms]![Субсидии]!Надпись19.Visible = True |
|
|
Case "Федеральная" |
|
|
[Forms]![Субсидии]!Группа56 = 2 |
|
|
[Forms]![Субсидии].Filter = "[вид субсидии]='Федеральная'" |
|
|
[Forms]![Субсидии]!ПолеСоСписком29.Visible = True |
|
|
[Forms]![Субсидии]!Надпись19.Visible = True |
|
|
Case Else |
|
|
[Forms]![Субсидии]!Группа56 = 3 |
|
|
End Select |
|
|
[Forms]![Субсидии].FilterOn = True |
|
|
[Forms]![Субсидии]!ПолеСоСписком29 = Me.код_субсидии |
|
|
[Forms]![Субсидии]!ПолеСоСписком29.Requery |
|
Dim rs As Object
Set rs = [Forms]![Субсидии].Recordset
rs.FindFirst "[код_субсидии] = " & Nz(Me![код_субсидии]) ‘Форма субсидии_ленточная