设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 1484|回复: 12
打印 上一主题 下一主题

[其它] access上面的菜单栏里的按钮是不是不能编代码的呀?

[复制链接]
跳转到指定楼层
1#
发表于 2005-5-21 17:53:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
access上面的菜单栏里的按钮是不是不能编代码的呀?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-5-21 19:12:00 | 只看该作者
可以用 docmd.runcommand 来执行内置的菜单命令
3#
 楼主| 发表于 2005-5-21 19:42:00 | 只看该作者
那如果我想执行昨天那个窗体上的CLICK按钮能办到吗?大哥
4#
发表于 2005-5-21 19:46:00 | 只看该作者
哪一个?你自己建立的按钮?
5#
 楼主| 发表于 2005-5-21 19:48:00 | 只看该作者
就是昨天上传的文件里的教师工作量那个按钮,就是那个我编了好多代码的按钮
6#
发表于 2005-5-21 19:55:00 | 只看该作者
执行这个按钮?不就是执行里面的代码吗?你的意思我不是很明白
7#
 楼主| 发表于 2005-5-21 19:58:00 | 只看该作者
是呀,是这个意思,也就是执行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这一大串代码
8#
发表于 2005-5-21 20:05:00 | 只看该作者
我不懂,你既然建了这一个按钮?为什么还要通过别的命令来执行这个按钮呢?
9#
 楼主| 发表于 2005-5-21 20:07:00 | 只看该作者
呵呵可能是有点多此一举,也是多研究一下而已因为看到那些系统都是没有按钮,打开只有菜单栏或者工具栏的,看上去效果蛮不错的现在比较为难呵呵
10#
发表于 2005-5-21 20:09:00 | 只看该作者
那建议你学习一下toolbar这个控件,帮助在msdn6中
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 09:09 , Processed in 0.099056 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表