|
VAccess
現在のインデックス パスの次のレコードを取得し、Pervasive PSQL ステータス コードを整数値で返します。
GetNext メソッドの構文は次のような要素で構成されます。
このメソッドは、IndexNumber プロパティによって設定された、現在選択されているインデックス パスの次のレコードを、そのコントロールに関連付けられたファイルから取得します。
このメソッドを呼び出す前に、インデックス パスに現在の位置を確立しておく必要があります。
オペレーションのステータス コードはこのメソッドから返され、コントロールの Status プロパティに設定されます。ステータスがゼロの場合は正常に実行されたことを示します。ステータス コード 9 は、現在のインデックス パスの現在のレコードには後続レコードがないことを示します。ステータス コード 8 は、そのメソッドを呼び出す前に、現在のレコード上に位置が確立されていなかったことを示します。
'日付が 1 年以上古いレコードをすべて削除する Customers.IndexNumber = 0 '顧客番号 Customers.GetFirst Do If DateDiff("yyyy", Now, _ Customers.FieldValue("last_order_date")) > 0 Customers.Delete End If Customers.GetNext Loop While Customers.Status = 0
|