Access2007 データ型エラーについて

お世話になっております。
下記のVBAでコードを数値型からテキスト型に変更したところ、「抽出条件でデータ型が一致しません。」というエラーが出ました。
デバッグをクリックすると、dbs.Execute strSQLの部分が黄色に反転しています。

VBAはあまり詳しくありませんので、エラーが出なくなる方法を教えていただければ助かります。
よろしくお願いいたします。


Private Sub 在庫差引_Click()

Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String

Set dbs = CurrentDb
Set rst = Me!サブフォーム.Form.RecordsetClone

With rst
.MoveFirst
Do Until .EOF
strSQL = "UPDATE マスター " & _
"SET 在庫数 = NZ(在庫数) - " & Nz(!数量, 0) & " " & _
"WHERE コード = " & !コード
dbs.Execute strSQL
.MoveNext
Loop
.Close
End With

End Sub

No.1 ベストアンサー 回答者： bonaron 回答日時： 2011/04/07 12:38

> "WHERE コード = " & !コード

　"WHERE コード = '" & !コード & "'"
あるいは
　"WHERE コード = """ & !コード & """"
ですね。
前者の方が分かりやすいと思います。

こちらを参考にして、データ型の違いをマスターしてください。

クエリの抽出条件の例
http://office.microsoft.com/ja-jp/access-help/HA …

この回答へのお礼

早々にありがとうございました。
おかげさまで正常に動作するようになりました。
また、わかりやすいページを教えていただき、ありがとうございました。

お礼日時：2011/04/07 12:45