положить IDs в блок… (непроверенное Кодий)
тусклый db как база данных
Тусклые rs как dao.recordset
Тусклое MyIds как вариант
установите db = currentdb
установите rs = db.openrecordset («отборное удостоверение личности от tablename где yesnofield = true»)
myIds = rs.GetRows (1000000) 'любые нумеруют больше чем максимальный номер, котор вы могли получить
rs.close
установите rs= ничего
установите db = ничего
'вы теперь имеете блок ids в MyIDs - для пользы испытание следующая линия показать
ubound msgbox (myids) +1 '