Office中国论坛/Access中国论坛

标题: [求助]如何解决这个问题? [打印本页]

作者: kecheng 时间: 2005-9-21 17:57
标题: [求助]如何解决这个问题?
上面是一些查询条件,下面是查询结果,当我点击清除按钮时,提示如图!代码如下:

Private Sub cmd清除_Click()

On Error GoTo Err_cmd清除_Click

'这里将使用FOR EACH CONTROL的方法来清除控件的值

'这在控件比较多的时候非常有用。

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim ctl As Control

For Each ctl In Me.Controls

      '根据ctl的控件类型来选择

      Select Case ctl.ControlType

         Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)

            If ctl.Locked = False Then ctl.Value = Null

         Case acComboBox '是组合框，也要清空

            ctl.Value = Null

         '其它类型的控件不处理

      End Select

Next

'取消子窗体的筛选

Me.按条件查阅人员信息子窗体.Form.Filter = ""

Me.按条件查阅人员信息子窗体.Form.FilterOn = False

'在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()

Call CheckSubformCount

Exit_cmd清除_Click:

Exit Sub

Err_cmd清除_Click:

MsgBox Err.Description

Resume Exit_cmd清除_Click

End Sub

Private Sub CheckSubformCount()

'这是一个自编子程序，专门用来检查子窗体上的记录数，

'以便修改主窗体上的“计数”和“合计”的控件来源，

'以防止出现“#错误”。

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

If Me.按条件查阅人员信息子窗体.Form.Recordset.RecordCount > 0 Then

      '子窗体的记录数>0

      Me.计数.ControlSource = "=[按条件查阅人员信息子窗体].Form.txt计数"

Else

      '子窗体的记录数=0

      Me.计数.ControlSource = "=0"

End If

End Sub

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