首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。
admin
2019-01-09
22
问题
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。在“fEmp”窗体上单击“输出"命令按钮(名为“btnP”),弹出一个输入对话框,其提示文本为“请输入大于0的整数”。
输入1时,相关代码关闭窗体(或程序)。
输入2时,相关代码实现预览输出报表对象“rEmp”。
输入>=3时,相关代码调用宏对象“mEmp”以打开数据表“tEmp”。
注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
选项
答案
【操作步骤】 步骤:右键单击“输出”命令按钮,在弹出的快捷菜单中选择“事件生成器”命令,弹出代码编辑界面,在空行内相应位置输入以下代码: ’*****Add1***** k=InputBox("请输入大于0的整数","Msg") ’*****Add1***** ’*****Add2***** DoCmd.OpenReport"rEmp",acViewPreview ’*****Add2***** 代码编辑窗口中输入代码位置如图4—283所示,关闭代码编辑窗口界面,按Ctrl+S保存修改,关闭设计视图。 [*] 补充:①双击左侧导航窗口中的窗体“fEmp”,弹出如图4—284所示的“职工信息输出”窗口界面,其中包括一个命令按钮“输出”。 [*] ②单击“输出”命令按钮,弹出“Msg”提示框,如图4—285所示,上面含有提示信息“请输入大于0的整数”。另有一个文本输入框,以及“确定”和“取消”两个命令按钮。 [*] ③在文本框中输入1,则窗体被关闭;输入2,则弹出报表对象“rEmp”预览窗口;输入3及大于3的数值,则打开数据表“tEmp”。 以上补充内容不写入操作步骤,只是为了演示前面的操作结果。
解析
转载请注明原文地址:https://kaotiyun.com/show/hiMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
Access窗体中的文本框控件类型不包括()。
数据库管理技术的发展经过人工管理阶段、__________________和数据库阶段。
若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为TEXT1的文本框,且文本框的内容为空,然后编写如下事件代码:PRIVATEFUNCTIONF(XASLONG)ASBOOLEAN
在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:Functionm(xAsInteger,yAsInteger)AsIntegerm=IIf(x>y,x,y)EndFunctionPrivateSubComm
在学生管理的关系数据库中,存取一个学生信息的数据单位是()。
关于报表数据源设置,以下说法正确的是______.
下列哪个项不属于数据库系统的组成部分______。
可以连接数据源中OLE类型的字段的是()。
随机试题
试述尊重客观规律和发挥主观能动性辩证关系的原理及其对我国社会主义现代化建设的指导意义。
营养性巨幼细胞贫血对治疗最早出现反应的是
哮病的主症是( )。
A、厚朴B、五味子C、补骨脂D、秦皮E、异紫杉脂属于新木脂素类型的是
对直方图的形状观察分析,阐述不正确的是( )。
拍卖人是指取得拍卖师资格证书的、主持拍卖活动的人。()
已知网络计划中工作M.有两项紧后工作,这两项紧后工作的最早开始时间分别为第15天和第18天,工作M的最早开始时间和最迟开始时间分别为第6天和第9天,如果工作M的持续时间为9天,则工作M(38)。
下列程序的输出结果是DimxAsIntegerPrivateSubCommand4_Click()DimyAsIntegerx=3y=10Callfun(y,x)MsgBox"y=
Whenwilltheymeet?
Boilerroomsareoftendirtyandsteamy,butthisoneispristine(干净的)andcool.FoxPointisaspankingnew47-unit【C1】_______
最新回复
(
0
)