ник: Гоблин
Private Sub Кнопка23_Click()
If lngFlag > 1 Then lngFlag = 0 'показать все исследования в режиме чтения, или показать последнее исследование с возможностью добавления (подчиненная форма)
With Me.[подчиненная форма № истории].Form
Select Case lngFlag
Case Is = 0 'Добавление с показом последней записи
.AllowEdits = False 'корректировать запрещаем
.AllowAdditions = True 'Можно добавлять
.Filter = "КодИсследования=" & Nz(DMax("КодИсследования", "№ истории", Me.Filter), 0)
.FilterOn = True 'Включаем фильтр
.Requery
Case Is = 1 'Чтение всех исследований
.FilterOn = "КодИсследования=" & Nz(DMax("КодИсследования", "№ истории", Me.Filter), 0)
.FiltrOn = False 'Фильтр выключаем для показа всех записей в форме
.AllowAdditions = False 'Добавлять не даем
.AllowEdits = False 'корректировать не даем
.DataEntry = False 'ввод запрещаем
.Requery ' обновляем форму
End Select
lngFlag = lngFlag + 1
End With
Else
End if
End Sub
Мало того что не хочет фильтр подчиненной формы отключать, так еще ругается на завершение цикла выделяя End if.
Без этой строки хоть не ругается, но и не работает. Что не так?