该示例下载在: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
'-----------结束---------------------------------