1.
2.
3.
4.
5.
6.
7.
With Me.RecordsetClone
If .RecordCount > 0 Then .MoveFirst
Do Until .EOF
Debug.Print ![ИмяПоля]
.MoveNext
Loop
End With
Вчера применил этот метод,и столкнулся с тем,что Movenext не срабатывает,т.е. переход не осущесвляется,на печать выводится только первая строка формы,хотя количество проходов соответствует количеству строк ленточной формы.
Поменял RecordsetClone на Recordset - тогда заработало как надо
На то он и Recordset
Clone , что перемещение по записям никак не отражается на форме. Что бы перейти в форме на найденную запись, нужно выполнить Me.Bookmark = Me.RecordsetClone.Bookmark (внутри With Me.RecordsetClone просто Me.Bookmark = .Bookmark).
Если перемещаться по Recordset , то этого не нужно, и записи на форме будут двигаться синхронно, что не есть гуд.
Панург
1.
Debug.Print .Fields("ИмяПоля") ' ![ИмяПоля]
пиши как надо Панург, аргументируйте, что .Fields("ИмяПоля") - как надо, а ![ИмяПоля] - как не надо. Понятно, что в .Fields(...) можно применить строковую переменную или номер поля в коллекции, но это не тот случай.
