记录删除后记录指针停在原位或上下

时　间:2012-09-23 22:57:06
作　者:沈军   ID：2469  城市：东莞
摘　要:记录删除后记录指针停在原位或上下记录
正　文:

点击下载此附件

Private Sub Command4_Click()
'删除子窗体记录
    If MsgBox("确定要删除 " & Forms!窗体1!子窗体!姓名 & " 记录吗？", 36, "删除") = 6 Then
        Dim sjBL1 As Long
        sjBL1 = Me.子窗体.Form.SelTop       '将原记录指针值赋给变量
        DoCmd.RunSQL "Delete 用户.* FROM 用户 Where 用户.ID=forms!窗体1!子窗体!ID"  '执行删除查询
       
        'Me.子窗体.Requery                  '本次刷新记录指针没有移动，所以不要运行
        Me.子窗体.SourceObject = "子窗体"   '重新载入子窗体 记录指针移动到第一位
        Me.子窗体.Form.SelTop = sjBL1       '记录指针回到原来位置
        'Me.子窗体.Form.SelTop = sjBL1 - 1     '记录指针回到原来位置的上一条记录
        'Me.子窗体.Form.SelTop = sjBL1 + 1     '记录指针回到原来位置的下一条记录
       
    End If
End Sub

Private Sub Text1_AfterUpdate()
    '定位子窗体记录
    If Not IsNull(Text1) Then Me.子窗体.Form.SelTop = Text1

End Sub