使用vba访问搜索-在不更改RecordSource的情况下在子窗体中显示结果

Private Sub btnSearch_Click()
    Dim searchKeyword As String
    Dim strSQL As String
    
    ' 获取搜索关键字
    searchKeyword = Me.txtSearch.Value
    
    ' 构建搜索SQL语句
    strSQL = "SELECT * FROM YourTableName WHERE YourFieldName LIKE '*" & searchKeyword & "*'"
    
    ' 设置子窗体的RecordSource为搜索结果
    Me.subformName.Form.RecordSource = strSQL
    
    ' 刷新子窗体
    Me.subformName.Form.Requery
End Sub