ник: Lukas
1. FilterOn а не FiltrOn
2. If Me.Кнопка23.Caption = "Исследование" Then
...
Me.Кнопка23.Caption = "Исследование"
Else
...
Зачем?
3.
...
.Filter = "КодИсследования=" & DMax("КодИсследования", "№ истории", Me.Filter)
.FiltrOn = False
...
.Requery
Зачем назначать условия фильтра, если тут-же его отключать и тут-же перезапрашивать источник?
и .т.д.