Access VBA質問箱 IV

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

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


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

2351 / 9994

←次へ　｜　前へ→


	【10918】レコードを1件ずつ読み込む

聡 - 09/1/8(木) 17:24 -


	引用なし

	パスワード

お世話になります。ご教授頂きたくお願い申し上げます。
フォーム上に｢商品マスタ全て読込ボタン｣というものがあり、クリックすると
T_商品マスタのデータをF_伝票入力に読み込むDBを作成したいのですが
F_伝票入力にデータが反映出来ず困っております。
下のコードを見てご察しの通りと思いますが、テーブルであるT_伝票入力に
はデータが反映されております。

現在構築している内容は、以下の通りです。
<テーブル>
T_商品マスタには商品グループ番号、商品コード、商品名
T_伝票入力には商品コード、商品名
となっており
<フォーム>
F_伝票入力には商品コード、商品名(T_伝票入力を基に作成しました)
とあります。

コードを以下のように書きました。

Private Sub 商品マスタ全て読込_Click()

　　Dim cn As New ADODB.Connection
　　Dim rs1 As ADODB.Recordset
　　Dim rs2 As ADODB.Recordset
　
　　Set cn = Application.CurrentProject.Connection
　　Set rs1 = New ADODB.Recordset
　　Set rs2 = New ADODB.Recordset
　　
　　rs1.Open "T_商品マスタ", cn, adOpenStatic, adLockReadOnly
　　rs2.Open "T_伝票入力", cn, adOpenKeyset, adLockOptimistic
　　
　　　rs1.MoveFirst
　　
　　Do Until rs1.EOF
　　
　　　　 rs2.AddNew
　　　　　 rs2!商品コード = rs1!商品コード
　　　　　 rs2!商品名 = rs1!商品名
　　　　 rs2.Update
　　　
　　　rs1.MoveNext
　　
　　Loop
　　
　　rs1.Close
　　rs2.Close
　　cn.Close
　　
End Sub

この状態ですと、フォーム上ではなく、直接テーブルにデータが書き込まれる
為、フォームであるF_伝票入力には何も変化が起きておりません。
T_伝票入力にデータを反映したいのは勿論なのですが、F_伝票入力にも表示
されるようにしたいのですが、どなたかご教授下さいませ。
宜しくお願い致します。

677 hits

▼

【10918】レコードを1件ずつ読み込む 聡 09/1/8(木) 17:24