Ｃｏｕｎｔと受付状態の表示について

質問

現在、Access2007にて、会社の顧客管理システムを作成している超初心者です。
本を数冊買い込んで、作成しているのですが、どうしてもわからず、質問をさせていただきました。どなたかご教授いただければと願っております。

基本的には、自社で取得するオリジナルの管理番号にて、商品の修理受付状態を管理するデーターベースです。
なお、管理番号は、商品別に取得しているので、商品が異なれば、同じ管理番号が存在します。
例えば、
　　商品　　　管理番号
　　AAA　　　　001
　　AAA　　　　002
　　BBB　　　　001
　　BBB　　　　002
商品AAAの管理番号001というものは、1つしか存在しません。また、重複登録をしないような設定もしたいと思っていますが、そのやり方もよくわかっておりません。

現在、作成したテーブルならびにフォームは、
入力者テーブル　　　フィールドは、入力者ID（主キー）、入力者名、ふりがな
顧客テーブル　　　　フィールドは、顧客ID（主キー）、顧客名、ふりがな、備考
商品テーブル　　　　フィールドは、商品ID（主キー）、商品名、顧客参照ID、備考
管理番号テーブル　　フィールドは、管理番号ID（主キー）、顧客名参照ID、商品参照ID、管理番号、備考
です。

このあとに、修理受付入力と修理受付明細、作業完了入力、作業完了明細、修理履歴の検索テーブル及び、フォームを作成する予定です。
（実際には、少し作成しているのですが、まったく機能していません。。）

1つの管理番号に対して、最終的に数回の修理を受付します。
現在、私が考えている、修理受付入力と修理受付明細、作業完了入力、作業完了明細フォームに関しては、以下の内容を必要とします。
■修理受付入力フォーム
　・修理受付ID（主キー）
　・入力日（自動入力）
　・入力者（コンボボックス）
　・顧客名（コンボボックス）
　・商品名（コンボボックス）

修理受付入力フォームのサブフォームとして、
■修理受付明細テーブル
　・修理受付明細ID（主キー）
　・修理受付親ID
　・明細行番号（入力した行について、行数を表示したい）
　・管理番号（手入力）
　・現在の状態（管理番号を入力したら自動的に状態が表示されるようにしたい。）
　・修理回数（管理番号を入力したら自動的に過去の修理回数が表示されるようにしたい。）
　・受付日（手入力）
　・備考

＊「現在の状態」については、受付をする際は、前回の修理分が「納品済」となっているので「納品済」、または、初めての受付の場合は、「新規」と表示したいです。また、修理受付が終わり、受付ボタンにて、作業完了フォームにコピーされた後は、作業完了明細にて、「受付中」と表示され、作業完了登録をすると、また「納品済」と表示したい。

＊修理回数は、作業完了明細の完了日を入力した数をCountして、それに作業完了明細にて、修理不能返却をしたものは、完了日のCountマイナス1の数字を表示したい。

＊商品AAAに対して、管理番号が異なるものをまとめて20個受付したりすることがあるため、サブフォームにて、異なる管理番号のものを、まとめて入力できるようにしたく、サブフォームを作りました。

■作業完了入力フォーム（修理受付をすると、内容が作業完了にコピーされるようにするつもりです。）
　・作業完了受付ID（主キー）
　・入力日
　・入力者
　・顧客名
　・商品名

作業完了入力フォームのサブフォームとして、
■作業完了明細テーブル
（基本的には、作業完了入力フォームと同様、コピーされ、商品受付明細のフォームに、追加したフィールドがあります。）
　・作業完了受付明細ID（主キー）
　・作業完了受付親ID
　・明細行番号
　・管理番号
　・現在の状態
　・修理回数
　・受付日
　・完了日（手入力）
　・修理不能返却（Yes/No型）←修理不能の場合はチェックを入れる。
　・備考

