Microsoft Access 掲示板

Microsoft Access 掲示板

抽出用フォームからサブフォームへの値の代入 / 1

1
涼子 2021/08/30 (月) 13:54:54 1a64f@e5635

【自己解決】

以下コードで動作しました！

Private Sub 受注選択_Click()
  If Forms!F_品種マスタ_抽出_受注!F_品種マスタ_サブ.Form.Recordset.RecordCount = 0 Then
    Beep
    MsgBox "品種が正しく抽出されていません。", vbCritical, "在庫管理"
  Else
    Forms!F_受注入力_メイン!受注明細.Form!品種番号 = Me.F_品種マスタ_サブ.Form!品種番号
    Forms!F_受注入力_メイン.SetFocus
    Forms!F_受注入力_メイン!受注明細.Form!受注本数.SetFocus
    DoCmd.Close acForm, "F_品種マスタ_抽出_受注"
  End If
End Sub

Hatena様の別サイトの投稿を見つけ解決いたしました。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11130145846

サブフォームの場合メインフォームのに埋め込んでるサブフォームのコントロール名を指定しないといけないわけですね！

通報 ...