INSERT INTO ステートメントの横文エラー。の解決
INSERT INTO ステートメントの横文エラー。の解決
Access VBAについての質問です。
在庫管理のフリーソフトを落とし改良している者です。
見よう見まねで手を加えてきたのですがタイトルのようなエラーが発生しました。
全くの初心者(というか未経験者です)なもので調べてみてもエラーの意味がよく分からず解決できずにいます。
こんな私にも分かりやすいようにどなたかご教授願えませんでしょうか?
Access2003を使用しています。
ソフトはhttp://ebe.jp/psoft/zaiko/様から落としたものです。
DoCmd.RunSQL ("INSERT INTO 入出庫(日付, 取引先No, 取引先名, 区分, 商品コード, メーカー名, 商品名, カナ, 大分類, 中分類, 小分類, 単価, 入庫数量, 出庫数量, 備考) VALUES(" & strDate & ", '', '棚卸', '棚卸', '" & RS.Fields("コード") & "', '" & RS.Fields("メーカー名") & "', '" & RS.Fields("商品名") & "', '" & RS.Fields("カナ") & "', '" & RS.Fields("大分類") & "', '" & RS.Fields("中分類") & "', '" & RS.Fields("小分類") & "', " & RS.Fields("単価") & ", 0, " & Abs(dblSa) & ", '')")
これが元のソースで当然ですが落としたソフト自体は問題なく動作していました。
これに手を加えたものが(下矢印)のソースになります。
DoCmd.RunSQL ("INSERT INTO 入出庫(日付, 取引先No, 取引先名, 区分, 商品コード, メーカー名, 商品名, 型番, カナ, 大分類, 中分類, 小分類, 単価, 入庫数量, 出庫数量, 備考) VALUES(" & strDate & ", '', '棚卸', '棚卸', '" & RS.Fields("コード") & "', '" & RS.Fields("メーカー名") & "', '" & RS.Fields("商品名") & "', '" & RS.Fields("型番") & "', '" & RS.Fields("カナ") & "', '" & RS.Fields("大分類") & "', '" & RS.Fields("中分類") & "', '" & RS.Fields("小分類") & "', " & RS.Fields("単価") & ", 0, " & Abs(dblSa) & ", '')")
元のソフトに『型番』というフィールドを追加しています。
このソースはもちろん、元のソースを移行してみても同じエラーが起こります。
フィールドを追加したときに他のテーブルやフォーム、クエリ、ソースにももちろん追加したのですが、
フォームだけスペースの問題で「大分類・中分類・小分類」のラベル・テキストを削除しました。
削除したのはソースとは全く別のフォームですがこれが原因になっていることもあるのでしょうか?
念のため関連していそうなフォームにこれらのラベルとテキストを再度作成しましたが結果は同じでした。
下手な説明かもしれませんがよろしくお願いします。
お礼
お返事ありがとうございます!! 大体のことは理解できました。 忙しいため、お礼が短くなりすいませんです。