HOME > 即効テクニック > AccessVBA > フォーム・レポート > フォームを開く際に特定のレコードを表示する

即効テクニック
フォーム・レポート

フォームを開く際に特定のレコードを表示する

(Access 97)
フォームを開くと、レコードソースの先頭のレコードが表示されますが、フォームを開くときに発生する「Open」イベントで、最後のレコードや特定のレコードを表示するように設定する事ができます。
「Open」イベントは、フォームが開くときに、最初のレコードが表示される前に発生するイベントです。
そのイベントプロシージャに、GoToRecordメソッドを使って、表示するレコードを設定します。

【最後のレコードを表示する】

Private Sub Form_Open(Cancel As Integer)
    DoCmd.GoToRecord acForm, "フォーム1", acLast
End Sub

GoToRecordメソッドの構文は次のとおりです。
＜構文＞
DoCmd.GoToRecord [objecttype, objectname][, record][, offset]

objecttype：次のいずれかの組み込み定数を指定します。
 acActiveDataObject (既定値)
 acDataForm
 acDataQuery
 acDataTable 
objectname：引数objecttypeで選択した種類のオブジェクトの有効な名前を
            文字列式で指定します。
record  ：次のいずれかの組み込み定数を指定します。
  acFirst
  acGoTo
  acLast
  acNewRec
  acNext (既定値)
  acPrevious 
offset  ：引数recordにacNextまたはacPreviousを指定した場合は、前方または後方に移動するレコード数、引数recordにacGoToを指定した場合は移動する先のレコードを、数式で指定します。


【特定のレコード（2番目）を表示する】

Private Sub Form_Open(Cancel As Integer)
    DoCmd.GoToRecord acForm, "フォーム1", acGoTo, 2
End Sub
ビジネス統計スペシャリスト VBAエキスパート