カテゴリー
SugiBlog Webデザイナー・プログラマーのためのお役立ちTips

VBA DAOでカレントレコードの位置を取得・設定する

この記事は最終更新日から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,238 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です