Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"

时　间:2013-02-02 15:18:03
作　者:小英   ID：23698  城市：河池
摘　要:删除数据后定位返回至下一条数据状态的方法
正　文:

删除数据后定位返回至下一条数据状态的方法

学过平台的学员或者网友朋友,都知道在报销教程第四章学过修好后,数据返回至修改的那一条数据状态的功能,这一功能对数据表里面有成千上百的数据来说非常管用,但删除功能还没有到达这个要求,删除后,记录立马就定位到最上面了,要找当时删除的哪一条还得拖动鼠标滚轴再找一会才能找到,问能不能实现与修改类似的,即删除后数据定位到删除的下一条或者上一条.

解决方法:

用报销教程里面的删除测试,请打开你的报销教程里面员工姓名主窗体,即frmyg_child

进入该窗体代码区,找到下面一段

Public Sub btnDel()
    If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
        DoCmd.Echo False
        Call AccHelp_DeleteFldstrRow("tblCodeyg", "ygId", selectstr)
        Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
        DoCmd.Echo True
    End If
End Sub

将里面的 Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"  这一句代码注释或者删除掉,然后保存   在点击平台的删除功能

看一下是不是返回到被删除记录的下一条了.

 

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店