コードを数字から文字に変更したらSQLクエリーがエラーになった

Question

お世話になります。

株式のコードが今年から英文字を含むコードが生まれるということで、今まで数字で登録していた株価データのコードを文字列のコードに変換しました。

テーブルとクエリーは一応変換しました。

レポートでチャートを表示するのですが、その過程でVBAでSQLクエリーを使っています。

数字コードのときは問題なかったのですが、文字コードに変えてからエラーが発生するようになりました。

VBAの一部抜粋です。

Dim DB As Database

Dim RS As Recordset

Dim SCODE As String

・・・

Set RS = DB.OpenRecordset("SELECT * FROM データ名 WHERE コード = " & SCODE & " ORDER BY 日付;")

ここでエラーになります。

　実行時エラー　'3464'

　抽出条件でテータ型が一致しません。

なお、SCODEはフォームのテキストボックスから入力します。

データのテーブルのコードのデータ型は、短いテキスト、長さは4バイトです。

原因がまったくわからず、困っています。

よろしくお願いいたします。

Answer 1

ABC888さん、こんにちは。

文字列という事ですので、SCODE をシングルクォーテーションで囲う様にしてみて下さい。

Set RS = DB.OpenRecordset("SELECT * FROM データ名 WHERE コード = " & SCODE & " ORDER BY 日付;")

↓

Set RS = DB.OpenRecordset("SELECT * FROM データ名 WHERE コード = '" & SCODE & "' ORDER BY 日付;")

＜参考＞

SQLの基礎の基礎 #MySQL - Qiita

Answer 2

返信ありがとうございます。

コードのところをシングルクォーテーションで動くようになりました。

大変助かりました。

ありがとうございました。

Answer 3

VBAの公式サポート場所は海外となっています。

VBA(マクロ)に関しては、海外コミュニティで聞いて下さい。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。