フォームで、レコードを第「1」レコードで固定させる為に

Private Sub Form_Current()

'レコードを第「1」レコードで固定させる為に

'レコードをジョグダイアル等で移動しようとすると

'前のレコードに移動（戻す）ようにします。

'先頭、最後尾のレコードでこれを操作すると、エラー番号2105が発生します。

'この場合は､エラーを無視します｡

On Error GoTo エラー

DoCmd.GoToRecord , , acPrevious

Exit Sub

エラー:

  'エラー番号2105であればエラーを無視します。

  If Err.Number = 2105 Then

  Resume Next

  Else

  MsgBox Err.Number & vbNewLine & _

  Err.Description & vbNewLine & _

  "予期せぬエラーが発生しました。"

  End

  End If

End Sub