ник: Гоблин
Честно говоря всегда делал все на if а это взял из примерчика. Новую технологию осваиваю casse. Что-то не получается.
Так:
If Me.Кнопка23.Caption = "Исследование" Then
With Me.[подчиненная форма № истории].Form
.AllowEdits = False
.AllowAdditions = True
.Filter = "КодИсследования=" & Nz(DMax("КодИсследования", "№ истории", Me.Filter), 0)
.FilterOn = True
.Requery
Me.Кнопка23.Caption = "Исследование"
End With
Else
With Me.[подчиненная форма № истории].Form
.Filter = "КодИсследования=" & DMax("КодИсследования", "№ истории", Me.Filter)
.FiltrOn = False
.AllowAdditions = False
.AllowEdits = False
.DataEntry = False
.Requery
End With
Me.Кнопка23.Caption = "Исследование"
End If
выделяет FiltrOn.False
По рекомендации выкину и гляну. Но не сегодня.