在考生文件夹下有一个数据库文件“samp3.accdb”，里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句，完成设计，不允许增删和修改其他位置已存在的语句。
根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”)，弹出一个输入对话框，其提示文本为“请输入大于0的整数值”。
·输入1时，相关代码关闭窗体(或程序)。
·输入2时，相关代码实现预览输出报表对象“rEmp”。
·输入≥3时，相关代码调用宏对象“mEmp”，以打开数据表“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"
Case 2
*****Add2*****
DoCmd.OpenReport"mEmp"
*****Add2*****
Case 1
DoCmd.Close
End Select
End Sub
如图所示：
步骤2：关闭界面，按Ctrl+S保存修改，关闭设计视图。
解析：
[考点] 本题考点：表中字段属性的有效性规则和有效性文本的设置；窗体命令按钮和报表文本框控件属性的设置等。
第1小题在表设计视图中设置字段属性；第2、3小题分别在窗体和报表设计视图单击控件名，从弹出的快捷菜单中选择“属性”命令，设置属性；第4小题直接用右键单击控件，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，输入代码。
设置代码时，要选择正确的函数。