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

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:24:45
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

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

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

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

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