locked
アクセスの帳票形式にて10件づつ表示させたい。 RRS feed

  • 質問

  • アクセスの帳票形式でテーブルの内容を10件づつ表示させたいのですが下記のソースにて実施した場合「コマンド13」は問題なく動いたのですが

    「コマンド16」の方は、先頭のページに移動すると最初のレコードを表示せず2件目から10件表示し、「エラー2105」が出ます。

    下記の特に「コマンド16」のソースのどこに問題があるのでしょうか

    ご教授頂きますようお願い致します。

    Const n = 10

    '「次へ」
    Private Sub コマンド13_Click()
    Dim p As
    Long

    On Error Resume Next

    DoCmd.GoToRecord , , acNext, n * 2
    If
    Err = 2105 Then
    p = Me.CurrentRecord
    DoCmd.GoToRecord , ,
    acLast
    DoCmd.GoToRecord , , acGoto, p + n
    Else
    DoCmd.GoToRecord , , acPrevious, n
    End If

    End Sub

    '「前へ」
    Private Sub

    コマンド16_Click()

    DoCmd.GoToRecord , , acPrevious, n * 2
    If Err = 2105
    Then
    p = Me.CurrentRecord
    DoCmd.GoToRecord , , acFirst
    DoCmd.GoToRecord
    , , acGoto, p - n
    Else
    DoCmd.GoToRecord , , acNext, n
    End If

    End
    Sub

    2012年10月20日 3:34