大家进来给看看!!!!!!!

Question

条件不满足，所以执行ELSE后面的，这里需要一个按钮，把它的NAME属性改成Cmd_Find,并且要执行这个代码，需要把窗体的NAME属性改为Form

Answer 1

看看有没有Cmd_Find这个对象，上一段没有错误，是因为没有执行。

Answer 2

Cmd_Find那当然有了.我试过了,如果把上一段出错,它也提示的.
原来的程序我没加 FORM. 就一直提示错.找出这个毛病,我用了两天.
但为什么ELSE以前的没有错误呢?它要求什么对象????

Answer 3

你这段代码放在什么地方了？
Public Sub InitialCmd()如果在Form_Load之前，就无法正常运行，因为Cmd_Find对象还没有正常加载

Answer 4

VB 和　VC　不一样VC 是全部编译完了才执行，VB　是一边编译一边执行，你　IF　的条件没有满足，没有编译到它下面的代码，所以没有发现错误，而是编译到　ELSE　后面的代码，所以只报后面的错。
你要么是缺少　FORM　对象，要么是缺少Cmd_Find对象，后面可能还少了其它对象。
另外，“原来的程序我没加 FORM. 就一直提示错.找出这个毛病,我用了两天.”寒...

Answer 5

好象有些对头了.怎么加载FORM_LOAD????
我都要疯了,这段程序还是照书抄的.可是编译一段错一段.我都快没信心了.!!!

Answer 6

在Form_Load中添加
Call InitialCmd
就可以了

Answer 7

我加了，还是不行。我们还抛开细节吧。我就是要初始化FORM的命令按键。
用你们的思路给我解决一下。我加了下面一段在最前面也不行。
Private Sub Form_Load()
Call InitialCmd
End Sub

Answer 8

等一下，你的FORM的名称就是FORM吗

Answer 9

好象缺的对象是FORM吧
Cmd_Find.Enabled = False  应该就可以了 FORM可以省略，是它自己嘛

Answer 10

如果要是把FORM去掉，就提示“未找到方法或数据成员”。
如果加上 FORM1 也是提示“未找到方法或数据成员”。
加上了 FORM 后，ELSE 之后的又提示“要求对象”。唉。我等，我等，一定要弄明白。
窗体是叫 FORM1 ，可加不加它都不行。
快，，，，谁帮我。别说要分，要钱都行呀。

Answer 11

我们还抛开细节吧。我就是要初始化FORM的命令按键。
用你们的思路给我解决一下。

Answer 12

你的窗口的名字不能叫form，换一个名字，不知你在哪里抄的破代码

Answer 13

窗口是叫FORM1的,可上加不加上它都提示有错.
代码是在一本书上抄的.我一个字都没改.

Answer 14

是不是那个按钮的visible设为了FALSE；对按钮进行这样的操作时必须是可见的。

Answer 15

visible 属性是 true.快呀.大家来看看呀.这是怎么了?????就是一个按丑初始化.怎么这么难呢????????????

Answer 16

Cooly(准备失业的苦力）说得对，你为什么不在form_load中执行这段代码

Answer 17

我在form_load中也试了.不行.
真是让人高兴!!!!!!!!!!!!!!!!!!!
改成FORM1_LOAD就可以了.虽然没有提示错误,可是,可是,可但是.....按键没有被初始化.

Answer 18

Public Sub InitialCmd()load form
  If Data1.Recordset.RecordCount = 0 Then
    Form.Cmd_Find.Enabled = False
    Form.Cmd_Add.Enabled = True
    Form.Cmd_Delete.Enabled = False
    Form.Cmd_Update.Enabled = False
    Form.Cmd_Exit.Enabled = False
    Form.Cmd_Save.Enabled = False
    Form.Cmd_Cancel.Enabled = True
  Else
    Form.Cmd_Find.Enabled = False  <------------实时错误,要求对象
    Form.Cmd_Add.Enabled = True
    Form.Cmd_Delete.Enabled = False
    Form.Cmd_Update.Enabled = False
    Form.Cmd_Exit.Enabled = False
    Form.Cmd_Save.Enabled = False
    Form.Cmd_Cancel.Enabled = True  End If
End Sub

Answer 19

呵呵，我看了上面代码，问题似乎不在form cmd上，是不是在data1上啊。
要知道，不管怎么执行，系统都会检测所有代码的，你的问题好象是在数据库上。
当然，个人意见了。

Answer 20

是不是你的form上根本就没有这几个commandbutton啊

Answer 21

DATA1一定没问题,不用按钮的话,可以显示数据库.
FORM1上有这几个按钮.显示没问题,就是不能初始化.

Answer 22

把初始化代码放到from_activate()事件中……
Private Sub Form_Activate()
 Command1.Enabled = False
 
End Sub