Вопрос : Достигните probplem VBA с GetRows

Кажется, что собирают Hi

I am пытаясь получить блок номеров удостоверения личности всех показателей где поле «фактуры» проверено using следующий Кодий, только линия MyIds = rs.GetRows (rs.RecordCount) только первые 2 из 3 проверенных деталей. То почему последняя линия

btnInvoice_Click out

Private ошибок Sub () затемняет db как rs Database
тусклые как dao. Recordset
затемняет MyIds по мере того как
Variant
установленное db = rs CurrentDb
установленные =
«MyIds = rs.GetRows db.OpenRecordset («отборного удостоверения личности от [резервирования комнаты] где выставляно счет = поистине») (100000)» любые нумерует больше чем максимальный номер, котор вы могли get

MyIds = rs
rs.GetRows (rs.RecordCount). Rs Close
установленные = Nothing
установленное db = Nothing
'вы теперь имеете блок ids в MyIDs - для пользы испытание следующая линия для того чтобы показать сколько
MsgBox UBound (MyIds) + 1 '

затемняет I как Integer
iий =
End Sub

2
MsgBox MyIds (0, I) class=

Ответ : Достигните probplem VBA с GetRows

Вы могли попытаться .MoveLast и заполнено .MoveFirst для обеспечения recordset:

Установите rs = db.OpenRecordset («отборное удостоверение личности от [резервирования комнаты] где выставляно счет = true»)
rs.MoveLast
rs.MoveFirst

'/note я также использую произвольно большое количество вместо. Recordcount
MyIds = rs.GetRows (99999999)