Microsoft Access 掲示板

下記のようにAテーブルBテーブルが車庫IDとB車庫IDがリレーションシップで結合しCクエリーを作成しF車庫証明を作成しております。フォーム上に車庫ID、B車庫IDのフィールドを作っております。
Aテーブル Bテーブル
主キー 車庫ID オートナンバー B車庫ID 数値
申請依頼日 日付/時刻型 車種 短いテキスト
申請日 日付/時刻型 車体番号 数値
住所 短いテキスト
氏名 短いテキスト
車庫IDとB車庫IDを結合したCクエリーを作成
CクエリーをデータにしたF車庫証明を作成別途Eフォームを作成し当該Eフォームのボタンから下記のようにF車庫証明に書き込む
Private Sub 追加入力_Click()
Dim Sx As Long
Dim hx As Long
DoCmd.OpenForm "F車庫証明"
If IsNull(Me.至ID) Then
Else
Forms!F車庫証明.SetFocus 'F車庫証明をアクティブにする（念の為）
For Sx = 1 To Me.至ID
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Forms!F車庫証明![申請依頼日] = Me.[依頼日TXT] (Eフォームのテキスト)
Forms!F車庫証明![申請日] = [申請日TXT] (Eフォームのテキスト)
Forms!F車庫証明![B車庫ID] = Forms!F車庫証明![車庫ID]
DoCmd.RunCommand acCmdSaveRecord
Next Sx
End If: End If: End If
End Sub
Private Sub 追加
ご教示いただきたいのは車庫IDを自動的にB車庫IDに入力できないかということです。
Forms!F車庫証明![B車庫ID] = Forms!F車庫証明![車庫ID]
上記のようにしてもうまくいきません。