变速箱教程的整机库存月结部分,由于 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、完成。