今、つまずいている部分は数か所あります。
　・商品AAAの管理番号001という商品は、1つしか存在しません。管理番号テーブルにて、重複登録をしない設定をしたい。
　・明細行番号の表示の仕方
　・修理受付明細フォームでの、現在の状態、修理回数の自動表示の方法。（クエリの作り方から、フォームへの反映の仕方が全くわかりません。）

どなたか、ご教授くださいませ。どうぞよろしくお願いいたします。

回答No.5

noname#182251 · ベストアンサー

＃１～＃４です
サンプルＤＢを試作してみましたが、結構面倒で、それ以上に説明は大変そうです。と云うことで取り敢えず簡単なことから。

>1つのフォームに、1つのテーブルが必要と思っておりました。
一般的にはフォームにテーブルをそのまま対応させることはありません。クエリーを介在させます。例えば一覧表示するとき、アイウエオ順や年月日順に表示しようとすればクエリー介在が必要です。またテーブルはレコードの並び順を保証しませんから、いつ利用しにくい並びになるか判らないからです

>受付フォームにて、受付をし、作業が完了した際には、再度、受付フォームを開いて、完了日を入力すれば良いのですよね？！
これでも良いですが、クエリーを使用すれば、完了日未記入のものだけを一覧表示して処理するようなこともできます。どちらかというとその方が良いでしょう

>顧客名さえあれば電話番号や住所等はこのシステムでは必要ないので、顧客ID（オートナンバー）顧客名、ふりがな、備考のみで良いことになります。
他のＤＢに顧客名関連の情報がある場合は、それとリンクして使用します。ですから当該ＤＢでは顧客参照ＩＤだけで済ませます。リレーショナルＤＢでは同じデータの複数登録はできる限り避けるべきです。入力手間が増える弊害もさることながら、入力回数が増えれば、誤りの発生もほぼそれに正比例するためです

>コンボボックスで選択
コンボボックスの選択も便利ですが、選択対象がせいぜい１０くらいまで、無理しても２０以下にしたいです。それ以上では選択が大変です。その場合は一覧表示し、そこから選択して処理の流れになります。さらにレコード数が多いときはグループ分け、さらには「大分類」「中分類」「小分類」のような仕掛けも必要になります。

以上もふまえサンプルＤＢの仕様ですが
１．商品一覧表示フォームから当該商品を選択し、この商品の管理番号一覧フォームを開く

２．管理番号一覧フォームで目的とする管理番号を選択し、修理履歴フォームを開く

３．管理番号一覧フォームは新しい管理番号を追加でき、これはそれまでの最大プラス１になる

４．修理履歴テーブルは管理番号ごとに連番をもつ

５．修理履歴フォームから個々の修理明細フォームを開ける

６．修理明細フォームは上記の流れ以外、現在対象絞り込み（完了日未記入だけを絞り込む）からも開けるようにする

ざっとこんな感じでしょうか？よろしいか、あるいは仕様変更を補足してください。

補足

貴重なお時間をたくさん、たくさんさいていただき、また、いろいろとお考えいただき、ほんとうにほんとうに心より感謝申し上げます。

早速ですが、

>>受付フォームにて、受付をし、作業が完了した際には、再度、受付フォームを開いて、完了日を入力すれば良いのですよね？！
>これでも良いですが、クエリーを使用すれば、完了日未記入のものだけを一覧表示して処理するようなこともできます。どちらかというとその方が良いでしょう

につきましては、fuuten_no_nekoさまがおっしゃられるように、完了日未記入のものだけを一覧表示して処理する方法が私にもできるようであれば、是非そうしたいです！！

次に、顧客名についてですが、私の書き方が悪かったのですが、他のDBに存在するというのは、Accessではなく、全く異なったソフトにて売り上げ管理は行っておりますので、とりあえず、今回、顧客ID（オートナンバー）顧客名、ふりがな、備考のテーブルは必要になるかと思います。合ってますでしょうか？

