0

サブ付きのエントリーフォームがあります。連携する 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のフォーム/サブフォームスクリプトと関係があると確信していますが、それは私を逃れます。

4

1 に答える 1

1

サブフォームとして、別の参照が必要です:

WHERE Type.Category=[Forms]![1A-Event Entry]![Subform Control Name Here].Form![Category]

フォームが別のフォームのサブフォームとして実行される場合、サブフォーム コントロールを参照する必要があります。

于 2012-12-31T23:22:29.660 に答える