Office中国论坛/Access中国论坛

标题: Command如何禁用？ [打印本页]

作者: olderdream2007@ 时间: 2014-6-21 21:07
标题: Command如何禁用？
Command如何禁用？
为了防止代码还没有运行完毕用户就再次按下按钮  想在按下按钮同后禁用按钮。
不过自己用Me.Command0.Enabled = False 老是报错，请高人看看如何处理？

Option Compare Database
Private Sub Command0_Click()
  Dim I As Long
'  Me.Command0.Enabled = False
  Me.Label3.Caption = ""
  For I = 1 To 1000
Me.Label3.Caption = "正在运行第" & I & "步骤"
DoEvents
  Next I
' Me.Command0.Enabled = True
End Sub
[attach]54123[/attach]

作者: koutx 时间: 2014-6-21 22:00
在Me.Command0.Enabled = False之前先把焦点转移到其他按钮上试试

作者: olderdream2007@ 时间: 2014-6-21 22:08

koutx 发表于 2014-6-21 22:00
在Me.Command0.Enabled = False之前先把焦点转移到其他按钮上试试

谢谢高人的指点按照所说的把焦点转移到其它按钮上就可以了。非常感谢

作者: 无聊的疯子 时间: 2014-6-21 22:19
不知道你报的什么错，我这里测试你的文件并没有报错误

最好上个错误的图片来分析

作者: 无聊的疯子 时间: 2014-6-21 22:31
测试的效果图，并未发现错误

[attach]54128[/attach]

作者: olderdream2007@ 时间: 2014-7-4 18:12

无聊的疯子发表于 2014-6-21 22:31
测试的效果图，并未发现错误

谢谢高人回帖, 我用的是2007. 是否你用其它版本?(看截图像2010---)

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