Question

我正在尝试搜索一个名为＆＃34; Model＆＃34;在一个名为＆＃34; ItemSpecs＆＃34;的表中但我不能为我的生活搞清楚，我还没有能够在谷歌上找到任何例子。除了搜索字段之外，我还尝试添加不同的搜索方法（例如＆＃34;包含＆＃34;，＆＃34;不包含＆＃34;，＆＃34;开始使用＆＃34;和＆＃34;结束＆＃34;）。

到目前为止我有什么

到目前为止，我以下所有内容都是测试哪个下拉项目被选中（哪个有效！）。

我还需要什么

根据我的阅读，我需要查询表并将其放入vbRecordSet然后搜索它以获得我想要的内容？我认为下面的框架代码将使我能够做到这一点，我可以弄清楚如何将查询结果放入记录集，然后找出如何查询它。

注意：

感谢您的帮助！ Imma继续工作这个该死的东西，但如果有人能在我面前搞清楚它会很棒。

Private Sub Button_Search_Click()
    If Len(Me.Search_Text.Value & vbNullString) = 0 Then
        MsgBox "No Value"
    Else
        If Me.Search_Preferance.Value = "Starts with" Then
            MsgBox "Starts with"
        ElseIf Me.Search_Preferance.Value = "Ends with" Then
            MsgBox "Ends with"
        ElseIf Me.Search_Preferance.Value = "Contains" Then
            MsgBox "Contains"
        ElseIf Me.Search_Preferance.Value = "Doesn't contain" Then
            MsgBox "Doesn't contain"
        Else
            MsgBox "Invalid Seach Preference Selected."
        End If
    End If

Answer 1

我假设您在RecordSource设置为＆＃34; ItemSpecs＆＃34;的表单上执行此操作。（或基于该表的选择查询，其中一个包含的列是＆＃34;模型＆＃34;）：

Private Sub Button_Search_Click()
    If Len(Me.Search_Text.Value & vbNullString) = 0 Then
        Me.FilterOn = False
        Me.Filter = vbNullString
    Else
        Dim Txt As String
        Txt = Me.Search_Text.Value
        Select Case Me.Search_Preferance.Value 
        Case "Starts with": Me.Filter = "Model Like """ & Txt & "*"""
        Case "Ends with": Me.Filter = "Model Like ""*" & Txt & """"
        Case "Contains": Me.Filter = "Model Like ""*" & Txt & "*"""
        Case "Doesn't contain": Me.Filter = "Model Not Like ""*" & Txt & "*"""
        Case Else
            MsgBox "Invalid Seach Preference Selected."
        End Select
        Me.FilterOn = True
    End If
End Sub

MS Access高级文本搜索目标表中的单个字段

1 个答案: