变速箱教程 整机库存月结修改后不能返回定位记录的处理方法

时　间:2013-01-06 00:00:00
作　者:李永华   ID：18281  城市：张家口
摘　要:本文结合《Acces开发平台--数值型变量在修改与删除功能中的使用方法\数字型变量用法，access运行时错误'2001'：您取消了前次的操作。解决方法》、《Access运行时错误'3464'：标准表达式中数据类型不匹配。的解决方法》及《报销教程》第九章平台函数acchelp_findnumrecord所讲知识，解决了当表中字段为数值型时修改后不能返回定位记录的问题。
正　文:

    变速箱教程的整机库存月结部分，由于 tblZjkcyj 表的 ID 字段为自动编号，按照报销教程讲述的方法其修改后返回定位记录的功能不能实现。我结合本站老师推荐的两篇文章及《报销教程》第九章”平台函数“介绍的方法解决了这个问题。方法如下：

1、在模块中定义公共变量 NumSelectID 为长整型

    Public NumSelectID As Long

2、在模块中定义公共变量 numID 为长整型

    Public numID As Long

3、在 frmZjkcyj_child 窗体的 ” 序号“ 获得焦点事件中写入

    NumSelectID=me.序号

4、在 frmZjkcyj_child 窗体的 "成为当前" 事件中输入：=selectrecord()

5、在 frmZjkcyj_child_Edit 窗体的加载事件中写入

    numID=NumSelect

6、在 frmZjkcyj_child_Edit 窗体的保存按钮单击事件中，如报销教程一样写入：

    forms!usysfrmmain!frmchild.form.timerinterval=300

7、在 frmZjkcyj_child 窗体的”计时器触发“事件中写入如下代码：

    Me.序号.SetFocus    '这句最关键，否则焦点会停留在任何一个与”序号“相同数值的数据上
    acchelp_findnumrecord (numID)
    Me.TimerInterval = 0

8、完成。