アクセス2000で発注書をつくっています
発注書フォームのサブフォーム「発注書sub」内で
「大項目」「中項目」「小項目」「商品コード」の
4つのコンボボックスを設置し、
絞込み検索で商品明細を入力しています
新規レコードに移動するときに
「大項目」「中項目」「小項目」の値を空白にし、
4つめの「商品コード」コンボボックスで
全商品を表示させたいのですが
どう記述していいのかわかりません
現在は
Private Sub 商品コード_AfterUpdate()
Me.品番 = Me.商品コード.Column(1)
Me.商品名 = Me.商品コード.Column(2)
Me.色 = Me.商品コード.Column(3)
Me.サイズ = Me.商品コード.Column(4)
Me.商品単価 = Me.商品コード.Column(5)
End Sub
Private Sub 小項目_Enter()
Me!商品コード.Requery
End Sub
Private Sub 大項目_AfterUpdate()
Me!中項目.Requery
End Sub
Private Sub 中項目_AfterUpdate()
Me!小項目.Requery
End Sub
Private Sub 小項目_AfterUpdate()
Me!商品コード.Requery
End Sub
'フォーカスが移ると同時にドロップダウンさせる
Private Sub 大項目_GotFocus()
Me.大項目.Dropdown
End Sub
Private Sub 中項目_GotFocus()
Me.中項目.Dropdown
End Sub
Private Sub 小項目_GotFocus()
Me.小項目.Dropdown
End Sub
'テスト
Private Sub 摘要_LostFocus()
Me!大項目 = Null
Me!中項目 = Null
Me!小項目 = Null
Me!商品コード.Requery
End Sub
です。
発注書フォーム(単票フォーム)
レコードソース「発注書」
サブフォーム名「発注書sub」(帳票形式)
レコードソース「発注書明細」
リンク親フィールド子フィールドともに「発注書コード」
(他に表記が必要なのがあるかもしれませんが。。)
テーブル
●発注書明細
「明細コード」「発注書コード」「商品コード」「品番」「商品名」「色」「サイズ」「商品単価」「数量」「摘要」です
●商品マスタ
「商品コード」「品番」「種類」「大項目」「中項目」「色」「商品名」「サイズ」「商品単価」
です。
どなたか
ご指導のほどよろしくお願いいたします
No.1ベストアンサー
- 回答日時:
各コンボボックスの制御(絞込み)をどうやっているのか分かりませんが、
例えば、大項目が決まると一致した商品だけが「商品コード」のリストに
表れ、中項目が決まると更に絞り込まれるといった仕様なのですか?
それで、新規の場合、大項目=Nullなので、全商品がリストされるとか?
ポイントは「商品コード」の元になっているクエリですね。それの
SQLを変更するか、動的にSQLをプログラムでSQLを組み立てて、
「商品コード」のControlSourceを書き替えるなどが考えられます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCEL VLOOKUPに関する質問 5 2023/02/08 11:38
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- 会社・職場 ある時、 会社で見積書の依頼を メールで対応してる時の出来事。 見積書な項目8行目の文言が 長すぎる 2 2023/06/10 03:12
- Visual Basic(VBA) 重複データをまとめて合計を合算する 4 2022/10/25 20:25
- Excel(エクセル) エクセル 関数について 4 2022/08/05 11:03
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
Oracle 2つのDate型の値の差を...
-
Joy To Keyのマウスやキーボー...
-
2行目を表示できますか?
-
DBのタイプの指定とサイズにつ...
-
VBAで複数の数式セルを最終行ま...
-
SUBSTRING 関数に渡した長さの...
-
ブラウザの「戻る」ボタンは何...
-
skypeに問い合わせるとき...
-
APN設定について教えていただけ...
-
空白をそのままインポートする...
-
BIOSでAHCIに設定したいが、項...
-
Excelで空白以外の値がある列の...
-
Accessレポートで特定条件で改...
-
セルの右クリックで出る項目を...
-
必須入力項目と入力必須項目
-
スティックパリティの役割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
株に関する用語集
-
他テーブルで一致する列から名...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報