VB代码错误，说是实时错误424，要求对象

2024-11-21 18:51:44

推荐回答（4个）

回答（1）：

Public Sub initialcmd()
If Data1.Recordset.RecordCount = 0 Then
空间所在窗体名.cmd_find.enable = False
空间所在窗体名.cmd_add.enable = True
空间所在窗体名.cmd_delete.enable = False
空间所在窗体名.cmd_update.enable = False
空间所在窗体名.cmd_cancel.enable = False
空间所在窗体名.cmd_save.enable = False
空间所在窗体名.cmd_exit.enable = False
Else
空间所在窗体名.cmd_find.enable = True（这句有误）
空间所在窗体名.cmd_add.enable = True
空间所在窗体名.cmd_delete.enable = True
空间所在窗体名.cmd_update.enable = True
空间所在窗体名.cmd_cancel.enable = False
空间所在窗体名.cmd_save.enable = False
空间所在窗体名.cmd_exit.enable = True
End If
End Sub

回答（2）：

从你的代码看，你这段代码应该是放在模块中了。这样的话，当你设置对象的属性时必须引用位置。
如：cmd_find.enable=true应该改为
form1.cmd_find.enable=true

回答（3）：

去掉Public在窗口中调用
或
Form1.cmd_find.enabled=ture
Form1为窗体名
enable后有d

回答（4）：

说明没这个对象呗。看看有没有这个控件。