| | ||
| | |||
| Access Tips | |||
   |
|||
 #460 |
 |
先頭レコードであることをメッセージ表示する方法 | フォーム、VBA |
フォームのモジュールでは、「Me.CurrentRecord」という記述（CurrentRecordはRecordsetオブジェクトではなくFormオブジェクトのプロパティであることに注意）によって、フォームに連結されたレコードソースのカレントレコード（フォーム上で現在カーソルがある行のレコード）のレコード番号を取得することができます。 カレントレコードが先頭レコードである場合、その値は「１」です。よって、その値が１であるときに所定のコードを実行させることによって、先頭レコードであることをメッセージ表示することができます。 次の例では、"Current/レコード移動時"イベントを使って、フォーム上でレコード移動が発生するたびにカレントレコードのレコード番号をチェック、それが１ならラベルコントロールにその旨のメッセージを出力しています。 Private Sub Form_Current() 'フォームのレコード移動時 If Me.CurrentRecord = 1 Then '先頭レコードのとき lblMessage.Caption = "先頭レコードです！" Else lblMessage.Caption = "" End If End Sub 実行結果：  |
|||
|
|
|||
| Copyright © T'sWare All rights reserved |   |