Microsoft Access 掲示板

frmMainフォームのタイマー時のイベントプロシージャを下記にように修正してください。

Private Sub Form_Timer()
    On Error GoTo ErrorHandler

    ' SyncScroll オブジェクトを初期化します。
    If ss.Ready = False Then
        If ss.SetForms(Me.subf1.Form, Me.subf2.Form) Then
            ' 初期化に失敗した場合はユーザー定義エラーを発生させます。
            Err.Raise Number:=vbObjectError + 1, _
                      Description:="サブフォームの特定に失敗しました。"
        End If
    End If

    ' 同期スクロールさせます。
    If ss.Sync(curIdx) = 0 Then
        ' 同期に失敗した場合はユーザー定義エラーを発生させます。
        Err.Raise Number:=vbObjectError + 2, _
                  Description:="サブフォームの同期に失敗しました。"
    End If

ExitProcedure:
    Exit Sub

ErrorHandler:
    ' エラー発生時
    If Err.Number = -2147221503 Then
        Me.TimerInterval = 0
    Else
        Dim s As String
        s = "以下のエラーが発生しました。@" & Err.Number & ":" _
          & Err.Description & "@タイマーイベントを停止します。"
        Me.TimerInterval = 0                     ' タイマーイベント停止
        Beep
        Call Eval("MsgBox('" & s & "', " & vbCritical & ", '" _
                & CurrentProject.Name & "')")
    End If
End Sub