para põr os IDs em uma disposição… (código não experimentado)
DB não ofuscante como a base de dados
Rs não ofuscantes como dao.recordset
MyIds não ofuscante como a variação
ajustar DB = currentdb
ajustar os rs = o db.openrecordset (“identificação seleta do tablename onde o yesnofield = retifica”)
myIds = rs.GetRows (1000000) 'algum número mais do que o número que máximo você pôde começ
rs.close
ajustar o rs= nada
ajustar DB = nada
'você tem agora uma disposição de ids em MyIDs - para o uso do teste a linha seguinte mostrar quanto
ubound do msgbox (myids) +1 '