[過去ログ]
Access総合相談所 29 (1002レス)
Access総合相談所 29 http://mevius.5ch.net/test/read.cgi/bsoft/1569236545/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
157: 名無しさん@そうだ選挙にいこう [sage] 2019/11/18(月) 15:33:17.67 【 システム環境 】 Windows10, Access2016 【 VBAが使えるか 】 否(excelでは経験あり) 【 VBAでの回答 】 可 ACCESSに挑戦してます 社員テーブルに社員NO・氏名・課があります メインの数値テーブルに共通の項目と課毎に入力するフィールドを作成予定で フォームには共通項目とその課に該当するフィールドだけを表示させて 打ち込むようにしたい、と考えています ┏━━┓ ┃氏名┃ ┗━━┛ ↓T_社員から自動取得 ┏━━┓ ┃課一┃ ┗━━┛ ↓課に該当する項目を表示し、数値を入力 ┏━━━━━━━┓ ┃共通打込項目一┃←表示 ┗━━━━━━━┛ ┏━━━━━━━┓ ┃共通打込項目二┃←表示 ┗━━━━━━━┛ ┏━━━━━━━┓ ┃課一打込項目一┃←表示 ┗━━━━━━━┛ ┏━━━━━━━┓ ┃課二打込項目一┃←表示されない ┗━━━━━━━┛ 上記みたいなイメージですが可能でしょうか http://mevius.5ch.net/test/read.cgi/bsoft/1569236545/157
158: 名無しさん@そうだ選挙にいこう [sage] 2019/11/18(月) 18:27:17.92 >>157 課によって入力項目変わるんですね。 課マスターに 打たせる項目をboolean(yes no)か 1 0で入れときましょう。 フォーム用のクエリーは従業員のidをもとに従業員マスター経由で課マスターから課の名前、 打たせる項目の制御値を出しましょう。 フォームでは打たせる項目制御値を配置して非表示にしましょう。 実際に打たせる項目の表示非表示は どこで発火させるか、私も常々トライアンドエラーなので オブジェクトのイベント(更新後処理など)で試してください http://mevius.5ch.net/test/read.cgi/bsoft/1569236545/158
159: 名無しさん@そうだ選挙にいこう [] 2019/11/18(月) 23:33:38.38 >>157 可能でしょう。いくつかヒントをお伝えします。 ヒント1 社員NO(主キー),氏名,課 ↓ T_課 課ID(主キー),課名 T_社員 社員NO(主キー),氏名,課ID 課名の入力間違いがあるといけません、二つのテーブルに分けましょう。そして、その両者を課IDでリレーションシップしてください。 ヒント2 コンボボックスのプロパティの データタブにある値集合ソースをT_社員にして 連結列を1に 書式タブの列数を2、列幅を、0cm;(コンボボックスの幅)cmに こうすると、見かけ上は氏名を選択して、実質は社員NOを選択することができます。 ヒント3 フォーム上で課毎の打込項目コントロ-ルは重ねることができます。 とはいえ、フォームを開いたとき全部を表示されると みっともないので、まず、フォームの「開く時」イベントで課毎の打込項目全てを.Visible=falseにします。 社員NOを選択すれば課は特定できますから、そのコンボボックスの「更新後処理」イベントで dim 課ID as long 課ID=Dlookup("課ID","T_社員","社員NO ="&Me.[社員NO]) とかで課IDを取得し、それをselect case文で使って、それぞれのCASEに該当するものだけ.Visible=trueにし、それ以外は.Visible=falseにします。 不明な点があれば、追加で聞いてください。 http://mevius.5ch.net/test/read.cgi/bsoft/1569236545/159
180: 名無しさん@そうだ選挙にいこう [sage] 2019/11/21(木) 17:39:10.91 >>157です おかげさまで個人の月毎売上合計クエリまでは作成できました 次に課毎の売上を出そうと思ったのですが詰まってます https://www.accessdbstudy.net/entry/20080419/p1 上記URLを参考にもとになる社員一覧テーブルと異動があった場合に記録していく異動テーブルを作りました 過去の売上を出す場合、その契約日当時の課を出したいのですが 売上が同一な移動前と異動後の課が表示されてしまいます https://imgur.com/YTKof4Y.jpg とても初歩的なことで申し訳ないですがよろしくお願いいたします…。 http://mevius.5ch.net/test/read.cgi/bsoft/1569236545/180
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.608s*