リスト７：１つ前のレコードへ移動（<） Private Sub cmdMovePrevious_Click() On Error GoTo MovePrevErr 　If datAddress.Recordset.BOF = True Then 　　datAddress.Recordset.MoveFirst 　Else 　　datAddress.Recordset.MovePrevious 　　If datAddress.Recordset.BOF = True Then 　　　datAddress.Recordset.MoveFirst 　　End If 　End If 　Exit Sub MovePrevErr: 　DbErrorMsg End Sub 本文へ戻る