プロが教えるわが家の防犯対策術!

参照は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

A 回答 (2件)

おつかれさまです(^^)/


データベース変数の宣言文を変更されましたでしょうか?

Private Cur_Db As DAO.Connection

dim Cur_Db As DAO.Database

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

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

お礼日時:2001/10/02 20:14

こんにちは


下記文例では、どうでしょうか?

'~~~~~~~~~~
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で、
型が一致しません。
というエラーが出るんです...

補足日時:2001/10/02 18:19
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!