|
▼hatena さん:
回答ありがとうございます。
>
>If Me.Pages = 0 And FormatCount = 1 Then
> CurrentDB.Excecute _
> "UPDATE 商品テーブル SET 目次用ページ = " & Me.Page & _
> " WHERE 商品コード=" & Me.商品コード & ";"
>End If
>
>これで、レポートをプレビューまたは、印刷すると、商品テーブルに目次用ページが
>書き込まれると思います。
CurrentDb.Execute _
"UPDATE 商品テーブル SET 目次用ページ =" & Me.Page & _
"WHERE 管理番号 =" & Me.管理番号 & ";"
と入力いたしましたがエラーが出ます。
実行時エラー3075
クエリ式'1WHERE 管理番号 = 7343'の構文エラー:演算子がありません
という内容です。
自分なりにエラーの内容を本などで調べてみましたが良く分かりません。
ちなみにExecuteメソッドであってますよね?
>
>商品テーブルの主キーは商品コードで、数値型との前提でコーディングしてます。
管理番号(商品番号)は私のテーブルにはなかったので新しく作成いたしました。
ちなみにテキスト型を用いるとこの構文は変わるのでしょうか?
テキスト型のフィールドを試しに入れてみましたが同じエラーが出ました。
VBAは苦手なもので返信が遅くなりスミマセンでした。
|
|