Access2000でフォームを開くときに常に新規レコードで開きたいのですが

Access2000で、あるイベントに参加した人のデータベースを作りました。

検索用フォームで「氏名」と「生年月日」で検索し、その人の情報を別の
フォームで見ることができるようになっています。

該当者がいない場合は、新しいレコードにそのデータを追加します。

検索結果を表示するフォームに個人情報を表示・書き込みできる画面を開く
ためのボタンがあるのですが、このボタンをクリックした時に、常に新規
レコードで開きたいのですが、コードはどのように記述すればよろしいの
でしょうか？

ちなみに、いまは下記のようなコードになっています。

「新規登録ボタン」は個人情報を表示・書き込みできる画面を開くためのボタン
「応募者」は個人情報を表示・書き込みできるフォーム
です。

Private Sub 新規登録ボタン_Click()
On Error GoTo Err_新規登録ボタン_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "応募者"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_新規登録ボタン_Click:
Exit Sub

Err_新規登録ボタン_Click:
MsgBox Err.Description
Resume Exit_新規登録ボタン_Click

End Sub

No.2 ベストアンサー 回答者： komagoro 回答日時： 2001/11/01 09:19

DoCmd.OpenForm stDocName, , , stLinkCriteria

↓
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd

で解決しませんか。

この回答へのお礼

ご回答ありがとうございました。
チャレンジしてみます。

お礼日時：2001/11/30 15:41

No.1 回答者： noname#1296 回答日時： 2001/11/01 09:18

DoCmd.OpenForm stDocName, , , stLinkCriteria,acFormAdd

として下さい。新規入力画面で開きます。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2001/11/30 15:25