考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”,查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp”上“退出”按钮的单击事件代码,试按以下功能要求补充设计。 设置窗体对象“fEmp”上文本

admin2017-07-04  40

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”,查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp”上“退出”按钮的单击事件代码,试按以下功能要求补充设计。
设置窗体对象“fEmp”上文本框“tAge”为计算控件。要求根据“年龄”字段值依据以下计算公式计算并显示人员的出生年。
计算公式:出生年=Year(Date())-年龄或出生年=Year(NOW())-年龄

选项

答案步骤1:单击<窗体设计工具-设计>功能区的<工具>分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“*****Add1*****”行之间输入代码: Caption=bTitle.Caption 在“*****Add2****”行之间输入代码: Dim i As Integer n=0 For i=0 To 10000 If sushu(i)=True Then n=n+1 mn=i End If Next i 在“*****Add3****”行之间输入代码: DoCmd.RunMacro’’mEmp’’ 步骤2:双击“窗体”面板中的“fEmp”窗体,运行窗体文件,然后单击窗体中的“输出”按钮,输出结果。 步骤3:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/DbMp777K
0

最新回复(0)