2. 计算机
  3. 在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善

在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善

admin2019-01-09  30
问题 在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”)，弹出一个输入对话框，其提示文本为“请输入大于0的整数值”。
．输入1时，相关代码关闭窗体(或程序)。
．输入2时，相关代码实现预览输出报表对象“rEmp”。
．输入≥3时，相关代码调用宏对象“mEmp”，以打开数据表“tEmp”。
注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句，完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，单击“确定”按钮，进入编程环境，在空行内输入以下代码： Private Sub btnP_Click() Dim k As String ’*****Add1***** k=InputBox("请输入大于0的整数"，"Msg") ’*****Add1***** If k=" "Then Exit Sub Select Case Val(k) Case Is＞=3 DoCmd．RunMacro"mEmp" Case2 ’*****Add2***** DoCmd．OpenReport"mEmp" ’*****Add2***** Case1 DoCmd．Close End Select End Sub 如图4．282所示。 [*] 步骤2：关闭界面，按ctrl+S保存修改，关闭设计视图。
解析
转载请注明原文地址:https://kaotiyun.com/show/olMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)