[求助]如何解决这个问题?

kecheng

上面是一些查询条件,下面是查询结果,当我点击清除按钮时,提示如图!代码如下:

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