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