Pergunta : Alcançar o probplem de VBA com GetRows

Hi

I am que tentam começ uma disposição dos números de identificação de todos os registros onde o campo da “fatura” é verific using o seguinte código, mas a linha MyIds = o de rs.GetRows (rs.RecordCount) parecem somente recolher os primeiros dois de 3 artigos verific. Isso é porque a última linha

do btnInvoice_Click do out

Private dos erros () escurece o DB como rs não ofuscantes de Database
como o dao. Recordset
escurece MyIds como o
de Variant
ajustado DB = rs ajustados de CurrentDb
=
“MyIds = rs.GetRows de db.OpenRecordset (“identificação seleta de [registos do quarto] onde faturado = verdadeiro”) (100000)” todo o número mais do que o número que máximo você pôde o get

MyIds = os rs do
de rs.GetRows (rs.RecordCount). Rs ajustados de Close
= Nothing
ajustado DB = Nothing
'você tem agora uma disposição de ids em MyIDs - para o uso do teste linha seguinte para mostrar quanto o
MsgBox UBound (MyIds) + 1 '
do
escurece i como Integer
i = 2
MsgBox MyIds (0,
End Sub
do i)
class= do

Resposta : Alcançar o probplem de VBA com GetRows

Você pôde tentar .MoveLast e .MoveFirst para segurar o recordset é enchido:

Ajustar os rs = o db.OpenRecordset (“identificação seleta de [os registos do quarto] onde faturado = retificar”)
rs.MoveLast
rs.MoveFirst

'/note eu igualmente uso um número arbitrariamente grande em vez de. Recordcount
MyIds = rs.GetRows (99999999)