Access VBA質問箱 IV

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

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


9701 / 9994 ←次へ | 前へ→

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

引用なし
パスワード
   リストボックスに列が3で、行は増やしていく(データを増やすと増えるので)というqryを
表示させています。

このリストボックスに表示されているデータを一つづつ、格納して、
値を取って置きたいのですが、その仕方がわかりません。

qryTabemono

番号    種類    名称
1    果物    バナナ
2    果物    ぶどう
3    野菜    白菜
4    野菜    キャベツ


以下10個位までデータがあれば、データを保存しておきたいのですが、
どのようにすればよろしいですか?

こうすれば最後の行だけは、とれるのですが。。。
あたりまえですが・・・

Dim Bangou as Integer
Dim Syurui as String
Dim Meisyou as String

Dim db As DAO.Database
Dim qry As DAO.Recordset
  
'DBセット
Set db = CurrentDb
Set qry = db.OpenRecordset("qryTabemono", dbOpenDynaset)
  
If qry.EOF = True Then
  MsgBox ("データがありません")
  Exit Sub
End If
  
Do While qry.EOF = False
    
  Bangou = qry.Fields(0) '番号
  Syurui = qry.Fields(1) '種類
  Meisyou = qry.Fields(2) '名称

  qry.MoveNext
    
Loop

全データを格納しておきたいのですが、
どのようにすればよろしいですか?
初歩的ですが、よろしくおねがいします。
592 hits

【3429】リストボックスの値取得 saikoro 04/9/7(火) 8:51 質問
【3430】Re:リストボックスの値取得 Gin_II 04/9/7(火) 9:23 回答
【3431】Re:リストボックスの値取得 saikoro 04/9/7(火) 9:51 発言
【3432】Re:リストボックスの値取得 こもれび 04/9/7(火) 10:08 回答
【3433】Re:リストボックスの値取得 Gin_II 04/9/7(火) 10:14 回答
【3434】Re:リストボックスの値取得 こもれび 04/9/7(火) 10:44 回答
【3440】Re:リストボックスの値取得 saikoro 04/9/7(火) 13:04 質問
【3441】Re:リストボックスの値取得 こもれび 04/9/7(火) 15:04 回答
【3442】Re:リストボックスの値取得 saikoro 04/9/7(火) 15:57 お礼

9701 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078300
(SS)C-BOARD v3.8 is Free