リスト９：最終レコードへ移動（>|） Private Sub cmdMoveLast_Click() On Error GoTo MoveLastErr 　datAddress.Recordset.MoveLast 　Exit Sub MoveLastErr: 　DbErrorMsg End Sub 本文へ戻る