>>コンボボックスで選択
につきましては、ご指摘のように、商品の種類はコンボボックスで表示できる限界の10～20以上を裕に越し、現時点で数百ありますので、ご提案のグループ分け、さらには「大分類」「中分類」「小分類」の方法を取りたいと思います。

DBの仕様についてですが、
私にできるようであれば、ご提案の１～６の内容は最高！！です。

ただ、
>３．管理番号一覧フォームは新しい管理番号を追加でき、これはそれまでの最大プラス１になる
の「最大プラス１になる」についてですが、
現在、すでに管理番号を取得している商品があり、それは、初めて受付をした日プラス2桁の連番を取っております。
例えば、商品Aを2009年3月11日に3点新規受付したとすると、管理番号は
商品A　09031101
商品A　09031102
商品A　09031103

となり、同じ、2009年3月11日に商品Bを3本新規受付すれば、
商品B　09031101
商品B　09031102
商品B　09031103

となっております。また、現場の人間に確認をしたところ、管理番号の取得形式は上記のとおりしたいとのことですので、なんとか、このような取得方法はできますでしょうか。

ほんとうに厚かましく申し訳ないのですが、どうかよろしくお願い申し上げます。

回答No.17

noname#182251

迂回でVBA実行ができるようなので、先に進めましょう。ただ先々不都合も考えられるので、プロトタイプが一応完成した時点で、もう一度マイクロソフトの有償サポートを検討してみては？
ともかくこれで＃５に書いた工程表の１．がようやく終わった状態です。
次は
１．管理台帳フォームを作成する。データのＳＱＬ文は
SELECT 管理テーブル.管理ID, 管理テーブル.管理番号, 管理テーブル.商品ID, 管理テーブル.顧客ID, 顧客テーブル.顧客名, 管理テーブル.登録日, 商品テーブル.商品名
FROM (管理テーブル LEFT JOIN 顧客テーブル ON 管理テーブル.顧客ID = 顧客テーブル.顧客ID) LEFT JOIN 商品テーブル ON 管理テーブル.商品ID = 商品テーブル.商品ID
ORDER BY 管理テーブル.管理番号;

２．メニューバーの「表示」から「フォームヘッダー/フッター」を表示するようにする

３．ヘッダーにはフィールドリストから「商品ID」「商品名」「管理ID」を貼り付ける

４．詳細にフィールドリストから「管理番号」を貼り付ける
５．詳細にツールボタンからコンボボックスを貼り付け、コントロールソースを「顧客ID」、値集合タイプを「テーブル/クエリ」値集合ソースのSQL文を
SELECT 顧客テーブル.顧客名, 顧客テーブル.顧客ID
FROM 顧客テーブル;
とする

６．商品一覧フォームをデザインモードで開き、商品名の右側にボタンを、適当な場所に「商品ＩＤ」テキストボックス追加する

７．「商品ＩＤ」テキストボックスは書式で「可視」を「いいえ」にする

８．ボタンを押すと管理フォームが開くようにし、「特定のレコードを表示する」で「商品ＩＤ<->商品ＩＤ」とする。これはＶＢＡで設定しても、マクロでやっても構わない

９．このボタンを押したとき、以下のコードが実行されるようにする

実行して、商品に対応した管理番号と顧客の組み合わせが表示されることを確認。もちろん、これに先立ち「管理テーブル」と「顧客テーブル」には、適切な値がはいっているものとする

補足

>８．ボタンを押すと管理フォームが開くようにし、「特定のレコードを表示する」で「商品ＩＤ<->商品ＩＤ」とする。これはＶＢＡで設定しても、マクロでやっても構わない

