access上面的菜单栏里的按钮是不是不能编代码的呀？

pg830616

access上面的菜单栏里的按钮是不是不能编代码的呀？

海狸先生

可以用　docmd.runcommand　来执行内置的菜单命令

pg830616

那如果我想执行昨天那个窗体上的CLICK按钮能办到吗？大哥

海狸先生

哪一个？你自己建立的按钮？

pg830616

就是昨天上传的文件里的教师工作量那个按钮，就是那个我编了好多代码的按钮

海狸先生

执行这个按钮？不就是执行里面的代码吗？你的意思我不是很明白

pg830616

是呀，是这个意思，也就是执行Private Sub 教师工作量_Click()

    Dim strFormName As String

    Dim qryTest1 As QueryDef, gshi1 As String

    Dim qryTest2 As QueryDef, gshi2 As String

    Dim qryTest3 As QueryDef, gshi3 As String

    Set qryTest1 = CurrentDb.QueryDefs("毕业设计工作量 查询")

gshi1 = DLookup("[公式]", "公式", "[公式ID] = 1")

qryTest1.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi1 & " AS 毕业设计工作量 FROM ([毕业设计人数 查询] INNER JOIN 学期信息 ON [毕业设计人数 查询].学期ID = 学期信息.学期ID) INNER JOIN 教师信息 ON [毕业设计人数 查询].教师ID = 教师信息.教师ID GROUP BY 教师信息.教师, 学期信息.学期, [毕业设计人数 查询].教师ID, [毕业设计人数 查询].学期ID;"

qryTest1.Close

    Set qryTest2 = CurrentDb.QueryDefs("教师各学期上课工作量合计 查询")

gshi2 = DLookup("[公式]", "公式", "[公式ID] = 2")

qryTest2.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi2 & " AS 上课工作量 FROM 学期信息 INNER JOIN (教师信息 INNER JOIN (上课信息 INNER JOIN [上课总人数 查询] ON 上课信息.上课ID = [上课总人数 查询].上课ID) ON 教师信息.教师ID = 上课信息.教师ID) ON 学期信息.学期ID = 上课信息.学期ID GROUP BY 教师信息.教师, 学期信息.学期;"

qryTest2.Close

    Set qryTest3 = CurrentDb.QueryDefs("教育实习工作量 查询")

gshi3 = DLookup("[公式]", "公式", "[公式ID] = 3")

qryTest3.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi3 & " AS 教育实习工作量 FROM ([教育实习人数 查询] INNER JOIN 学期信息 ON [教育实习人数 查询].学期ID = 学期信息.学期ID) INNER JOIN 教师信息 ON [教育实习人数 查询].教师ID = 教师信息.教师ID GROUP BY 教师信息.教师, 学期信息.学期, [教育实习人数 查询].教师ID, [教育实习人数 查询].学期ID;"

qryTest3.Close

    strFormName = "教师总工作量学期筛选 查询"

    DoCmd.OpenForm strFormName

End Sub这一大串代码

海狸先生

我不懂，你既然建了这一个按钮？为什么还要通过别的命令来执行这个按钮呢？

pg830616

呵呵可能是有点多此一举，也是多研究一下而已因为看到那些系统都是没有按钮，打开只有菜单栏或者工具栏的，看上去效果蛮不错的现在比较为难呵呵

海狸先生

那建议你学习一下toolbar这个控件,帮助在msdn6中