用代码清除组合框所有项

时　间:2007-10-27 12:01:14
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:用代码清除组合框所有项
正　文:

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


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店