Public Sub ClearD(frm As Form)
  Dim ctl As Control
  For Each ctlControl In frm.Controls
     If Typeof　ctl is acTextBox Or Typeof ctl is acComboBox Then
      ctl = ""
      DoEvents
     End If
  Next
End Sub

此程序稍一修改便可达到更多的功能如锁定或解锁各栏位

Public Sub LockControls(frm As Form, blnSta As Boolean)
  Dim ctl As Control
  For Each ctl In frm.Controls
     If TypeOf ctl Is acTextBox Or TypeOf ctl Is acComboBox Then
      ctl.Enabled = blnSta
      DoEvents
     End If
  Next
End Sub

(责任编辑：admin)

• ·Access窗体居中显示技巧
• ·Access中Tab键的使用说明【技巧】
• ·Access粘贴对象到Tab选卡上的技巧
• ·Access在窗体上显示当前记录和总记录数
• ·Access隐藏组合框的小箭头
• ·Access窗体属性表
• ·【技巧】Access选项组边框变为圆角边框
• ·Access函数me.sfmsub.form 提示子窗体
• ·Access中使用缩放对话框显示文本框文字
• ·access技巧-中文显示星期几的简单方法
• ·Access控件是否可见,可编辑,锁定的技巧
• ·根据查找窗体设定的条件筛选主窗体的数
• ·父子窗体的语法介绍
• ·access实现组合框联动详细教程
• ·Web Service在Access中的应用技巧
• ·Access窗体最大化，最小化等操作