Question

我得到了这段代码：

Private Sub Kombinationsboks3_Change()
   Me.Tilmeldt_underformular1.Form.FilterOn = False
   Me.Tilmeldt_underformular1.Form.Filter = "[Afdeling]= 'Ansøgningsafdelingen'"
   Me.Tilmeldt_underformular1.Form.FilterOn = True
End Sub

而不是字段[Afdeling]等于特定文本，我需要它等于主窗体Form_Afdelinger上的组合框中的值。

我试过四处寻找，但我似乎无法找到答案，所以我希望你们其中一人可以帮助我。

Answer 1

您应该可以通过将其连接到字符串来完成此操作，如下所示：

Private Sub Kombinationsboks3_Change()
   Me.Tilmeldt_underformular1.Form.FilterOn = False
   Me.Tilmeldt_underformular1.Form.Filter = "[Afdeling]= '" & [Form].[ComboBox1].Value & "'"
   Me.Tilmeldt_underformular1.Form.FilterOn = True
End Sub

注意：您需要将Form更改为父表单名称，将ComboBox1更改为ComboBox的名称。

基于主窗体中的组合框过滤子窗体

1 个答案: