Access VBA質問箱 IV

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

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


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

9696 / 9994

←次へ　｜　前へ→


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

こもれび - 04/9/7(火) 10:44 -


	引用なし

	パスワード

こもれびです

その２
変数に代入

○　追加
　　Dim TabemonoArray() as String
　　Dim RC as Integer
　　Dim K as Integer

> Set qry = db.OpenRecordset("qryTabemono", dbOpenDynaset)
　　
> If qry.EOF = True Then
>　　MsgBox ("データがありません")
>　　Exit Sub
> End If

の後に
　　RC = qry.RecordCount-1
　　K = RC
　　Redim TabemonoArray(2,RC)

○　変更

Do While qry.EOF = False
　　　　
　　TabemonoArray(0,RC-K) = qry.Fields(0) '番号
　　TabemonoArray(1,RC-K) = qry.Fields(1) '種類
　　TabemonoArray(2,RC-K) = qry.Fields(2) '名称
　　K = K - 1
　　qry.MoveNext
　　　　
Loop

これで何とかなるかな～。

502 hits

▼

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