Command如何禁用？

olderdream2007@ · 发表于 2014-6-21 21:07:08

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

koutx · 发表于 2014-6-21 22:00:05

在Me.Command0.Enabled = False之前先把焦点转移到其他按钮上试试

olderdream2007@ · 发表于 2014-6-21 22:08:53

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

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

无聊的疯子 · 发表于 2014-6-21 22:19:50

不知道你报的什么错，我这里测试你的文件并没有报错误

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

无聊的疯子 · 发表于 2014-6-21 22:31:32

测试的效果图，并未发现错误

olderdream2007@ · 发表于 2014-7-4 18:12:10

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

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] Command如何禁用？

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)