| |
こもれび様 返信ありがとうございます。
あ、やはり最後から格納していってるんですね。
と、いうことは、
抜けている一行とやらを追加して、
qry.EOF→qry.BOF、
qry.MoveNext→qry.MovePrevious
として格納できました。以下にそのソースを・・
ソース何かへんですかね？^^;
お二方ありがとうございました！m(_ _)m
Dim TabemonoArray() As String
Dim RC As Integer
Dim K As Integer
Dim db As DAO.Database
Dim qry As DAO.Recordset
'DBセット, dbOpenDynaset
Set db = CurrentDb
Set qry = db.OpenRecordset("qryメモリ表示", dbOpenDynaset)
If qry.EOF = True Then
MsgBox ("メモリが表示されていません")
Exit Sub
End If
qry.MoveLast
RC = qry.RecordCount - 1
K = RC
ReDim TabemonoArray(2, RC)
Do While qry.BOF = False
TabemonoArray(0, RC - K) = qry.Fields(0) '番号
Debug.Print TabemonoArray(0, RC - K) 'デバッグ用
TabemonoArray(1, RC - K) = qry.Fields(1) '種類
Debug.Print TabemonoArray(1, RC - K) 'デバッグ用
TabemonoArray(2, RC - K) = qry.Fields(2) '名称
Debug.Print TabemonoArray(2, RC - K) 'デバッグ用
K = K - 1
qry.MovePrevious
Loop
db.Close
追伸で、こもれび様以前にファイルが大きくなっていくのですが・・という
題名でスレ立てたとき、返信に気づかなくて申し訳ありません。気づいた時には
もう流れまくっていたので。。。この場で謝罪を。確かにおっしゃってる通りです。
以降気をつけます。ありがとうございましたm(_ _)m・・・な、長くなった^^;
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
