Office中国论坛/Access中国论坛

标题: 代码出错？ [打印本页]

作者: stefanie 时间: 2002-12-4 19:24
标题: 代码出错？
请帮我看看这段组合框的代码，总是不能应用筛选。
其中processedmark 和 bookinincome 是check box.

Private Sub Frame28_AfterUpdate()
If Frame28 = 1 Then
Me.FilterOn = False
End If
If Frame28 = 2 Then
Me.Filter = "

rocessedmark='yes'"
Me.FilterOn = True
End If
If Frame28 = 3 Then
Me.Filter = "

rocessedmark='no'"
Me.FilterOn = True
End If
If Frame28 = 4 Then
Me.Filter = "BookinIncome='yes'"
Me.FilterOn = True
End If
If Frame28 = 5 Then
Me.Filter = "BookinIncome='no'"
Me.FilterOn = True
End If
End Sub

作者: Trynew 时间: 2002-12-4 19:41
BookinIncome是逻辑型吧？
Me.Filter = "BookinIncome=False"
Me.Filter = "BookinIncome=True"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)