请教

[lovelu]

本人想利用变量设置某一菜单项的属性,如设置菜单项"编辑"的Enabled属性

dim menu_name as menu
menu_name="编辑"
Menu_Name.Enabled = False

程序运行时,报实时错误为"91",对象变量或With块变量未设置,该如何设置,请高手赐教.

[cindytsai]

UP

[daisy8675]

menu_name.enable=false直接这么写

[aiur2000]

应该没有实例话，要new1个。

[creazyfish]

报这个错一般都是因为对象没有被实例话你就引用了它。
dim menu_name as menu
改成
dim menu_name as new menu

[aiur2000]

好像不能new，如果手动建了，直接用莫依的就可以了。

[popsure]

menu_name没有实例化
dim menu_name as menu
set menu_name=me.mymenu
menu_name.caption=="编辑"
Menu_Name.Enabled = False

[Fashionxu]

你需要先知道你需要设置的菜单的名字.比如说你的编辑菜单的名字叫mnuEdit，那么你可以这样添加代码：
Private Sub Form_Click()
Dim t As Menu
Set t = Me.mnuEdit
t.Enabled = False
End Sub

以后你就可以用t来控制菜单了。

你的错误之处在于，你想直接通过caption的值来赋值，是不行的。

[lovelu]

dim menu_name as menu
Set Menu_Name = Me.Adodc1.Recordset.Fields("mc").Value

报实时错“424”，要求对象，该怎样定义，请赐教.

[Mars.CN]

menu_name是Menu型的通过menu_name.caption来改