- 2
- 0
- 约5.4千字
- 约 37页
- 2018-10-14 发布于江苏
- 举报
宏对象提供了组数量有限
第八章 宏;;8.1 宏对象的概述;8.1.1 宏的类型;8.1.2 宏的设计窗口;;8.1.3 常用的宏操作;;;操作命令;8.1.4 宏工具栏的使用;8.1.5 将宏转换为VBA代码;8.2 宏对象的创建;【例8-1】 建立普通宏
要求:依次打开表、查询、报表、窗体,再逐个关闭,关闭每个对象之要前先显示提示信息。
操作步骤:
(1)打开“成绩管理.mdb”数据库→单击宏对象→单击“新建”按钮。
(2)第1个操作选OpenTable→“表名称”参数选:学生信息→注释写:打开“学生信息”表。参数设置如图8-4所示。
(3)第2个操作选OpenQuery→“查询名称”参数选:班平均成绩→注释写:打开“班平均成绩”查询。参数设置如图8-5所示。
;(4)第3个操作选OpenReport→“报表名称”参数选:合唱团→视图选:打印预览→注释写:打开“合唱团”报表。参数设置如图8-6所示。
(5)第4个操作选OpenForm→“窗体名称”参数选:日历→注释写:打开“日历”窗体。参数设置如图8-7所示。;(6)第5个操作选MsgBox→“消息”参数输入:关闭表吗? →“标题”参数输入:关闭表。参数设置如图8-8所示。
(7)第6个操作选Close→“对象类型”参数选:表→“对象名称”参数选:学生信息→注释写:关闭表。参数设置如图8-9所示。;(8)类似方法将其他数据库对象提示后关闭。
(9)以“普通宏”为名保存宏。宏设计窗口的设计网格区如图8-10所示。
(10)“运行”菜单→“运行”,或单击“运行”按钮,宏里的操作序列从上到下依次执行。
;【例8-2】 创建宏组
要求:将【例8-1】建立的“普通宏”改成宏组,命名为:group。
操作步骤:
(1)打开“成绩管理.mdb”→选中“普通宏”→Ctrl+C(复制)→Ctrl+V(粘贴)→将新复制的宏命名为:group。
(2)用设计视图打开group→“视图”菜单→“宏名”,窗口显示“宏名”列。
(3)“宏名”列第1行输入:a1→拖动鼠标选中关闭表的msgbox操作和close操作→将选中的操作移到OpenTable操作下方。
(4)“宏名”列第4行输入:a2→将关闭查询的msgbox操作和close操作移到OpenQuery操作下方。
(5)“宏名”列第7行输入:a3→将关闭报表的msgbox操作和close操作移到OpenReport操作下方。
(6)“宏名”列第10行输入:a4。
(7)保存宏,每个对象的打开、提示、关闭操作成为一组。如图8-11所示。
(8)“工具”菜单→“宏”→“运行宏”→在对话框中输入“group.a2” →单击“确定”按钮,运行宏组中的第2个宏,打开“班平均成绩”查询,并显示消息框提示关闭。运行结果如图8-12所示。 ; 图8-11 宏组的设计窗口 图8-12 运行宏组中的第2个宏;【例8-3】 简单条件的条件宏
要求:在窗体中建立1个复选框,勾选复选框后依次显示2个消息框,取消勾选也依次显示2个消息框,用条件宏完成操作,并将条件宏附加给复选框的“更新后”事件。
操作步骤:
(1)打开“成绩管理.mdb”→新建窗体win4→设置窗体的“记录选择器”、“分隔线”、“导航按钮”均不显示。
(2)在窗体中建立复选框控件→附加标签写:同意→控件名称为:f1。
(3)新建宏kk→“视图”菜单→“条件”,宏设计窗口显示“条件”列。
(4)“条件”列第1行写:[Forms]![win4]![f1] →操作选:MsgBox→消息写:你选择同意→注释写:勾选复选框。
(5)“条件”列第2行输入省略号(…)→操作选:MsgBox→消息写:请确认。
(6)“条件”列第3行写:not [Forms]![win4]![f1] →操作选MsgBox→消息写:你选择不同意→注释写:不勾选复选框。 ;(7)“条件”列第4行输入省略号(…)→操作选:MsgBox→消息写:请确认→保存宏→关闭宏。宏设计窗口如图8-13所示。
(8)窗体win4中单击复选框→“属性”窗口单击“事件”卡→“更新后”属性选:kk。
(9)转到窗体视图,勾选复选框后立即显示消息“你选择同意”,单击“确定”按钮,显示下一个消息“请确认”。消息框如图8-14所示。
(10)取消复选框的对勾,显示消息“你选择不同意”,单击“确定”按钮,显示下一个消息“请确认”。消息框如图8-15所示。; 图8-14 勾选复选框显示消息 图8-15 取消复选框对勾显示消息;【例8-
原创力文档

文档评论(0)