![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
度々恐れ入ります。
実行時エラー’2424’: 指定した式にMicrsoft Accessが見つけることができないフィールド、コントロール、プロパティ名が含まれています。
のメッセージが出てしまいます。
記述したのは
オブジェクト=商品コード、プロシージャボックス=Exitの状態で
Private Sub 商品コード_Exit(Cancel As Integer)
商品名 = DLookup("商品名", "商品", "商品コード='" & 商品コード & "'")
販売単価 = DLookup("販売単価", "商品", "商品コード='" & 商品コード & "'")
仕入単価 = DLookup("仕入単価", "商品", "商品コード='" & 商品コード & "'")
End Sub
以上です。
商品名と商品コードは、商品テーブルと見積明細テーブルの両方に存在するフィールドで、商品名は商品テーブルの主キーにしています。
また、データ型はすべてテキストです。
またもや、テキストどおりの設定をしたはずなのに、何が原因なのか見当つかない状態です。
No.1ベストアンサー
- 回答日時:
wakabonさん、毎度(^^)/
各フィールドを[]で囲ったらいかがでしょう。
もし、抽出条件である商品コードがフォームのコントロールであれば
forms![フォーム名]![商品コード]として。
Private Sub 商品コード_Exit(Cancel As Integer)
商品名 = DLookup("[商品名]", "商品", "[商品コード] ='" & Forms![xx]![商品コード] & "'")
販売単価 = DLookup("[販売単価]", "商品", "[商品コード] ='" & Forms![xx]![商品コード] & "'")
仕入単価 = DLookup("[仕入単価]", "商品", "[商品コード] ='" & Forms![xx]![商品コード] & "'")
End Sub
としては?
Accessはさほど経験がないので、この程度しかお答えできません。
申し訳ないです。
参考URL:http://support.microsoft.com/Intl/Japan/Support/ …
早速にありがとうございます。
もう、頭が働きません。能力の限界ですので、一休みさせていただき、明日、確認させてもらいます。
ありがとうございました。
No.2
- 回答日時:
Private Sub 商品コード_Exit(Cancel As Integer)
商品名 = DLookup("商品名", "商品", "商品コード='" & 商品コード & "'")
End Sub
はOKなのですね?で、あれば販売単価、仕入単価の分を順に増やしてどちらが
(両方?)原因なのか特定しましょう。次にフォーム上のコントロール名を確認
してください。コントロール名が"販売単価"、"仕入単価"になっていますか?
その他、ちょっと気になる点ですが、
>商品名は商品テーブルの主キーにしています
普通は商品コードを主キーにすると思いますが何か理由があるのでしょうか?
>また、データ型はすべてテキストです
販売単価や仕入単価も?通常は通貨型を使います。
イベントのタイミングもフォーカス喪失時にやってしまうと、商品コードを
入力していない状況でフォーカスを喪失した時の処理が必要ですね。
いまだ解決いたしませんが、この件に関しては、教本発行会社に問い合わせることにいたしました。
なお、アドバイスいただきました皆様のご厚情と情報に、深く感謝し、御礼申し上げます。
・・・・ああ、アクセスが嫌いになりそうだ・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) エクセル count関数で出てきた数だけの行数をリンクで参照する 3 2022/08/10 12:02
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
access でエラーを回避するには?
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ACCESSでコントロールソースの変更
Access(アクセス)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
6
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
9
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
10
どこにもフォーカスを当てたくない
Access(アクセス)
-
11
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
12
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
13
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
14
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
15
新規レコード行を非表示にしたい
Access(アクセス)
-
16
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
17
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
18
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
19
アクセスVBAのMe!と[ ]
Access(アクセス)
-
20
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQL文で、合計が0のレコードを...
-
EXISTSを使ったDELETE文
-
Accessの実行時エラーについて
-
ACCESS ツリービューの作り方
-
ACCESS 商品毎の最新の単価を設...
-
異なるデータベース間のテーブ...
-
前月の取得について
-
差し込み後、元データを変更し...
-
止まなーい雨はない でもお前に...
-
エクセルVBAコードで教えて下さ...
-
フィルターかけた後、重複を除...
-
SELECT 文 GROUP での1件目を...
-
外部参照してるキーを主キーに...
-
エクセルで最後の文字だけ置き...
-
for whichの使い方
-
datetime型でNULL値を入れたい。
-
SQL Date型の列から年月だけを...
-
カーソル0件の時にエラーを発生...
-
列のヘッダーを含めるのをデフ...
-
SQLによる"あいうえお"順でソー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL文で、合計が0のレコードを...
-
EXISTSを使ったDELETE文
-
Accessの実行時エラーについて
-
ACCESS ツリービューの作り方
-
日付により変動する「単価」を...
-
前月の取得について
-
ACCESS 商品毎の最新の単価を設...
-
アクセス★非課税、課税の合計金...
-
AS400にてサブファイルレコード...
-
アクセス フィールド名に変数...
-
ユニオンクエリ?レポートにて...
-
ACCESSでクエリ作成時複数のフ...
-
Access2013で商品に複数の単価...
-
アクセスにて月末日付を取得し...
-
異なるデータベース間のテーブ...
-
AccessVBA データのエクスポート
-
フィールドの数値を四捨五入の...
-
FROM句にサブクエリ使えませんか
-
最大値を含むレコードの抽出
-
無駄に見える結合の回数を減ら...
おすすめ情報