Access VBA フォームからのデータ取得について

お世話になります。
4月から新社会人となり上司から課題を出されました。
内容はAccessでの売上管理システムなるもので、マクロは一切使わずVBAで組むというものです。
現在苦戦を強いられている箇所が以下になります。
売上入力フォームというものがありフォームの中にサブフォームが存在しているのですが、サブフォームからのデータ取得方法が分からず手詰まりな状態です。
通常のフォームからのデータ取得は「変数 = Me.フィールド名」として問題なく動作しております。
サブフォーム内のデータはクエリから表示をしています。
私自身も自分で何をしているのか理解が足りていないため稚拙な文章になってしまい申し訳ありません。
一応ですが現在のプログラムソースを貼り付けておきます。

----プログラムソース----
Private Sub 保存_Click()
Dim SQL1 As String
Dim SQL2 As String
Dim ID_k As Variant
Dim Name_k As Variant
Dim Date_u As Date
Dim NO_u As Variant
Dim NO_i As Variant
Dim Name_i As Variant
Dim Price As Currency
Dim Count As Variant
Dim Tax As Currency
Dim Price_tax As Currency
Dim Total As Currency

On Error GoTo Err

ID_k = Me.顧客ID
Name_k = Me.顧客名
Date_u = Me.売上日
NO_u = Me.売上NO
NO_i = Me.商品NO
Name_i = Me.商品名
Price = Me.単価
Count = Me.数量
Tax = Me.消費税
Price_tax = Me.税込価格
Total = Me.合計

SQL1 = "INSERT INTO T_売上(顧客ID,顧客名,売上日) VALUES('" & ID_k & "','" & Name_k & "','" & Date_u & "');"
DoCmd.RunSQL SQL1
SQL2 = "INSERT INTO T_売上詳細(売上NO,商品NO,商品名,単価,数量,消費税,税込価格,合計) VALUES('" & NO_u & "','" & NO_i & "','" & Name_i & "','" & Price & "','" & Count & "','" & Tax & "','" & Price_tax & "','" & Total & "')"
DoCmd.RunSQL SQL2

DoCmd.RunCommand acCmdSaveRecord
MsgBox "保存しました"
Exit Sub
Err:
MsgBox "保存できませんでした"
End Sub
----

よろしくお願い致します。

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2016/06/30 11:30

＞サブフォーム内のデータはクエリから表示をしています。

Forms!![メインフォーム名]![サブフォーム名]![フィールド名]
で参照できると思いますが、、、

余計なおせっかいとしては、このエラー処理はまずいね。１回目のSQLが実行できて２回目のSQLでつまずいた場合も同じエラーになってしまう。

あと、、どういう職種なのかわからないけど、人に聞かないで調べる習慣つけたほうが良いよ。

この回答へのお礼

ありがとうございます！
無事解決することができました。

お礼日時：2016/07/01 15:37