通过匹配访问中表单中的两个字段来搜索表单

问题描述 投票:-1回答:1

我在MS Access中有一个名为frmBullList的表格,其中有一个名为TYPE的字段,另一个为LOCATION字段。我有与LOCATION连接的tblBullList的单独表。

我要搜索两个字段都匹配的记录。

假设我要在美国(TYPE)中搜索红牛(LOCATION)。结果将仅显示美国的红牛。

谢谢

ms-access search module combobox access-vba
1个回答
0
投票

我假设您的表LOCATION有3个字段:

LocationID
LocationName
TypeID

表的类型有两个字段:

TypeID
TypeName

如果确实如此,则为您的cmbType组合事件创建一个:

    Private Sub cmbType_AfterUpdate()
        If isnull(cmbType) Then
            Me.Filter = ""
            Me.FilterOn = False
        Else
            Me.Filter = "TypeID = " & cmbType.column(0)
            Me.FilterOn = True
        End If
    End Sub

您应该设置这些属性(您也可以在“属性”窗口中设置它们:]]

    Private Sub Form_Load()
        Me.RecordSource = "SELECT * FROM LOCATION"
        Me.txtLocation.ControlSource = "LocationName"
        Me.cmbType.RowSource = "SELECT TypeID, LocationName FROM TYPE"
        Me.cmbType.BoundColumn = 1
        Me.cmbType.ColumnCount = 2
        Me.cmbType.ColumnWidths = "0;"
    End Sub

我希望我没有忘记任何事情。我还没有测试过。

© www.soinside.com 2019 - 2024. All rights reserved.