【Access】VBA内のSQLで抽出後更新すると「抽出条件でデータ型が一致しません」

2021年6月2日

VBA内でSQLを使って抽出後更新するというシンプルな処理に、

ココに注意

「抽出条件でデータ型が一致しません」

っとなって中々先に進めませんでした。

いつものように、カンマやダブルコーテーションの問題になるのですが、過去の備忘録にもない方法だったので追加備忘録です。

文字列か数値かで記述が違う

過去の備忘録から文字列か、数値かで書き方が違う事は知っていましたので、表示上は数値ですが、文字列フィールドになっていることは分かっていました。

: 参考名刺作成を市販ソフトを使わずにやってみた！
名刺作成までを無料でやってみました。ロゴの作成は、DesignEvoを使用して作業をして、名刺作成は、ラクスルのテンプレートから編集しました。実際に注文はラクスルから手配もできるので本当に楽だと思いました。
続きを見る

文字列でのSQLでの抽出なので下記のようにしました。

SQL = "SELECT * FROM dbo_order WHERE arrange_date = " & Me!arrange_id & ""

「抽出条件でデータ型が一致しません」

となりました。

debug.print SQL で確認すると、

SELECT * FROM dbo_order WHERE arrange_date = 20200806113923

となっています。

ちゃんと数値も入って検索できるはずだと思いますが、何で？？？

試しに、数値型で実行しても同じエラーで先に進めません。

SQL = "SELECT * FROM dbo_order WHERE arrange_date = " & arrange_id

結局今回は、シングルコーテーションを入れることで回避できました。

SQL = "SELECT * FROM dbo_order WHERE arrange_date = '" & arrange_id & "'"

'" & arrange_id & "'"

という感じですね。

同じく

debug.print SQL で確認すると、

SELECT * FROM dbo_order WHERE arrange_date = 20200806113923

エラーが出た時と同じじゃねぇ！

ココがポイント

デバッグでの表示内容は、同じなのに、エラーがでる場合と出ない場合との違いがある

のです。

次から無駄な時間をかけないように、この方法も備忘録に残しておきます。

ちょっとしたことで抽出されなかったり検索されない事があるので、都度、この下に遭遇した時に追記していきます。

※抽出や検索コードでうまく行ったものだけを記載しています。

rs.Filter = "NO = " & NO_edit

SQL = "SELECT * FROM dbo_message WHERE dbo_message.NO = " & Forms![message]![no]