主要问题我想知道如何让6个选项按钮起作用
如果能不用到(类型)列那就更好...起码可少键一个表..作者: uincent 时间: 2009-6-28 12:54
没人理我....作者: luhao 时间: 2009-6-28 14:42
自定义个函数，你想点查也可以
同一列多条件并查，多列多条件查。
Public Function 模糊搜索(数据源 As String, Optional 条件 As String, Optional 关系 As Boolean) As String
''=================================================================================
'' 函数说明：
'' 此函数执行成功则返回一个包含全字段模糊查询条件的查询语句，否则返回一个空字符串。
'' 参数说明：
'' 数据源 参数: 必填 可以是表名、查询名、SQL语句
'' 条件 参数: 可选 可以是任何字符，多个条件用空格隔开
'' 关系 参数: 可选 为真假值，确定多个条件之间的关系，为真关系是"or"，为假关系是"and"
'' 使用示例：
'' Me.列表框1.RowSource = 模糊搜索("人员表", Me.文本1)
'' Me.子窗体.Form.RecordSource = 模糊搜索("Select * From 人员表", "张小 大力 001",true)
'
'' 设计：t小宝
'' 创建日期：2007-12-27
'' 更新日期：2007-12-30
''==================================================================================
On Error GoTo Err1
Dim dbs As DAO.Database
Dim r字段 As DAO.Recordset
Dim stsql As String
Dim s数组() As String
Dim s字段 As String
Dim s条件 As String
Dim s关系 As String
Dim i条件 As Integer
Dim i As Integer
Dim i1 As Integer
If Len(数据源) = 0 Then ' 不输入数据源,退出
Exit Function
End If
' 转换数据源参数为SQL语句
If InStr(1, 数据源, "select", 1) = 0 Then ' 如果数据源是查询语句
stsql = "Select * From [" & 数据源 & "] "
Else ' 数据源是表名或查询名称
stsql = "Select * From (" & 数据源 & ") As a "
End If
s条件 = Trim(条件)
If Len(s条件) = 0 Then ' 不输入条件
模糊搜索 = stsql
Exit Function
End If
