コンボボックスの絞込みについて

Question

こんにちは　アクセス２０００で発注書を作っています
ど素人です。。

コンボボックスの絞りこみについて教えてください。
現在５つのコンボで絞込みをしています
コンボ１仕入先（メインフォーム）
コンボ２種類１（サブフォーム）
コンボ３種類２（サブフォーム）
コンボ４商品名（サブフォーム）
コンボ５詳細（サブフォーム）

です。
コンボ１は一度選択すると、変更はありません。
コンボ５で選択決定した後、コンボ２、コンボ３、コンボ４は空白に、
コンボ５は全表示に設定しているのですが
それだとコンボ１で選択した仕入先以外の商品も入ってしまうので
コンボ５に、コンボ１で仕入れた商品のみを全表示したい場合は
どうしたらいいですか？

説明下手で申し訳ありませんが
どなかたご教授の程よろしくお願いいたします

noname#140971 · Accepted Answer

質問、新しく商品の枝番が発生した場合の処理手順。

１、在庫ゼロでテーブル[商品]に追加する。
２、テーブル[商品]に追加しない。

仕入先:

仕入先コード_仕入先名_担当者名
___________101__Ａ社________山田花子
___________201__Ｂ社________山田太郎
___________301__Ｃ社________山田五郎

商品:

商品コード_仕入先コード_品番_種類1_____種類2__商品名____色____サイズ_単価____入数
___________1_____________101_156___メンズ_____トップ___シャツＡ___赤____Ｌ_______\1,000_____5
___________2_____________101_156___キッズ_____トップ__シャツＢ____青___Ｓ_______\800_______3
___________3_____________101_156___レディス__ボトム_デニムＡ____白___Ｌ_______\5,000_____2

※典型的な主テーブルと従テーブルの混在。
※市販の販売管理システムの大概は、枝番を従テーブルで管理しています。
※困った先人ですね。

発注書:

発注書コード_仕入先コード
_______________1_____________101

※列[仕入先名]は不要ですね。

発注明細:

明細コード_発注書コード_商品コード_数量
___________1________________1_____________1______1
___________2________________1_____________2______1

なぜ、冒頭の質問をするのかというと[発注書]と[発注明細]とはこれで十分な可能性があるからです。
例えば、次のような[発注明細クエリ]を用意すれば目的のフォームは自動生成されます。

発注明細クエリ:

明細コード_発注書コード_商品コード_品番_種類1_種類2_商品名___色_サイズ_単価____数量
____________1________________1____________1__156_メンズ_トップ___シャツＡ__赤_Ｌ_______\1,000______1
____________2________________1____________2__156_キッズ_トップ___シャツＢ__青_Ｓ______\8001______1

SELECT 発注明細.明細コード, 発注明細.発注書コード, 発注明細.商品コード, 商品.品番, 商品.種類1, 商品.種類2, 商品.商品名, 商品.色, 商品.サイズ, 商品.単価, 発注明細.数量
FROM 発注明細 LEFT JOIN 商品 ON 発注明細.商品コード = 商品.商品コード;

こうなると、[発注明細]！[商品コード]で'0'か空でも入力されたら商品選択のためのフォームをオープンするだけ！

noname#140971 · Answer

本格的回答002:
=================================================================================

さて、商品情報の記録を主と従とで管理しない現行を追認するとした場合のやり方ですが・・・。
その前に、テーブル発注の設計が明確でないと話が噛み合わないですよ。

発注台帳: テーブル

[ID]_[発注番号____]_[発注日_______]_[仕入先コード]
___1__2008120001___2008/12/01___新日本商事
___2__2008120002___2008/12/02___新日本商事
___3__2008120003___2008/12/03___朝日商会

発注明細: テーブル

[ID]_[発注台帳_ID]_[行番号]_[商品コード]_[品名・品番___]_[枝番1____]_[枝番2_____]_[枝番3]_[数量]_[備考]
___1_________________1__________1___A001__________男子靴__________S_____________c#001_______紐付き______10__________
___2_________________1__________2___A001__________男子靴__________M_____________c#002_______紐付き________1_________
___3_________________2__________1___B001__________スニーカー______25cm_______C1____________________________4__________

[発注台帳_ID]_[行番号]を主キーにしてもＯＫ！

ともかく、このような[発注台帳]と[発注明細]という関係な筈。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

