Office中国论坛/Access中国论坛

标题: [求助]用代码清除组合框所有项 [打印本页]

作者: 阿丰 时间: 2004-2-13 21:23
标题: [求助]用代码清除组合框所有项
在VB6中组合框可用Clear方法来清除所有项，但在Access XP的VBA中没有相同的方法，该怎么办？请帮我。

作者: ququ 时间: 2004-2-13 21:31
Private Sub cmd清除_Click()
On Error GoTo Err_cmd清除_Click
'刘小军(Alex) 2003-5-22
'这里将使用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

Exit_cmd清除_Click:
Exit Sub

Err_cmd清除_Click:
MsgBox Err.Description
Resume Exit_cmd清除_Click

End Sub

[此贴子已经被作者于2004-2-13 13:41:28编辑过]

作者: 阿丰 时间: 2004-2-13 21:38
太感谢了！困扰了两天的问题终于解决了。

作者: 阿丰 时间: 2004-2-13 21:47
还有一点问题也请帮忙。用AddItem方法来增加项目，增加前先把已有的数据全部清除，该如何操作？用上述方法只能增加项目，不能清除，项目会越来越多。

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