Option Compare Database
Option Explicit
Private bMark As String
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then
If Me.CurrentRecord <> 1 Then
bMark = Me.Recordset.Bookmark
Me.TimerInterval = 100
End If
End If
End Sub
Private Sub Form_Timer()
Me.Bookmark = bMark
bMark = vbNullString
Me.TimerInterval = 0
End Sub