- ACCESS
- 2012-03-15 - 更新:2012-12-19
この記事は最終更新日から1年以上経過しています。
帳票フォームでカレントレコードの位置を取得・設定できます。
レコードを削除してその位置に戻りたい場合などに便利。
Dim rst As Object Dim i As Integer Set rst = Me.Recordset 'カレントレコードの位置を変数に代入(返り値:長整数型) i = rst.AbsolutePosition 'カレントレコードを1つ先に移動させる rst.AbsolutePosition = i + 1 Set rst = Nothing
相対位置を取得するPercentPositionというプロパティもあります。
この場合、全体を100とした浮動小数点型が返ります。
29,930 views