05AccessVBA基础知识_更新后事件

这是关于Access的关于VBA的基础上一篇04AccessVBA基础知识_单击事件下一篇06AccessVBA基础知识_Public语句附件无法上传

Access VBA基础知识 更新后事件

判断生产入库日期

作者: 张志 微软最有价值专家 (Most Valuable Professional) QQ: 56217686 时间: 2010/4/23

来源: 上海盟威软件有限公司(http://doc.guandang.net)。公司拥有以微软最有价值专家为核心的技术团队，专业从事Aaccess开发培训，学员可非脱产方式参加培训，自由安排学习时间，并通过网络获得公司的技术支持，几年来已为全国各地大中型企事业单位培养了众多“精管理、懂编程”的复合型人才，详情了解: http://doc.guandang.net/training.asp。

一、摘要:

在制造型企业，产品的入库日期肯定在生产日期之后，即生产日期<入库日期。如果发生入库日期在生产日期之前的情况，我们需要提醒操作员重新录入。在这里我们通过下面的示例来学习一下更新后事件。VBA入门知识技术文档，本文适于刚刚学习ACCESS VBA的人员。

二、正文：

更新后事件在控件中的数据被改变或记录被更新之后发生。

打开“3.2.2判断生产入库日期.mdb”文件，进入窗体frmTest的设计界面，如图3.60所示。

这是关于Access的关于VBA的基础上一篇04AccessVBA基础知识_单击事件下一篇06AccessVBA基础知识_Public语句附件无法上传

图3.60 窗体frmTest设计界面

用鼠标左键双击计划生产日期文本框，出现该文本框的属性，名称为：txtPlanSC，这个txtPlanSC就是该文本框的名称，在VBA代码中，计算机识别的是“txtPlanSC”而不是“计划生产日期”。如图3.61所示。

图3.61 计划生产日期文本框的属性

用鼠标左键双击计划入库日期文本框，出现该文本框的属性，名称为：txtPlanRK，如图3.62所示。

这是关于Access的关于VBA的基础上一篇04AccessVBA基础知识_单击事件下一篇06AccessVBA基础知识_Public语句附件无法上传

图3.62 计划入库日期文本框的属性

在计划入库日期文本框属性，选择【事件】选项卡中的【更新后】，如图3.63所示。

这是关于Access的关于VBA的基础上一篇04AccessVBA基础知识_单击事件下一篇06AccessVBA基础知识_Public语句附件无法上传

图3.63 计划入库日期文本框的事件(1)

选择“[事件过程]”，如图3.64所示。

图3.64 计划入库日期文本框的事件(2)

单击[事件过程]右边的

按钮，就进入了窗体中的VBA代码设计画面，如图3.65所示。

图3.65 计划入库日期文本框的事件(3)

在Private Sub cmdB_Click的单击事件中，写上以下代码：

这是关于Access的关于VBA的基础上一篇04AccessVBA基础知识_单击事件下一篇06AccessVBA基础知识_Public语句附件无法上传

如图3.66所示。

图3.66 计划入库日期文本框的事件(4)

单击工具栏上的

按钮，再关闭VBA设计界面和窗体设计界面。这样，“计划入库日期”文本框

的更新后事件代码就写好了。

运行frmTest窗体，在计划生产日期中输入2009-1-10，在计划入库日期中输入2009-1-8，然后按回车键，试一下效果吧。