如何在ACCESS中利用复选框进行多条件筛选？

lrlxxqxa

如何在ACCESS中利用复选框进行多条件筛选？

建立表、主子窗子的过程在此不多说了，直接进入正题。

1、根据3个条件创建3个复选框，并设置属性；

2、创建筛选按钮，并在属性的单击事件中添加代码如下：

1. Private Sub 筛选_Button_Click()
   
2.     If tj1 And tj2 And tj3 Then
   
3.         表1.Form.RecordSource = "select * from 表1"
   
4.     End If
   
5.     If tj1 And tj2 And tj3 = False Then
   
6.         表1.Form.RecordSource = "select * from 表1 where 达标率<80"
   
7.     End If
   
8.     If tj1 And tj2 = False And tj3 Then
   
9.         表1.Form.RecordSource = "select * from 表1 where 达标率<50 OR 达标率>=80"
   
10.     End If
    
11.     If tj1 And tj2 = False And tj3 = False Then
    
12.         表1.Form.RecordSource = "select * from 表1 where 达标率<50"
    
13.     End If
    
14.     If tj1 = False And tj2 And tj3 Then
    
15.         表1.Form.RecordSource = "select * from 表1 where 达标率>=50 OR 达标率>=80"
    
16.     End If
    
17.     If tj1 = False And tj2 And tj3 = False Then
    
18.         表1.Form.RecordSource = "select * from 表1 where 达标率>=50 and 达标率<80"
    
19.     End If
    
20.     If tj1 = False And tj2 = False And tj3 Then
    
21.         表1.Form.RecordSource = "select * from 表1 where 达标率>=80"
    
22.     End If
    
23.     If tj1 = False And tj2 = False And tj3 = False Then
    
24.         表1.Form.RecordSource = "select * from 表1"
    
25.     End If
    
26.     表1.Form.Requery
    
27. End Sub

复制代码

3、在窗体加载事件中添加代码如下：

1. Private Sub Form_Load()
   
2.     DoCmd.Restore
   
3. End Sub

复制代码

4、保存、调试运行，筛选效果如下动画所示：

lrlxxqxa

注意复选框控件的默认值要设置为0，否则初次打开窗体时，由于三个复选框控件的值可能为空值而造成查询不正确。

第一段代码虽然实现了目的，但应该还有更好的方法。有好代码欢迎跟帖

[ 本帖最后由 lrlxxqxa 于 2010-7-1 19:11 编辑 ]