こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルからアクセスの更新クエリをVBAで実行したい

こんばんは。たびたび失礼します。
http://oshiete1.goo.ne.jp/qa4909202.html
の続きです。

アクセスの「テーブル1」の「フィールド」(Yes/No型)がFalseなら
Trueにする更新クエリをエクセルから実行したいのですがうまく行きません。

Sub test1()
Dim cn As New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "\\Users\ユーザーアカウント名です\Documents" & "\アクセス.mdb"
cn.Execute "UPDATE テーブル1 SET フィールド = False WHERE フィールド='" & True & "'"
Set cn = Nothing
End Sub

これを実行すると
実行時エラー2147217913
抽出条件でデータ型が一致しません。
となります。
どうすればいいでしょうか?
ご教授よろしくお願いします。

投稿日時 - 2009-05-02 00:16:12

QNo.4924475

暇なときに回答ください

質問者が選んだベストアンサー

> cn.Execute "UPDATE テーブル1 SET フィールド = False WHERE フィールド='" & True & "'"

cn.Execute "UPDATE テーブル1 SET フィールド = True WHERE フィールド = False"

> FalseならTrueにする
は、全てが True になることと同じと解釈すると

cn.Execute "UPDATE テーブル1 SET フィールド = True"

でどうなりますか。

投稿日時 - 2009-05-02 09:08:06

お礼

「全てが True になることと同じ」
まさしくそうです!
やってみたらできました!
ありがとうございます!!!!

投稿日時 - 2009-05-02 12:18:50

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問