[已解决] 删除子窗体记录后光标怎样回到上一条记录??

jicheng

怎样使删除后光标转到上一条记录,    即删除第10条记录,然后光标转到第9条??

[ 本帖最后由 cuxun 于 2008-3-26 21:36 编辑 ]

jicheng

获取记录号:
    Dim rst
    Dim lngNumRecords As Long
    Dim lngCurrentRecord As Long
    Dim strTmp As String

    Set rst = Me.RecordsetClone     'sdf = Me.收款2z.Form.RecordsetClone.RecordCount
    rst.MoveLast
    rst.Bookmark = Forms![表号设置]![分表号查询 子窗体].Form.Bookmark
    lngNumRecords = Forms![表号设置]![分表号查询 子窗体].Form.RecordsetClone.RecordCount
    lngCurrentRecord = rst.AbsolutePosition + 1
  '  MsgBox ">>总" & lngNumRecords & "条的第" & lngCurrentRecord & "条"

'就是不知道怎样定位到上一条记录号?用 下面命令也不行
DoCmd.GoToRecord acDataForm, "Forms![表号设置]![分表号查询 子窗体]", acGoTo, lngCurrentRecord-1

[ 本帖最后由 jicheng 于 2008-3-26 11:05 编辑 ]

kangking

应该没有这么复杂,记录删除后指针就定位到下一条记录,你只要再move一下就可以的.(这只是设想)

jicheng

就是不知道怎样移动到某条记录上

jicheng

[:50] [:50] [:50]

leijiqiang

学习学习

kongtou

不用sql语句，如何在窗体上用按钮删除光标所在行记录，我用按钮向导做了删除功能，删除的不是光标所在行，删掉了第一行。