Access レコードの検索と追加

日報というフォームに日付とリンクしたサブフォームを作成しました。
複数の人がデータを入力するのですが、日報フォームの日付は重複したくありません。
それで日付入力というテキストボックスを作成して、その日付と同じ日付を検索して、なければ新規のレコードを作成するというようにしたいと思っています。

Private Sub txt日付入力_AfterUpdate()
Dim rs As DAO.Recordset

Set rs = Me.Recordset.Clone
rs.FindFirst "日付 = #" & Me!txt日付入力.Value & "#"

　If rs.NoMatch Then
　　rs.AddNew
　Else
　　Me.Bookmark = rs.Bookmark
　End If
rs.Close: Set rs = Nothing

End Sub

というようにしたのですが、新規のレコードを作成する部分がどうしても分かりません。
どなたか分かる方、よろしくお願いします。

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/04/19 18:26

こんにちは。

maruru01です。

rs.AddNew
rs!フィールド名 = 入力値
・・・
rs.UpDate

でしょうか。
では。

この回答へのお礼

お返事が遅れてすいません。
無事に出来ました。
どうもありがとうございました。

お礼日時：2002/04/22 14:49