access でエラーを回避するには?
アクセス初心者ですが、宜しくお願い致します。
現在、納品伝票を作っており、
納品フォームに得意先情報、合計金額
サブフォームに売上げ商品と数量、単価、金額などを表示、
同じフォーム上にボタンを作って、マクロで印刷を行う設定にしています。
サブフォームには商品コードフィールドがあり、
別にある商品テーブルから DLookup関数を用いて
その商品コードの商品名と単価を自動入力させ、
サブフォーム上で合計金額を計算しています。
合わせて商品コードはコンボボックスになっており、
各得意先名により表示内容が変わるようにしてあります。
商品コードのフォーカス喪失時イベントには
Private Sub 商品コード_Exit(Cancel As Integer)
If Not IsNull(商品コード) Then
商品名 = DLookup("商品名", "取り扱い店名クエリ", "商品コード='" & 商品コード & "'")
単位 = DLookup("単位", "取り扱い店名クエリ", "商品コード='" & 商品コード & "'"
End If
End Sub
こんな感じで記述しているのですが、
サブフォーム上の商品コードにカーソルがある時に
フォーム上の印刷ボタンを押すと、
実行時エラー2424
「指定した式にアクセスが見つける事ができない
フィールド、コントロール、プロパティ名が含まれています」
となってしまいます。
例えば、サブフォームの1レコード目に入力をし終わり、
2レコード目の商品コードにカーソルが移った時点で印刷ボタンを押す。
2レコード分の入力を済ませたあと、エンターキーを押し続けて
(カーソルはカレントレコード内に戻る様にしています)、
再度商品コードにカーソルが合った時に印刷ボタンを押す。
などの場合です。
何とかこのエラーを回避する手立てはありませんでしょうか?
どうか宜しくお願い致します。