リスト８：次のレコードへ移動（>） Private Sub cmdMoveNext_Click() On Error GoTo MoveNextErr 　If datAddress.Recordset.EOF = True Then 　　datAddress.Recordset.MoveLast 　Else 　　datAddress.Recordset.MoveNext 　　If datAddress.Recordset.EOF = True Then 　　　datAddress.Recordset.MoveLast 　　End If 　End If 　Exit Sub MoveNextErr: 　DbErrorMsg End Sub 本文へ戻る