[quot KarfaqenЭто вы перечисляете ДЕЙСТВИЯ, при которых у вас возникает ошибка. А я прошу вас назвать МОМЕНТ, в который вы выполняете эти действия.
Вы же не асинхронно пытаетесь "просто считать с нее значение". Раз вы говорите "НЕ УСПЕВАЕТ загрузиться", значит у вас это происходит в ходе выполнения какой-то ЦЕПОЧКИ событий (в которых субформа "не успевает" загрузиться). Вот и расскажите, в ходе КАКОЙ именно последовательности событий вы пытаетесь "просто считать с нее значение".[/quot]
Private Sub Поле_AfterUpdate()
Dim numrows As Long, NumColumns As Long
numrows = Me.SelTop
NumColumns = Me.SelLeft - 1
Requery
Me.SelTop = numrows !!!!! вот на этой строке и происходит ошибка, заметьте чаще проходит нормально все (подформа загрузилась)
Me.SelLeft = NumColumns
End Sub
Private Sub Form_AfterUpdate()
Refresh
End Sub