Access VBA質問箱 IV

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

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


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

9698 / 9994

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

こもれびです　こんにちは

テーブルに格納する方法を記述します。（テーブル名：T_TABEMONO ）

○　追加
　　Dim tb as Recordset

　　Set tb = db.OpenRecordset("T_TABEMONO",dbOpenDynaset,dbAppendOnly)

○　変更

Do While qry.EOF = False
　tb.AddNew
　　tb![番号] = qry.Fields(0) '番号
　　tb![種類] = qry.Fields(1) '種類
　　tb![名称] = qry.Fields(2) '名称
　tb.Update
　qry.MoveNext
Loop
tb.Close

504 hits

▼

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