[已解决]能否由一个文本框对应查询中的两个以上字段？

窗体原有若干文本框，通过查询按钮的代码和查询中的若干字段一一对应，能否减少窗体上的文本框数量，使剩下的文本框和查询中一个以上的字段相关联，实现查询的目的。

以如下代码为例，假若删除窗体上的pinyin文本框，能否实现在姓名文本框中输入拼音字母则按pinyin字段进行查询、输入姓名则按姓名字段进行查询？谢谢了。

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
   
    strWhere = ""
    If Not IsNull(Me.PinYin) Then
        strWhere = strWhere & "([pinyin] like '*" & Me.PinYin & "*') AND "
    End If
    If Not IsNull(Me.姓名) Then
        strWhere = strWhere & "([姓名] like '*" & Me.姓名 & "*') AND "
    End If
    If Not IsNull(Me.编号) Then
        strWhere = strWhere & "([编号] like '*" & Me.编号 & "*') AND "
    End If

    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    Debug.Print strWhere
   
    Me.档案查询子窗体.Form.Filter = strWhere
    Me.档案查询子窗体.Form.FilterOn = True
   

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
   
End Sub