についてですが、VBAでした場合、下記の内容で間違いないでしょうか。。

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "管理番号フォーム"
stLinkCriteria = "[商品ID]=" & Form_商品一覧フォーム![商品ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

昨晩、どちらも試してみたのですが、マクロですると、パラメータの入力をもとめられたり、VBAですると、入力内容が間違っているようで、うまくいかず、悪戦苦闘していました（汗）

回答No.16

noname#182251

左上方でアクセスのアイコンの右側です。その近辺の画像を貼り付けます。

補足

出来ました！！！
完璧に絞り込んで、中分類選択フォームを表示できました！！

ほんとうに、手とり足とり、ありがとうござます！！！

回答No.15

noname#182251

>やはり、確認をした方が、この先の作業のためには良いでしょうか

良いと思いますが、有料と云うことでは難しいですね。
別の方法を試してみましょう
１．モジュールの作成
２．Module1がほとんど空白の状態で開くので、ツールバーの左から二番目のボタンを利用し、プロシージャの追加をします
３．名前は（適当でよいのですが）「中分類選択フォームOpen」種類は「function」後はディフォルトで
４．空白のファンクション中身に以下をコピーペースト
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "中分類選択フォーム"
stLinkCriteria = "[中分類ID]=" & Form_中分類一覧フォーム![中分類ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

５．中分類一覧フォームをデザインモードで開き、ボタンを追加し、ウィザードはキャンセル
６．プロパティで「クリック時」の右「...」ボタンを押し、マクロビルダを起動
６．マクロのアクションをプロシージャの実行にし、下方のプロシージャ名テキストボックスに「中分類選択フォームOpen () 」
７．上記６．の作業はテキストボックス右側の「...」式ビルダボタンを押して、関数の「＋」ボタンで中身を展開し、当該データベース名のmodule1の中から選択でできます

これでマクロ経由のＶＢＡ実行ができるはずですがどうでしょうか？

補足

早速のご回答ありがとうございます！！

いきなりで申し訳ないのですが、

>２．Module1がほとんど空白の状態で開くので、ツールバーの左から二番目のボタンを利用し、プロシージャの追加をします

上記の「ツールバーの左から二番目のボタンを利用し、プロシージャの追加をします」がわかりません（汗）

ツールバーのボタンって、どれでしょうか？？（大汗）

ほんとうに、すみません。。

回答No.14

noname#182251

＃１４を書いたつもりでいましたが、上手くアップロードされなかったようです。

>＃7まで完了した状態になりましたので、恐れ入りますが、続きを
と云うことですが、マイクロソフトに質問できるのであれば、「＃１２のＶＢＡは何故機能しないか？」を確認できないでしょうか。管理番号の自動生成など、どうしてもＶＢＡによる記述が必要になります。マクロからさらにＶＢＡを起動する方法もあるでしょうが、例えばボタンを押したとき、ＶＢＡで全て記述した方が自然ですし、メンテナンスも楽でしょう。

補足

先日は、マイクロソフトの無償サポートにて、確認をしました。
そこへ、早速、再度、＃１２のＶＢＡについて確認をしようとしたのですが、ＶＢＡに関しては、有償サポートになるとのことで、確認できませんでした。。

やはり、確認をした方が、この先の作業のためには良いでしょうか。

回答No.13

noname#182251

弱りましたね(^^;
あとは「中分類一覧フォーム」の「コマンドボタン28」のプロパティが添付画像のようになっているか？ウィンドウタイトルは違っていて仕方ありません。

補足

ご連絡、遅くなりました！！

コマンドボタンのウィザードについて、マイクロソフトに確認したところ、やはり、希望の動きができないみたいなので、マクロで開く方法を教わり、「商品中分類一覧フォーム」から、希望の「商品中分類名称」をクリックすると、商品中分類選択フォームを絞り込んで表示することができました。（ボタンはつけていません）

ちなみに、マクロは、
「フォームを開く」と「再クエリ」をアクションに入れ、「フォームを開く」でのWhere条件式は下記の通りです。

[商品中分類テーブル]![商品中分類ID]=[Forms]![商品大分類選択フォーム]![商品中分類一覧フォーム].[Form]![商品中分類ID]

ほんとうに、お手数をお掛けして、申し訳ございませんでした。

ということで、＃7まで完了した状態になりましたので、恐れ入りますが、続きをご教授くださいますようお願い申し上げます。

どうぞ、よろしくお願いいたします。

回答No.12

noname#182251

>何か、方法はございますでしょうか

1．確認。コピー・ペースとした結果は、下記のようなPrivate Subになっているか。

Private Sub コマンド9_Click() '←ここの数字は違っていても良い
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "中分類選択フォーム"
stLinkCriteria = "[中分類ID]=" & Me![中分類ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

２．ブレークポイントの設定
stDocName = "中分類選択フォーム" 'この行にカーソルを合わせて、Ｆ９キー
その行が茶色く反転され、ブレークポイントが設定される。この状態でフォームをアクティブにし、当該ボタンを押してみる。正常に動作すればブレークポイントで黄色く反転してプログラムの実行が都丸。

補足

早速のご連絡、ありがとうございます。

コピーペーストした内容は下記のとおりです。

Private Sub コマンド28_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "中分類選択フォーム"
stLinkCriteria = "[中分類ID]=" & Me![中分類ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

>２．ブレークポイントの設定

についてですが、ご指定の行で茶色く反転しましたが、黄色に反転せず、やはりフォームは開かない状態です。。。

きっと、とても簡単なことなのだろうに、つまずいてすみません。。

回答No.11

noname#182251

>上記、完璧にできていますが、ボタンを押すと、フォームは開くのに、絞込みだけができないです

ウーン、良く判りません。以前提示された、埋め込みマクロの内容もおかしくないし。仕方ないので、強引にＶＢＡを書く方法で試してみては？

１．ボタンを貼り付け、ウィザードが起動したら、すぐにキャンセルボタンを押す

２．当該ボタンのプロパティで、イベントを見て、クリック時（多分空白になっている）の右側にある「...」ボタンを押す

３．ビルダの選択で「コードビルダ」を選択

４．以下のようなコード（コマンド9の数字は色々）が生成されたら（バージョンが違うので、異なるコードが生成されるかも）
Private Sub コマンド9_Click()

End Sub

４．中間の空白部分に、下記をコピー・ペーストする

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "中分類選択フォーム"
stLinkCriteria = "[中分類ID]=" & Me![中分類ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

５．これを実行するとどうなるでしょうか？

補足

早速のご回答、ありがとうございます。

VBAをコピペして試してみましたが、まったく中分類選択フォームが開かず、無反応です。

何か、方法はございますでしょうか。。

回答No.10

noname#182251

埋め込みマクロはAccess2007の新機能なんですね。こちらで試験ができないので弱りました(^^;

>中分類一覧フォームから中分類IDで関連づけるフォームは中分類選択フォームですよね

ちょっと私の方で混乱していました。結論から云うと、「中分類選択フォーム」はなくても商品を絞り込むことができます。＃９に着けたのはその画像でした。しかし「中分類選択フォーム」を介在させた方が、中分類名称を表示しながら、商品の絞り込みができます。ともかく以下は確認ですが
１．＃９画像のようなところで「中分類ID<->中分類ID」とできたか？
２．「中分類選択フォーム」の「移動ボタン」を「はい」に替え、レコードの移動はできるか？
３．レコードが移動できたら、それに従い商品の絞り込みは変化するか？

補足

やっぱり、Accessのバージョンの違いだったのですね。

中分類選択フォームについては、了解しました！！

また、下記の件ですが、
>１．＃９画像のようなところで「中分類ID<->中分類ID」とできたか？

できました！！ばっちり同じ画面が出てきて、まったく同じ作業ができました！！

>２．「中分類選択フォーム」の「移動ボタン」を「はい」に替え、レコードの移動はできるか？

できます！！

>３．レコードが移動できたら、それに従い商品の絞り込みは変化するか？

絞込み内容も完璧に変化しています！！

上記、完璧にできていますが、ボタンを押すと、フォームは開くのに、絞込みだけができないです。。

回答No.9

noname#182251

>「商品選択」ボタンについては、あれから何度かやり直したりしてみましたが、やはり、うまく動作しません

ボタンを貼り付けてから、ウイザードの各段階をキチンとチェックしてください。とくに「関連づけるフィールド」を指定する段階。関連づけが正しくできれば、下の方に表示される「関連づけるフィールド」の右側に「中分類ID<->中分類ID」が出現します。
またボタン作成後、そのボタンのプロパティで「イベント」の「クリック時」を見て、右の方にある「...」ボタンを押すと、以下のようなコードが見えるはずです

On Error GoTo Err_コマンド6_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "商品一覧フォーム"

stLinkCriteria = "[中分類ID]=" & Me![中分類ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_コマンド6_Click:
Exit Sub

Err_コマンド6_Click:
MsgBox Err.Description
Resume Exit_コマンド6_Click

補足

すみません、何度も最初から見直し、「商品選択」ボタンを試みているのですが、やはりうまくいきません。

なお、確認なのですが、中分類一覧フォームから中分類IDで関連づけるフォームは中分類選択フォームですよね？！商品一覧フォームですか？
ただ、現時点では、どちらにしても絞り込まれません。

また、ボタンのプロパティで「イベント」の「クリック時」を見て、右の方にある「...」ボタンを押しても、ご連絡いただいたコードはみえません。

ウィザードでボタンを作成した後、「イベント」の「クリック時」の「...」を押して表示されているものは、以下の通りです。
「アクション」　フォームを開く
「フォーム名」　=ChrW(20995) & ChrW(20855) & ChrW(20013) & ChrW(20998) & ChrW(-26530) & ChrW(-28552) & ChrW(25246) & ChrW(12501) & ChrW(12457) & ChrW(12540) & ChrW(12512)
「ビュー」　フォーム ビュー
「フィルタ名」　空白
「Whrer条件式」　"[中分類ID]=" & [中分類ID]
「データモード」　空白
「ウィンドウモード」　標準

また、コマンドボタンウィザードの最終段階、「ボタン名を指定してください」にて、

「注意：このウィザードでは、Access2003、およびそれ以前のバージョンでは実行と編集ができない埋め込みマクロが作成されます。」
と書かれています。何か関係ありますでしょうか。

ちなみに、ボタン作成後、プロパティの「イベント」「クリック時」には、「埋め込みマクロ」と記載されます。

恐れ入りますが、間違っている箇所お分かりになりますでしょうか。
ほんとうに、お手数をお掛けいたしまして、申し訳ございません。。

回答No.8

noname#182251

>大分類や中分類の選択フォームにて、選択のテストをする際、名称欄の内容を手打ちで入力し直した場合には、テーブルのレコード内容が書き換えられてしまうのですが、手打ちで入力してテストすることは間違ってるのでしょうか

間違っています。必ずレコードの移動でやってください。親子フォームのリンクはＩＤによってなされています（そうでなければ修正してください）。レコードを移動すると、ユーザーから理解しやすい名称で確認しながら、リンク自体は確実なＩＤによってなされます。この仕組みを利用すれば、同じ名称があっても、備考で区別してリンクすることも可能になります。
現在作成中のプロトタイプはともかく、最終的に現場で使って貰うものは、フォーム自体を「更新の許可」を「いいえ」にするなど、データ保護の必要があります。そうしないとＤＢが収拾不能の混乱に陥ります。

補足

早速のご回答、ありがとうございます。

やっぱりそうですよね。。なんか変だなと思いつつ、やり過ごすところでした。
お伺いすることができて、ほんとうに良かったです。
ちなみに、当然でしょうが、レコードの移動で選択すると、レコード内容が書き換えられることはありませんでした。

小さいながら、重要な疑問が解決され、とてもスッキリしました。ありがとうございました。

なお、「商品選択」ボタンについては、あれから何度かやり直したりしてみましたが、やはり、うまく動作しません。
また、お時間がございます時に、ご教授くださいますよう、よろしくお願い申し上げます。

いつも、ほんとうにほんとうに、ありがとうございます。