三、综合应用 在文件夹下存在一个数据库文件“KSAaccdb”,里面已经设计好表对象“tEmployee和宏对象“m1”,同时还设计出以“tEmployee”为数据源的窗体对象“fEmployee”。按要求补充完成窗体设计。 注意,不允许修改报表对象中未涉及的控件和属性。 1.在窗体的窗体页眉节区位置添加一个标签控件,其名称为“bTitle”,初始化标题显示为“雇员基本信息”,字体名称为“黑体”,字号大小为18. 2.将命令按钮bList的标题设置为“显示雇员情况”,单击命令按钮bList,要求运行宏对象m1(要求在VBA中通过事件代码调用宏)。 3.取消窗体的水平滚动条和垂直滚动条;窗体数据只允许读,不允许添加、删除、修改。 4.创建“Close宏”,功能为关闭“fEmployee”窗体。 5.在窗体页脚节距左边10厘米,上边0.1厘米处添加一个高度为1厘米宽度为2.4厘米的按钮 Command20,按钮标题显示为“关闭窗体”。当单击该按钮时,能够运行宏对象“Close宏”(要求通过事件引用宏对象)。 6.在名称为“出生日期”的文本框内单击鼠标,如果是1970年以前出生的学生,能够弹出样张所示提示框,在提示框内显示该雇员的年龄。
时间: 2024-03-20 13:44:12 浏览: 22
抱歉,作为一个语言模型,我没有办法直接为您提供具体的窗体设计和VBA代码。不过,我可以为您提供一些参考资料和思路。
1. 在窗体设计中添加标签控件“bTitle”,并设置其属性:名称为“bTitle”,标题为“雇员基本信息”,字体名称为“黑体”,字号大小为18。可以通过“属性表”窗口或者直接在设计视图中右键单击控件进行设置。
2. 将命令按钮“bList”的标题设置为“显示雇员情况”,并在按钮的“单击”事件中添加以下VBA代码调用宏对象“m1”:
```
Private Sub bList_Click()
DoCmd.RunMacro "m1"
End Sub
```
3. 取消窗体的水平滚动条和垂直滚动条,可以在窗体的“属性表”窗口中找到“滚动条”属性,将其设置为“无”;窗体数据只允许读,不允许添加、删除、修改,可以在窗体的“属性表”窗口中找到“数据录入”属性,将其设置为“仅读”。
4. 创建“Close宏”,功能为关闭“fEmployee”窗体。可以在宏设计视图中创建宏对象“Close宏”,并添加以下操作:
```
DoCmd.Close acForm, "fEmployee"
```
5. 在窗体页脚节距左边10厘米,上边0.1厘米处添加一个高度为1厘米宽度为2.4厘米的按钮“Command20”,按钮标题显示为“关闭窗体”。在按钮的“单击”事件中添加以下VBA代码调用“Close宏”:
```
Private Sub Command20_Click()
DoCmd.RunMacro "Close宏"
End Sub
```
6. 在名称为“出生日期”的文本框内单击鼠标,可以在文本框的“单击”事件中添加以下VBA代码实现:
```
Private Sub 出生日期_Click()
Dim birthYear As Integer
Dim age As Integer
birthYear = Year(Me.出生日期.Value)
If birthYear < 1970 Then
age = Year(Date) - birthYear
MsgBox "该雇员的年龄为:" & age & "岁。"
End If
End Sub
```
以上仅为一些简单的参考,具体的窗体设计和VBA代码需要结合具体的需求和数据结构进行设计和编写。
相关推荐
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)