| |
|
|
| | 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.
Без этой строки хоть не ругается, но и не работает. Что не так? | |
| |
| |
| |
|
|
| |
If lngFlag > 1 Then lngFlag = 0
...
Else
End if
|
Вот выкинул все из конструкции If Then
Сравни с тем, что рекомендует справка. | |
| |
| |
| |
|
|
| | Честно говоря всегда делал все на 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
По рекомендации выкину и гляну. Но не сегодня. | |
| |
| |
| |
|
|
| | 1. FilterOn а не FiltrOn
2. If Me.Кнопка23.Caption = "Исследование" Then
...
Me.Кнопка23.Caption = "Исследование"
Else
...
Зачем?
3.
...
.Filter = "КодИсследования=" & DMax("КодИсследования", "№ истории", Me.Filter)
.FiltrOn = False
...
.Requery
Зачем назначать условия фильтра, если тут-же его отключать и тут-же перезапрашивать источник?
и .т.д. | |
| |
| |
|
|
Спасибо.