＃关于窗体的返回功能＃

eio

有一窗体，在浏览记录时，需要增加记录，但增加以后希望按一个按钮返回刚才的记录，请教高手如何处理？

WTM1

' 移到上一条记录
Public Function rPrev()
    On Error GoTo Err_Prev
   DoCmd.GoToRecord , , acPrevious
Exit_Prev:
   Exit Function
Err_Prev:
    MsgBox Err.Description
    Resume Exit_Prev
End Function

eio

怎样使用？

WTM1

用按钮控件就可以生成！选转到前一项纪录！这样就可以自动生成了！
还有代码都差不多，我的代码需要修改！

eio

不能啊，只能返回上一记录，不是刚才的记录：例如有1000条记录，正在查看第10条，然后点击添加增加1条（或者3条），希望按返回就可以回到第10条（如果添加3次就点击3次返回），总之类似【IE】的后退功能啦……

Trynew

在成为当前事件中用一个数组纪录当前纪录的Bookmark

eio

请Trynew明示……

Trynew

文件下载
代码:
Option Compare Database
Option Explicit

Dim newBookmark As Variant, prvBookmark As Variant

Private Sub Command10_Click()
    On Error Resume Next
    Me.Bookmark = prvBookmark
End Sub

Private Sub Form_Current()
    On Error Resume Next
    prvBookmark = newBookmark
    newBookmark = Me.Bookmark
End Sub

eio

多谢您啊……

eio

问题是没有【IE】的后退完善，来来去去都是两个位置啊，就像这样：
Private Sub 返回_Click()
  On Error Resume Next
    Me.Bookmark = prvBookmark
    If 返回.Caption = "后退" Then
        返回.Caption = "前进"
        Else
        返回.Caption = "后退"
        End If
End Sub
Option Compare Database
Option Explicit

Dim newBookmark As Variant, prvBookmark As Variant


Private Sub Form_Current()
    On Error Resume Next
    prvBookmark = newBookmark
    newBookmark = Me.Bookmark
End Sub



[em25][em25][em25][em16][em16][em16][em16][em16][em16][em16][em16]

[此贴子已经被作者于2003-1-9 15:45:20编辑过]