pour mettre les IDs dans une rangée… (code non essayé)
faible DB comme base de données
Faibles rs comme dao.recordset
Faible MyIds comme variante
placer DB = currentdb
placer les rs = le db.openrecordset (« identification choisie de tablename où le yesnofield = rectifient »)
myIds = rs.GetRows (1000000) 'tout nombre plus que le nombre maximum que vous pourriez obtenir
rs.close
placer le rs= rien
placer DB = rien
'vous avez maintenant une rangée d'ids dans MyIDs - pour l'usage d'essai la prochaine ligne de montrer combien
ubound de msgbox (myids) +1 '