请教

Question

本人想利用变量设置某一菜单项的属性,如设置菜单项"编辑"的Enabled属性dim menu_name as menu
menu_name="编辑"
Menu_Name.Enabled = False程序运行时,报实时错误为"91",对象变量或With块变量未设置,该如何设置,请高手赐教.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

你需要先知道你需要设置的菜单的名字.比如说你的编辑菜单的名字叫mnuEdit，那么你可以这样添加代码：
Private Sub Form_Click()
    Dim t As Menu
    Set t = Me.mnuEdit
    t.Enabled = False
End Sub以后你就可以用t来控制菜单了。你的错误之处在于，你想直接通过caption的值来赋值，是不行的。

Answer 5

dim menu_name as menu
Set Menu_Name = Me.Adodc1.Recordset.Fields("mc").Value报实时错“424”，要求对象，该怎样定义，请赐教.

Answer 6

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