[5分]万用窗体(可用于选择和传值)开放源码求进化

取字段名的函数可以改成这样效率更高一些，能支持表、查询以及SQL语句返回的记录集：
Function GetFieldNames(Domain As String) As String
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
   
    Set rst = CurrentDb.OpenRecordset(Domain, , dbAppendOnly)
    For Each fld In rst.Fields
        GetFieldNames = GetFieldNames & " [" & fld.Name & "] &"
    Next
    GetFieldNames = Left$(GetFieldNames, Len(GetFieldNames) - 1)
    GetFieldNames = " AND " & GetFieldNames & " Like "
    rst.Close
   
Exit_GetFieldNames:
    Set rst = Nothing
    Set fld = Nothing
    Exit Function
   
Err_GetFieldNames:
    MsgBox Err.Description, vbCritical
    Resume Exit_GetFieldNames
End Function
另外MutiCondi函数中将带分隔符的字符串用Split函数转换为数组处理应该更好一些……