発注番号_______[2009120001]
発注日__________[2008/12/01]
仕入先コード___[S001_________][新日本商事____________________________]

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
[行番号][商品コード][品名・品番___][枝番1____][枝番2_____][枝番3___][数量][備考]
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
[______01][A001_______][男子靴_______][S__________][c#001_____][紐付き__][___10][______________]
[______02][A001_______][男子靴_______][M__________][c#002_____][紐付き__][_____1][_____________]

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

そして、これが普通に考えた発注データの入力フォーム。
ここでは、商品コード数の多さを考えればコンボボックスの利用は不可。
固定的なデータで個数も割りと少ないデータの選択に適しているのがコンボボックス。
で、原則として各行毎にそのローソースは変えてはいけません。

提案１、少なくとも、以上のようなテーブル構造とデータは示されたがいいですね。
提案２、Accessで作業する以前に、このようにワードかなんかでシュミレーション。
提案３、[発注明細]![商品コード]を削除したり空だったら[仕入先別商品枝番検索フォーム]をオープンすることも。

以上、お節介ながら・・・。

noname#140971 · Answer

本格的回答001:
=================================================================================

仕入先: テーブル

仕入先コード__仕入先名
S001____________新日本商事
S002____________朝日商会

商品: テーブル

[ID]_[仕入先コード]_[商品コード]_[品名・品番]_[枝番1]_[枝番2]_[枝番3]_[単価]
___1__新日本商事_____A001_________男子靴________S________c#001___紐付き__\1,000
___2__新日本商事_____A001_________男子靴________M________c#002___紐付き__\1,100
___3__朝日商会________B001________スニーカー___24cm___C1__________________\2,000
___4__朝日商会________B001________スニーカー___25cm___C2__________________\2,100

仕入先コード=SELECT 仕入先.仕入先コード, 仕入先.仕入先名 FROM 仕入先; 
(ルックアップを設定）

商品コードと品名・品番との相関関係も、これは各仕入先の商品体系で実に様々。
枝番1は色であったりサイズであったり、これは各仕入先の商品体系で実に様々。
当然に単価もS寸とM寸では違うことでしょう。
そういう事情で、このような商品マスターが作成されたということでしょう。

商品一覧: テーブル

[ID]_[区分1]_[区分2]_[仕入先コード]_[商品コード]_[品名・品番]
___1__区分1__区分2____新日本商事_____A001_________男子靴
___2__区分2__区分2____朝日商会________B001_________スニーカー

商品枝番: テーブル

[ID]_[商品_ID]_[枝番1]_[枝番2]_[枝番3]_[単価]
___1__A001_______S________c#001___紐付き__\1,000
___2__A001_______M________c#002___紐付き__\1,100
___3__B001_______24cm___C1__________________\2,000
___4__B001_______25cm___C2__________________\2,100

こういう場合、主テーブル(商品一覧)と従テーブル(商品枝番)とで管理します。
（名称は好みによって色々です）
こうすることで、仕入先と商品コードとが決まれば、その枝番情報が容易に検索できる訳です。

また、在庫管理する場合の、現実問題として[商品一覧]のレコード単位なんてのはありえません。
サイズや色毎、あるいは単価毎の在庫が判らないと意味ないので[商品枝番]のレコード単位が基本。

さて、このようなテーブル設計になっていない場合の[商品枝番]のレコード単位に相当する情報の抽出に挑戦中。
そういうことだと思います。

※お礼も補足もされないで本格的回答を先ずはお読みください。

noname#140971 · Answer

帳票タイプのコンボボックスですと、一つの行のロウソースを変更すると全てに反映しますよね。
そうなると、矛盾した行も出てきますよね。
ですから、この矛盾を回避するには、商品選択フォームなどをオープンしてターゲットを特定。
商品選択フォームを閉じる時に各行に必要なデータを書き込むのが普通。

※ロウソースと各行の値との矛盾が許される設計ですか？

noname#140971 · Answer

更に言えば、商品名と商品コードとをなぜ絞り込む必要があるのか？

-------------------------------------
[商品コード][品名・品番______]
[S001______][シューズ型番S001]

かように、既定の品名・品番を表示しアレンジも可はありえるでしょう。
でも、この場合は、コンボボックスではないですよね。

noname#140971 · Answer

×　コンボ５に、コンボ１で仕入れた商品のみを全表示したい場合はどうしたらいいですか？
○　コンボ５に、コンボ４で確定した商品の詳細情報を表示するにはどうしたらいいですか？

完全に質問文を読み違っていました。

＞コンボボックスの絞りこみについて教えてください。

絞り込むことなんてありえないでしょう。
ただただ、参照するだけですね。

そうではないのですか？

noname#140971 · Answer

別解:

コンボボックス仕入先（cmbSupplier）が更新されると、サブフォーム（フォーム2）の商品名も自動更新。
一応、先頭の商品名を選択した状態で更新することにします。
それぞれのコンボボックスは値リストとします。
そうして、それぞれの値集合ソースはVBAで設定します。

Private Sub Form_Load()
　　Me.cmbSupplier.RowSource = DBSelect("SELECT sup_code, sname FROM supplier")
　　If Me.cmbSupplier.ListCount > 0 Then
　　　　Me.cmbSupplier.Value = Me.cmbSupplier.ItemData(0)
　　　　cmbSupplier_AfterUpdate
　　End If
End Sub

Private Sub cmbSupplier_AfterUpdate()
　　Me.フォーム2.Controls("cmbGoods").RowSource = _
　　　　　DBSelect("SELECT gname FROM goods WHERE sup_code=" & Me.cmbSupplier.Value)
　　If Me.フォーム2.Controls("cmbGoods").ListCount > 0 Then
　　　　Me.フォーム2.Controls("cmbGoods").Value = Me.フォーム2.Controls("cmbGoods").ItemData(0)
　　End If
End Sub

[イミディエイト]
? DBSelect("SELECT sup_code, sname FROM supplier")
1;s1;2;s2;
? DBSelect("SELECT gname FROM goods WHERE sup_code=1")
A1;A1;

このように、仮に SQL文の実行結果を値リストの形式で返す　DBSelect関数の類があれば実に簡単。

※システムのメンテナンスという意味では、先の回答より簡単になるでしょう。
※コンボボックスのプロパティの設定を調べなくても良い訳ですから・・・。

Public Function DBSelect(ByVal strQuerySQL As String, _
　　　　　　　　　　　　 Optional ByVal strSeparator1 As String = ";", _
　　　　　　　　　　　　 Optional ByVal strSeparator2 As String = ";") As String
On Error GoTo Err_DBSelect
　　Dim I　　 As Integer
　　Dim J　　 As Integer
　　Dim R　　 As Integer
　　Dim C　　 As Integer
　　Dim M　　 As Integer
　　Dim N　　 As Integer
　　Dim rst　 As ADODB.Recordset
　　Dim fld　 As ADODB.Field
　　Dim Datas As String
　　
　　Set rst = New ADODB.Recordset
　　' =================
　　'　Begin With: rst
　　' -----------------
　　With rst
　　　　 .Open strQuerySQL, _
　　　　　　　 CurrentProject.Connection, _
　　　　　　　 adOpenStatic, _
　　　　　　　 adLockReadOnly
　　　　 If Not .BOF Then
　　　　　　M = .RecordCount - 1
　　　　　　N = .Fields.Count - 1
　　　　　　.MoveFirst
　　　　　　For R = 0 To M
　　　　　　　　For C = 0 To N
　　　　　　　　　　Datas = Datas & .Fields(C)
　　　　　　　　　　If C <> N Then
　　　　　　　　　　　　Datas = Datas & strSeparator1
　　　　　　　　　　End If
　　　　　　　　Next C
　　　　　　　　If Len(strSeparator2) Then
　　　　　　　　　　Datas = Datas & strSeparator2
　　　　　　　　End If
　　　　　　　　.MoveNext
　　　　　　Next R
　　　　 End If
　　End With
　　' ---------------
　　'　End With: rst
　　' ===============
Exit_DBSelect:
　　DBSelect = Datas
　　Exit Function
Err_DBSelect:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBSelect)" & Chr$(13) & Chr$(13) & _
　　　　　　"・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　　"・SQL Text=" & strQuerySQL, _
　　　　　　vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBSelect
End Function

noname#140971 · Answer

supplier: table

sup_code_sname
__________1_s1
__________2_s2

goods: table

goods_num__sup_code_gname
____________1____________1__A1
____________2____________1__A2
____________3____________2__B1
____________4____________2__B2

フォーム1:

---------------------------------

仕入先___[s1_______] <----- cmbSupplier

=================================
商品名
[__________A1] <----------- cmbGoods


---------------------------------

こういうテーブルとフォームでテストします。
コンボボックス仕入先（cmbSupplier）が更新されると、サブフォーム（フォーム2）の商品名も自動更新。

Private Sub cmbSupplier_AfterUpdate()
　　Me.フォーム2.Controls("cmbGoods").Requery
End Sub

書くべきコードはこれだけです。

テーブル/クエリ
値集合ソース=SELECT supplier.sup_code, supplier.sname, * FROM supplier; 
値集合ソース=SELECT goods.gname, * FROM goods WHERE (((goods.sup_code)=Forms!フォーム1!cmbSupplier)); 

と、仕掛けるだけです。

コンボボックスの絞込みについて

質問、新しく商品の枝番が発生した場合の処理手順。

本格的回答002:

この回答への補足

本格的回答001:

この回答への補足

帳票タイプのコンボボックスですと、一つの行のロウソースを変更すると全てに反映しますよね。

更に言えば、商品名と商品コードとをなぜ絞り込む必要があるのか？

この回答への補足

× コンボ５に、コンボ１で仕入れた商品のみを全表示したい場合はどうしたらいいですか？

この回答への補足

別解:

supplier: table

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

×　コンボ５に、コンボ１で仕入れた商品のみを全表示したい場合はどうしたらいいですか？