#460 先頭レコードであることをメッセージ表示する方法 フォーム、VBA

フォームのモジュールでは、「Me.CurrentRecord」という記述(CurrentRecordはRecordsetオブジェクトではなくFormオブジェクトのプロパティであることに注意)によって、フォームに連結されたレコードソースのカレントレコード(フォーム上で現在カーソルがある行のレコード)のレコード番号を取得することができます。
カレントレコードが先頭レコードである場合、その値は「1」です。よって、その値が1であるときに所定のコードを実行させることによって、先頭レコードであることをメッセージ表示することができます。

次の例では、"Current/レコード移動時"イベントを使って、フォーム上でレコード移動が発生するたびにカレントレコードのレコード番号をチェック、それが1ならラベルコントロールにその旨のメッセージを出力しています。

Private Sub Form_Current()
'フォームのレコード移動時

  If Me.CurrentRecord = 1 Then
    '先頭レコードのとき
    lblMessage.Caption = "先頭レコードです!"
  Else
    lblMessage.Caption = ""
  End If

End Sub


実行結果:
実行結果
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved