Access 2013 在其行源中引用组合框自己的标签

Question

我在表单上有一些组合框，我希望每个框的 RowSource 引用我设置的标签。该标签将从 table.

中过滤适当的下拉选项

SELECT DropdownNames
FROM Table
WHERE DropdownCategory=[Screen].[ActiveForm]![Me].[Tag]

正确的语法是什么？使用标签是执行此操作的最佳方法还是有更好的属性用于此目的？

Answer 1

这是我建议的示例。

Option Explicit

Private Sub Form_Load()

    Const DROPDOWN_SQL  As String = "SELECT DropdownNames FROM Table WHERE DropdownCategory = "
    Const DOUBLE_QUOTES As String = """"

    Dim ctl             As Control
    Dim strRowsource    As String

    For Each ctl In Me.Controls
        With ctl
            ' Only look at Tagged Combo Boxes
            If (.ControlType = acComboBox) And (.Tag <> "") Then
                ' Set Dropdown Row Source
                strRowsource = DROPDOWN_SQL & DOUBLE_QUOTES & .Tag & DOUBLE_QUOTES
                .RowSource = strRowsource
            End If
        End With
    Next

    Set ctl = Nothing
End Sub

Access 2013 在其行源中引用组合框自己的标签

Access 2013 refer to a combobox's own tag in its rowsource

ms-access

vba

ms-access-2013