Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2112 / 2272 ツリー ←次へ | 前へ→

【3871】コンボボックスのリストにフィルタはかけれる? B-BOSS 04/11/18(木) 18:13 質問[未読]
【3875】Re:コンボボックスのリストにフィルタはかけ... クロ 04/11/19(金) 9:52 回答[未読]
【3878】Re:コンボボックスのリストにフィルタはかけ... b-boss 04/11/20(土) 9:51 お礼[未読]

【3871】コンボボックスのリストにフィルタはかけ...
質問  B-BOSS  - 04/11/18(木) 18:13 -

引用なし
パスワード
    はじめまして、リレーションシップの概念がいまいち掴めず、苦労しております。
現在、会社のトップからAcceesを使え言われて、いろいろチャレンジしているのですが、
わからない事だらけです。 どなたか、教えてください。

 われわれの会社は製造業で、受注生産です。いろいろな部品を組み合わせて
製品を作っているのですが、一度に完成品を作るのではなく、ブロック毎に組立て
最終的にそのブロックを合体させて、完成品が出来る形です。
 そのブロックの事をAssyといいます。このAssyはモデル毎にさまざま物があります。

さて、この生産結果を日報として、Acceesに入力するために下記の様なテーブルを作成
しました。
・受注テーブル
 受注コード/受注No,/モデルコード/etc

・モデルテーブル
 モデルコード/モデル名/etc

・Assyテーブル
 Assyコード/モデルコード/Assy名/etc

 これらのテーブルをモデルコードでリレーションしまいた。
最終的に各受注No,の各Assyに固有の生産管理No,が必要な為、
下記の様なテーブルを作成しました。
・生産管理No,テーブル
 生産管理No,コード/受注コード/Assyコード
 
後はこの「生産管理No,テーブル」の入力フォームを作成しました。

 生産管理No,コードはオートNo,フィールドです。
受注コード(コンボボックス)を入力後、Assyコード(コンボボックス)を
入力したいのですが、Assyコードを入力する際、Assyテーブルの全てのデーターが
リストとして表示され、このAssyコードのコンボボックスのリストにフィルタを掛ける
事はできないのでしょうか?
 つまり、受注コードを入力すると、Assyコードのコンボボックスリストには
該当するAssyコードのみがリストとして出る様に出来ないでしょうか?

 わかる方、いらっしゃいましたら教えてください。
  よろしくお願いします。

【3875】Re:コンボボックスのリストにフィルタはか...
回答  クロ  - 04/11/19(金) 9:52 -

引用なし
パスワード
   http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=3872;id=access
上が参考になります。

受注コンボボックスは
値集合ソース:受注テーブル
その他のプロパティは適宜に...
このときモデルコードは3列めにあるとします。

「Assy」コンボボックスは
値集合ソース:Assyテーブル
その他のプロパティは適宜に...
としてください。

クエリ上では「Column プロパティ」が使えないので受注コンボボックスの
更新後処理のイベントで値集合ソースを代入します。

Me.Assyコンボ名.RowSource = "SELECT Assyコード" & _
              " FROM Assyテーブル" & _
              " WHERE モデルコード='" & _
              Me.受注コンボ名.Column(2) & "';"
Me.Assyコンボ名.Requery

※モデルコードか数値型の場合は「'シングルクォーテーション」を
 取ってください。

こんな感じでしょうか?

【3878】Re:コンボボックスのリストにフィルタはか...
お礼  b-boss E-MAIL  - 04/11/20(土) 9:51 -

引用なし
パスワード
   クロ さん:
ありがとうございました。
少し、戸惑いましたがうまくいきました。
SQLの勉強が必要ですね!
またよろしくお願いします。

2112 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078256
(SS)C-BOARD v3.8 is Free