お世話になっております。
下記の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

A 回答 (1件)

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



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

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

クエリの抽出条件の例
http://office.microsoft.com/ja-jp/access-help/HA …
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング