![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Private Sub 商品コード_LostFocus()
Dim ShukkaPtn As String
ShukkaPtn = Me.出荷パターン
Me.売上単価 = DLookup("[ShukkaPtn]", "[Q_単価分類別_単価]", "[商品コード]='" & Me.商品コード & "'")
End Sub
商品コードと出荷パターンというテキストボックスがあって、
[出荷パターン]に14という数値がはいってるとしたら
レコードセット[Q_単価分類別_単価]から商品コードで検索して、[14]フィールドにある数値を出したいのですが上の式では間違っているのでしょうか?
どこをどう修正していいのかが調べてもわかりませんでした。
宜しくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_06.png?e8efa67)
No.1
- 回答日時:
テーブルの構造が書いてないので、はっきりとは分かりませんが、式が間違っているというより、そもそもテーブルの構造がおかしいんじゃないでしょうか。
でもまずは式から検討してみましょうか。
私は、やりたいことと式がまったくあっていないと思います。
そのDLookup関数は、次のような動作をします。
テーブル"Q_単価分類別_単価"のレコードで、"商品コード"フィールドの値が Me.商品コード である(つまり当該フォームの"商品コード"テキストボックスの値)であるレコードをひとつ探し、そのレコードの"ShukkaPtn"フィールドの値を返す。
こういうことがしたいんですか?そのテーブルは"ShukkaPtn"という名前のフィールドを持っているのですか?
なお、ドメインをあらわす引数には[]をつけません。
私が想像するに、"Q_単価分類別_単価"というテーブルは、以下のような構造を持っているんじゃないですか?
商品コード|01|02|03|04|・・・|13|14|15|・・・
そして01などのフィールドに単価がデータとして格納されているのではないでしょうか。
もしそうなら、テーブルの設計が間違っています。
あるいは、クロス集計の結果できたクエリなのかもしれませんが、そのフォームで単価を呼び出すのなら、元のテーブル(ないしクエリ)私はこういう風にするべきだと思います。
商品コード|出荷パターン|単価
そして、そのテーブルには商品コードと出荷パターンの全ての組み合わせとそれに対応する単価が書いてあるのです。
こういう風にして初めて、テーブルがデータベースとして使えるようになります。
例えば、DLookup関数で単価を呼び出すときはこうします。
Me.売上単価 = DLookup("[単価]", "Q_単価分類別_単価", "[商品コード]='" & Me.商品コード & "' AND [出荷パターン]='" & Me.出荷パターン & "'")
なお、出荷パターンもテキストデータだと仮定しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- その他(Microsoft Office) EXCEL VLOOKUPに関する質問 5 2023/02/08 11:38
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- スーパー・コンビニ 一斉値上 スーパーの食料品 値上や単価の仕組みは? 4 2022/06/01 16:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データベースファイル(.db)を開...
-
警察はスマホに保存した動画や...
-
Accessを開きなおすとテキスト...
-
CSVファイルでテキストの改行の...
-
帳票フォームでのあるコンボボ...
-
汎用カード型のデータベースソ...
-
エクセルのフィルタ抽出が固まる
-
ACCESSのSQLで、NULLかNULLでな...
-
Notion@リレーション値の取得...
-
シートが異なるセル同士を、相...
-
エクセル 顧客管理表に担当ごと...
-
Access SQL のMID関数について
-
構文エラー:演算子がありませ...
-
FileMaker Pro 10 で令和を表示
-
「1004:アプリケーション定義...
-
DAOファイルのSQLクエリの部分...
-
データ復旧にかかる時間
-
DocuWorksでの印刷
-
テキストボックスにコントロー...
-
AccessのSQLで、FROM句の構文エ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースファイル(.db)を開...
-
ACCESSのSQLで、NULLかNULLでな...
-
Accessを開きなおすとテキスト...
-
警察はスマホに保存した動画や...
-
エクセルのフィルタ抽出が固まる
-
Accessのフォームへ、記録者の...
-
構文エラー:演算子がありませ...
-
最新の日付とその金額をクエリ...
-
Accessのリンクテーブルについて
-
CSVファイルでテキストの改行の...
-
更新クエリをリンクデータベー...
-
データベースの選定について 要...
-
ドリームメーカーってどうやっ...
-
シートが異なるセル同士を、相...
-
帳票フォームでのあるコンボボ...
-
20万行あるデータを動かしたい
-
Access フォーム上でコンボボッ...
-
googleフォームでインストール...
-
顧客データベースを作る場合、...
-
テキストボックスにコントロー...
おすすめ情報