#129
DocmdのOpenFormメソッドを使ってフォームを開く際、その引数に定数"acFormAdd"を指定することによって、「レコード追加専用」でそのフォームを開くことができます。しかしこの場合、これまでに入力されているレコードは一切表示されません。
「既存のレコードも表示・編集できるが、すぐに新規レコードを入力し始められるようなフォームにしたい」という場合は、次のような方法で、フォームを開くと同時にカレントレコードを新規レコードに移動するようにします。
それには、そのフォームの"読み込み時"イベントプロシージャを次のようにします。
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
DoCmd.GoToRecord , , acNewRec
End Sub
※フォームがメイン/サブフォームになっているときは、"SetFocus"メソッドを使って、いったんサブフォームにアクティブコントロールを移動させてから上のコードを実行します。
