[示例]删除记录后如何定位上一条记录

时　间:2008-11-03 09:23:22
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:原理：在鼠标单击行时，就选定了一条记录(假定为XL006)，这里记录下其上一条记录的编号(XL005),然后用Acchelp_FindStrRecord函数来定位记录。
正　文:

该示例下载在：http://www.accessoft.com/bbs/showtopic.asp?ID=531&BoardID=23　，参考　“学历代码”中的删除功能

第一步：在模块中声明全局变量：
Public g_AcchelpSelectStrID_Del As String '删除记录后 记下需要定位的ID
Public IsDelete As Boolean

第二步：在Public Sub btnDel()　子程序中,增加得出下一条记录的代码：

 　　'得出上一条记录的编号
        g_AcchelpSelectStrID_Del = "XL" & Format(Val(Mid(g_AcchelpSelectStrID, 3)) - 1, "000")
        '设置是因为删除而定位的条件
        IsDelete = True

第三步：在　Private Sub Form_Timer()　计时器子程序中增加代码：

'-------------------------------------
    '如果是删除,数据刷新后就定位到上一条记录
    If IsDelete = True Then
        Acchelp_FindStrRecord (g_AcchelpSelectStrID_Del)
        IsDelete = False
    Else
        '如果是修改,数据刷新后就定位到所修改的记录
        Acchelp_FindStrRecord (g_AcchelpCurrentNumID)
    End If

第四步：在　Private Sub xlid_GotFocus()　子程序中增加代码：
    '----------开始----------------------------------
    '1秒钟后启动计时器,以定位到删除编号的上一条记录
    If IsDelete = True Then
        Me.TimerInterval = 1000
    End If
    '-----------结束---------------------------------