#129 フォームを開くと同時に新規レコードに移動するには? フォーム、VBA

DocmdのOpenFormメソッドを使ってフォームを開く際、その引数に定数"acFormAdd"を指定することによって、「レコード追加専用」でそのフォームを開くことができます。しかしこの場合、これまでに入力されているレコードは一切表示されません。 追加専用で開いた画面例

「既存のレコードも表示・編集できるが、すぐに新規レコードを入力し始められるようなフォームにしたい」という場合は、次のような方法で、フォームを開くと同時にカレントレコードを新規レコードに移動するようにします。

それには、そのフォームの"読み込み時"イベントプロシージャを次のようにします。
Private Sub Form_Load()

  DoCmd.GoToRecord , , acNewRec

End Sub
実行画面例

※フォームがメイン/サブフォームになっているときは、"SetFocus"メソッドを使って、いったんサブフォームにアクティブコントロールを移動させてから上のコードを実行します。
| Index | Prev | Next |



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