Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9688 / 9994

←次へ　｜　前へ→


	【3442】Re:リストボックスの値取得

saikoro - 04/9/7(火) 15:57 -


	引用なし

	パスワード

こもれび様　返信ありがとうございます。

あ、やはり最後から格納していってるんですね。
と、いうことは、
抜けている一行とやらを追加して、
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・・・な、長くなった^^;

494 hits

▼

【3429】リストボックスの値取得 saikoro 04/9/7(火) 8:51