accessのフォームを使ってテーブルレコードの更新をしたいのですが悩んでおります。 やりたいことは

accessのフォームを使ってテーブルレコードの更新をしたいのですが悩んでおります。
やりたいことは❸つです。
①コンボボックス(ID検索)でテーブルフィールド:IDを指定(テーブル名:T_SIT)
②該当するものテーブルレコードのデータを抽出
③該当するフィールドの項目にデータを追記

どうもうまくいきません…( ･᷄д･᷅ )
詳しい方！お助けください！！

質問者からの補足コメント

• ShowMeHow様
  実行時エラー'424':
  オブジェクトが必要ですのエラーが出てしまいます。

  
    補足日時：2017/04/17 15:32

• ShowMeHow様
  実行時エラー'424':
  オブジェクトが必要です

  
    補足日時：2017/04/17 15:35

• ShowMeHow様
  実行時エラー'424':
  オブジェクトが必要です

  
    補足日時：2017/04/17 15:35

• ShowMeHow様
  実行時エラー'424':
  オブジェクトが必要です

  
    補足日時：2017/04/17 15:36

No.6 ベストアンサー 回答者： ShowMeHow 回答日時： 2017/04/17 16:00

今作ってみましたけど、、、

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("t1", dbOpenDynaset)
rs.Filter = "ID=1"
Set rs = rs.OpenRecordset()

で動きました。
私の場合は、ＩＤが数値でしたので、前後のシングルクオートは使いませんでした。

行儀作法として、
最後にset db= nothingと入れておくとよいかもです。

この回答へのお礼

何度も本当にありがとうございました！
思った通りにテーブルレコードを抽出することが出来ました！

お礼日時：2017/04/17 16:43

No.5 回答者： ShowMeHow 回答日時： 2017/04/17 15:53

set db = currentdbってのも抜けてますね。

リンク先を参照してくださいませ。

（dao使ったことないので、って理由になりませんけど、申し訳ありません。）

No.4 回答者： ShowMeHow 回答日時： 2017/04/17 15:47

Dim db As DAO.Database

が頭に必要みたいね。　すみません。　
ＡＮｏ2、ＡＮo3は無視してください。

ついでに
rs.filter = "ID='" & me!ID検索 &"'"
ダブルクオート+シングルクオート+ダブルクオートとＩＤの後のイコールも忘れずに。

No.3 回答者： ShowMeHow 回答日時： 2017/04/17 15:40

これでダメなら、テーブル名をコピペしたほうが良いかもしれない。

あと、フィルターのほうの最後も
"'"
ダブルクオート+シングルクオート+ダブルクオートね。

No.2 回答者： ShowMeHow 回答日時： 2017/04/17 15:37

dim rs as new dao.recordset

とも変えてみてください。

この回答へのお礼

何度もすみません(ToT)
New キーワードの使用法が不正です。となりました…( •᷄⌓•᷅ )

お礼日時：2017/04/17 15:42

No.1 回答者： ShowMeHow 回答日時： 2017/04/17 14:40

set rs = db.openrecordset("T_sit",dbopentableset)

rs.filter = "ID='" & me!ID検索 &"'"

のように変えてみたらどうだろう。
http://www.accessclub.jp/dao/16.html

この回答へのお礼

ご回答ありがとうございます。
コレでやってみましたが
実行時エラー'424':
オブジェクトが必要です
とエラーが出てしまいます。(補足参照)

お礼日時：2017/04/17 15:33