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

admin2019-01-09  27

问题 在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
根据以下窗体功能要求,对已给的命令按钳事件过程进行补充和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“blnP”),弹出一个输入对话框,其提示文本为“请输入大于0的整数值”。
.输入1时,相火代码关闭窗体(或程序)。
.输入2时,相关代码实现预览输出报表对象“rEmp”。
.输入≥3时,棚父代码渊用宏对象“mEmp”,以打开数据表“tEmp”。
注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字

选项

答案[操作步骤] 步骤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 如图3.282所示。 [*] 步骤2:关闭界面,按Ctrl+S保存修改,关闭设计视图。

解析
转载请注明原文地址:https://jikaoti.com/ti/X310FFFM
0

最新回复(0)