サブ付きのエントリーフォームがあります。連携する 3 つのコンボ ボックスがあります。コンボ 1 は vba でセットアップし、アフター イベント コンボ 2 以降は 3 つになります。それらはメイン フォームとは独立して正常に動作しますが、フォームをサブとして訴えると、カスケードが機能しなくなります。
フォーム
Main Form Name "1A-Event Entry"
SubForm Name "1B-Event sub"
ComboBox 1 (更新後)
Private Sub Category_AfterUpdate()
Me.Type = Null
Me.Type.Requery
Me.Type = Me.Type.ItemData(0)
End Sub
コンボボックス 2 (SQL)
SELECT Type.ID, Type.Type, Type.Category
FROM Type
WHERE (((Type.Category)=[Forms]![1B-Event sub]![Category]))
ORDER BY Type.Type;
CombBox2 (アップデート後)
Private Sub Type_AfterUpdate()
Me.Detail1 = Null
Me.Detail1.Requery
Me.Detail1 = Me.Detail1.ItemData(0)
End Sub
ComboBox3 (SQL)
SELECT Detail.ID, Detail.Detail, Detail.Type
FROM Detail
WHERE (((Detail.Type)=[Forms]![1B-Event sub]![Type]))
ORDER BY Detail.Detail;
SQLのフォーム/サブフォームスクリプトと関係があると確信していますが、それは私を逃れます。