Question : Accéder au probplem de VBA avec GetRows

Hi

I AM essayant d'obtenir un choix des numéros d'identité De tous les disques où le champ de « facture » est vérifié using le code suivant, mais la ligne MyIds = le de rs.GetRows (rs.RecordCount) semble seulement recueillir les deux premiers sur 3 articles vérifiés. C'est pourquoi la dernière ligne le

de btnInvoice_Click de l'out

Private d'erreurs () obscurcissent le DB comme faibles rs de Database
comme dao. Recordset
obscurcissent MyIds comme le
de Variant
réglé DB = rs réglés de CurrentDb
=
« MyIds = rs.GetRows (100000) de db.OpenRecordset (« identification choisie de [des réservations de pièce] où facturé = vrai ») » tout nombre davantage que le nombre maximum que vous pourriez le get

MyIds = les rs du
de rs.GetRows (rs.RecordCount). Les rs réglés de Close
= le Nothing
réglé DB = Nothing
'vous avez maintenant une rangée d'ids dans MyIDs - pour l'usage d'essai prochaine ligne pour montrer combien le
MsgBox UBound (MyIds) + 1 '
du
obscurcissent I comme Integer
i = 2
MsgBox MyIds (0,
End Sub
d'i)
class= de

Réponse : Accéder au probplem de VBA avec GetRows

Vous pourriez essayer .MoveLast et .MoveFirst pour assurer le recordset est rempli :

Placer les rs = le db.OpenRecordset (« identification choisie de [les réservations de pièce] où facturé = rectifier »)
rs.MoveLast
rs.MoveFirst

'/note j'emploie également un nombre arbitrairement grand au lieu de. Recordcount
MyIds = rs.GetRows (99999999)