|
点击下载此附件
Author: 大石
Date: 2009-12-1
Subject: 《单击 Add 按钮后，除 Save 按钮以外，其他命令按钮全变为不可用》
KeyWords: VBA, Enabled, ControlType etc.
Text:
单击 Add 按钮前
单击 Add 按钮后
代码如下,
Option Compare Database
Option Explicit
Private Sub SubAddSave(frmAny As Form, ctlAny As Control)
Dim ctl As Control
ctlAny.Enabled = True
ctlAny.SetFocus
For Each ctl In frmAny.Controls
If ctl.ControlType = acCommandButton Then
If ctl.Name <> ctlAny.Name Then
ctl.Enabled = False
End If
End If
Next ctl
End Sub
Private Sub cmdAdd_Click()
Call SubAddSave(Me, Me.cmdSave)
End Sub
大家看看就行了，很简单的一段代码，实现小小的一个功能。
|
