Доброго времени суток всем!
В подчиненной форме (fsubObjects) по нажатию кнопки на главной (frmObservations) срабатывает следующий цикл:
1.
2.
3.
4.
5.
6.
Me.fsubObjects.Form.Recordset.MoveFirst
Do While Not Me.fsubObjects.Form.Recordset.EOF
Me.fsubObjects.Form.Recordset.MoveNext
Loop
и цикл нормально проходит, пока закомментирован следующий код в подчиненной форме (fsubObjects)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public Sub Form_Current()
On Error GoTo ErrorHandler
If Me.NewRecord Then
Else
'обновляем список изображений объекта
rem If glngTable = glngcTableObservations Then
rem Call GP_Requery_List_Images(Me!txtObservation, glngcTableObservations, "frmObservations")
rem End If
End If
ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре Form_Current модуля Form_fsubObjects"
Resume ErrorHandlerExit
End Sub
Однако обновление списка изображений нормально отрабатывает при "ручном" переходе по записям подчиненной формы. А в цикле почему-то нет...
В приложенной базе запустить frmObservations и пощелкать по записям в подчиненной форме "Объекты". Дважды щелкнуть на прямоугольнике, в котором эта форма (цвет изменится на зеленый). Затем кнопка "Изменить" (Карандаш). Активируются кнопки "Сохранить" и "Не сохранять". Жмем "Сохранить" и в зависимости от вышеописанного условия наблюдаем/не наблюдаем зависание. Показалось, что идет переключение между первой и второй записями в подчиненной форме...
