Ms access 访问VBA或任何

我希望在我的数据库搜索表单中有多个搜索框，我应该像这样对数据进行排序：

其中IdNumber=12，year=2017，codnumber=022004，Positiontitle=Director，directory=Audit

或etc…）

但是这个搜索代码是针对一个搜索框和多个字段的，我想要多个搜索框和多个字段

Private Sub Command379_Click() 

    Dim StrText As String
    Dim StrSearch As String
    Dim Task As String
    Dim strProgram As String

    If IsNull(Me.txtsearch) Or Me.txtsearch = "" Then
     '  MsgBox "Please type a word in search.", vbOKOnly, "Type a Word"
        Me.txtsearch.BackColor = vbYellow
        'Me.txtsearch.setfouc
    Else
        StrSearch = Me.txtsearch.Value
        Task = "SELECT * FROM Gneraltable where((Office like ""*" & StrSearch & "*"")or (year like ""*" & StrSearch & "*"")))"'
        'Me.RecordSource = Task
        'Me.txtsearch.BackColor = vbtransparent'
        'Me.RecordSource = StrSearch'
    'End If'
    'End'

查看这是否有助于此处的有效选项查看这是否有助于此处的有效选项