| 
    
     |  | >Private Sub コード_AfterUpdate() >[Forms]![サブフォーム]![コード].DefaultValue = [Forms]![フォームA]![コード]
 >End Sub
 
 想像していたとおりのコードですね。
 
 Formsコレクションには、開かれているフォームだけが含まれます。
 メインフォームが開かれていても、サブフォームに使われているフォームは
 フォームとして開かれているわけではありません。
 サブフォームがフォームとして開かれているならば、
 アクセスのウィンドウ内に標題がサブフォーム名となっているウィンドウがあるはずですが、
 メインフォームを開いているときにそんなウィンドウはありませんよね。
 したがって、サブフォームに使われているフォームはFormsコレクションに含まれず、
 'サブフォーム’フォームが見つかりません。
 というエラーになります。
 
 
 サブフォームを参照、取得するには、
 Forms!メインフォーム名!サブフォームコントロール名.Form
 とします。
 サブフォーム上のコントロールを参照又は取得するには、例えば、
 Forms!メインフォーム名!サブフォームコントロール名.Form!コンボボックス名
 のようにします。
 
 サブフォームコントロール名というのは、
 メインフォームのデザインビューでプロパティシートを表示させたとき、
 プロパティシートの標題に「サブフォーム/サブレポート:××××」と表示される
 「××××」の部分のことです。
 
 
 |  |