Accessで、DAOでAddnew

質問

参照はDAOで、Addnewでデータの追加をしたいのですが、記述が悪いのか、上手くできません。
どなたか、教えて下さい！

テーブル：スケジュールソース
フィールド：日付

Private Cur_Db As DAO.Connection
Private rs As DAO.Recordset
Private sql As String
Dim str_date As String

str_date = Me!日付

Set Cur_Db = CurrentDb
rs.Open "スケジュールソース", Cur_Db, dOpenKeyset, adLockOptimistic

rs.AddNew
rs("日付").Value = str_date
rs.Update

回答No.2

teppy · ベストアンサー

おつかれさまです(^^)/
データベース変数の宣言文を変更されましたでしょうか？

Private Cur_Db As DAO.Connection
↓
dim Cur_Db As DAO.Database

変更しなければ、確かに「実行時エラー'13' 型が一致しません」というエラーがでます。
ダメでしたら、再度補足等を御願い致します

お礼

ありがとうございます！
宣言を直したら、上手くデータの追加が出来ました！！
＼(^o^)／
今後もこの処理を使う時がたくさんあるはずなので、
とても助かりました♪
m（_ _）m

回答No.1

teppy

こんにちは
下記文例では、どうでしょうか？

'～～～～～～～～～～
Dim Cur_Db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim str_date As String

str_date = Date

Set Cur_Db = CurrentDb
Set rs = Cur_Db.OpenRecordset("スケジュールソース", dbOpenDynaset)

rs.AddNew
rs![日付] = str_date
rs.Update
'～～～～～～～～～～

もし、ダメでしたらDAOのバージョン、エラーメッセージ等の補足を御願い致します

補足

Set Cur_Db = CurrentDbで、
型が一致しません。
というエラーが出るんです．．．