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

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

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

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

  DoCmd.GoToRecord , , acNewRec

End Sub
実行画面例

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

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved