Private Sub グループフッター3_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.グループA) Or IsNull(Me.グループB) Then
Else
Cancel = (Me.グループA = Me.グループB)
End If
End Sub
Private Sub Aグループフッター_Format(Cancel As Integer, FormatCount As Integer)
Debug.Print "AFooter", Me!A小計
End Sub
Private Sub Bグループフッター_Format(Cancel As Integer, FormatCount As Integer)
Debug.Print Me!ID, Me!A小計, Me!B小計
End Sub
SELECT
T_TOKU.得意先ＣＤ, T_TOKU.得意先名, T_TOKU.担当営業所ＣＤ AS 営業所CD,
IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先ＣＤ],[グループコード担当者マスタ]![グループNo]) AS [ｸﾞﾙｰﾌﾟCD/得意先CD],
IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先名],[グループコード担当者マスタ]![グループ名]) AS [ｸﾞﾙｰﾌﾟ名/得意先名],
T_TOKU.旧得意先ＣＤ
FROM
T_TOKU LEFT JOIN [グループコード担当者マスタ] ON T_TOKU.得意先ＣＤ = [グループコード担当者マスタ].得意先CD
ORDER BY T_TOKU.得意先ＣＤ;
それで可能ですよ。
まずは、メインの方を追加してから、サブを追加という順番になります。
メインを追加した後で、オートナンバーのIDの最大値（＝追加したレコードのID)を取得して、
サブの外部キーの値にします。
下記のような感じのコードになります。
その場限りでなく、レコード移動したりフォームを閉じてから開いても、入力時の書式を保存しておきたいということなら、
日付/時刻型のフィールドでは無理ですね。テキスト型にするか、別に西暦か和暦かを保存しておくフィールドが必要になります。
単票フォームですよね？
TextBox.Text property (Access)
入力中の文字列は
Textプロパティで参照できるので1文字目が数字かそうでないかで書式を変更すればいいかな？hirotonさま＞
ありがとうございます。
自分で書いておいて、IFがあるのをすっかり見落としていました…
確かに今私が行いたい挙動にはいらない部分でした。
＞&&99\年99\月99\日;0;_
ありがとうございます！
＞実際にどんな入力をするんですか？
提出された履歴書を元に入力しますが、履歴書に書かれているデータが和暦だったり西暦だったりするので、どちらでも入力できるようにしたいと希望があったのです。
おかげさまでどちらでも入力できるようになりました。
ありがとうございます。
ちなみになのですが、年月のみの表示（卒業年月など）のデータで
オプショングループを選択しない状態でも入力することもあるのですが、
入力されたデータの書式（西暦か和暦）通りの書式で
yyyy年m月かge年m月と表示することはできるのでしょうか？
（現在は入力は上記のように自由に選べますが、入力後フォーカスが移動したら、入力がどのような書式だったとしても、表示は指定の書式の表示になります）
もしご教示いただけたら助かります。
よろしくお願いします。
追加クエリで対応しようとトライしていましたが、不可能な気がしてきました。
メインとサブがある部分で引っかかってしまいます。
どのような方法があるかご教示いただけると助かります。
例えば西暦入力に切り替えようとします
新規入力（データがない状態）だと実行されないコードですがそこは大丈夫ですか？
生年月日だけは
で、条件判定がないので常に切り替わります。それぞれの
Ifが何をしたいのか確認してみてくださいTextBox.InputMask property (Access)
で、どちらでも入力できるはずですが実際にどんな入力をするんですか？
プロパティの「印刷時の縮小」を「はい」にすると、空の場合詰めて印刷されます。
どうでしょうか。
なるほど！よくわかりました。便利なものができそうです。ありがとうございました！！
同じ内容を入力したくないなら更新後処理で規定値を変更するようにすればいいです
さらに、登録済みデータ（Tデータとする）から種類を選択したいなら登録済みデータからリストを作ってしまえばいいです。フォームを開いた後に追加されたデータはリストに表示されないのでフォーカス取得時にリストを更新するようにします
値集合ソース：SELECT 種類 FROM Tデータ GROUP BY 種類 ORDER BY 種類;
値集合タイプ：テーブル/クエリ
入力チェック：いいえ
登録済みデータのうち一部を表示したいとかだとやっぱり値リストやそれ用に別なテーブルを作る必要があります
上記の設定だけで編集は可能になりますが、リスト項目編集フォームの方で新規レコードへ移動、既定値をコンボボックスに入力した値に設定などをするようにすると使いやすいものにできますね。
③までで、あってますよ。
あと、「入力チェック」を「はい」、「値リストの編集の許可」を「はい」に設定しておけばOKです。
下記も参考にしてください。
■T'sWare Access Tips #471 ～コンボボックスから値集合ソース編集画面を表示する方法～
ありがとうございます。
早速作ってみたのですが、理解しきれていないようです。
①新しくリスト項目のテーブルを作成
②①を基にフォームを作成
③利用したいコンボボックスを選択してプロパティ「リスト項目編集フォーム」から該当のフォームを選択。
④？
④からがわかりませんでした…（③までも間違っているでしょうか）
自宅にあったプロパティ辞典にも乗っておらず…
辞典をパラパラしながらふと思ったのですが、そもそも今回の質問についてですが
何のために行っているかというと、グループ名設定のためになります。
レポートにするときのグループ分けのため、レコード毎に同じグループを入力するのが面倒なので、コンボボックスを設置していました。
（サブに1個ずつと、メインからはチェックしたものに一括で入れるためのコンボボックス）
グループ名設定となると、他に良い方法があったりしますでしょうか…？
以上お手数をおかけいたします。宜しくお願いいたします。
参考に挙げたものは基本的なところなのであとはExcel VBAの知識が必要になります
大まかな書式（罫線や塗りも含め）はテンプレートとしてExcelファイルを作っておき、VBAでシートのコピーや行、セルのコピーで書式を整形して、そうしたらデータを流し込む
こんな流れになると思います。書式の設定からVBAでやってもいいんですが、いずれにせよその部分はEXCEL VBAの知識で組み立てることになります。記述自体はACCESS VBAの上でもできますよ（諸注意あり）という具合ですね
というわけで、「書式の整形がうまくいきません」ならExcel（Excel VBA）の問題になるので情報の調べ方に気を使ってみてください
車庫IDが数値型の場合なら、
車庫IDがテキスト型の場合なら、
DoCmd.OpenReport "L書類", acViewPreview, "車庫ID=" & Me.ID & "AND 印刷=True"""
すみません自己解決しました。印刷のところをコントロールソースにしたらうまくいきました。
テーブルなら、「リスト項目編集フォーム」に値集合ソースのテーブルをレコードソースとするフォームを設定すると、「値リストの編集」をクリックするそのフォームが表示されます。これだとVBAなしでできます。
ListItemsEditForm プロパティ (Access) | Microsoft Docs
hirotonさん紹介のNotInListイベントを使うとVBAが必要ですか、もっと使いやすいUIを構築できます。
ComboBox.NotInList event (Access)
色々と参照ページを教えていただき、ありがとうございます。１つずつ紐解いていけば必ず作成できるんですよね…
聞きなれないワード（バインディング）にビビっていますが、なんとか地道に作成していきたいと思います。ありがとうございました！
ACCESS VBAでそのままEXCELを操作する感じでしょう
AccessからExcelへ出力させるVBAの書き方（note - DeepBlue Writingさん）
Excelセルへ個別出力する基本パターン（T'sWareさん）
事前バインディングと遅延バインディング（実行時バインディング）（鵜原パソコンソフト研究所さん）
VBプログラムで開発環境と実行環境のExcelのバージョンが異なるとき（Qiita -@carbonated3030さん）
AccessのVBAでExcelを参照設定なしで使う方法（てつみのブログさん）
レポートの作成が落ち着いてきたため、Excelへの出力を考えています。
かなり難しそうですね…
無理かもしれませんが・・・イメージを教えてください。
①アクセスから該当のデータをクエリからエクセルにエクスポート（サブとメインあわせて２つ）
②エクセルから２つのデータを取り込み、任意の配置を行う。
④配置されたデータから判断して罫線を引く。色を塗る。
このようなVBAの流れになりますでしょうか。
アクセスでエクスポートして、続きはエクセルのVBAでしょうか。
以上よろしくお願いいたします。
ケアレスミスしてました…うまくいきました。
こちらの方法で1回うまくいったと思っていたのですが、「nullの値が不正です」との警告が出て、固まるようになりました。なにか間違っているのでしょうか…
ありがとうございました。
新たに立ち上げると、イントラへのログインが必要だったため、うまくいきませんでしたが勉強になりました。
テーブルにするなら
ComboBox.NotInList event (Access)
テーブルにしないならサブフォームのフォーカス取得時/喪失時イベントで値集合ソースの比較をするとかかな？
グループヘッダーに集計用テキストボックス
=Sum()、=Count()を置いた場合でもちゃんとグループ内の集計が取得できますので、formatイベントに関係なくグループ全体の集計をしているみたいですね。ちなみに詳細セクションに集計関数を置くと全体の修正をするようです。一番目のレコードでも全体集計になります。
先日教えていただいた、値リストの編集を便利に活用しております。
わがままな要望なのですが、この値リストをサブフォームとメインフォームで共有することはできますでしょうか。
テーブルにすれば可能だと思いますが、テーブルにした場合コンボボックスから直接編集はできますでしょうか…
難しそうであればメインに絞ろうとは思っているのですが、可能であれば教えていただけると助かります。
これすごいですねぇ。試してみたら確かにBグループのフッターのformatイベントでAグループのフッターの小計が取れました。Aグループのフッターのformatイベント入る前なのでどうかと思ってたんですが計算自体は終わってる上にちゃんと自分のグループの数値が取れるんですね
テストデータ
レポートのグループ化の設定
グループ化:A、フッターにテキストボックス[A小計]（=Sum([n])）
└グループ化:B、フッターにテキストボックス[B小計]（=Sum([n])）
テストコード
出力結果
※未出力のフッターの集計がきちんととれてる（Me!A小計）
※レコードの参照はグループの最後のレコードっぽい（並び順指定してなかったらIDはなぜか降順に・・・）
回答ありがとうございました。
教えていただいた方法で、無事デバッグできました。（FROMの直前にスペースがありませんでした)
サブフォームの場合は、下記の書式で参照できます。
[Forms]![メインフォーム名]![サブフォームコントロール名].[Form]![コントロール名]
サブフォームコントロール名は下記を参照してください。
サブフォームとサブフォームコントロールの違いとは？ - hatena chips
おっしゃるとおり、「Bレベルグループの数を事前に数えておく」ところでひっかかってしまい、後回しにしていました。
いずれも教えていただき助かりました。
hiroton様、hatena様、ありがとうございました！
簡単に実現できる方法を思いつきました。
各グループの小計はグループフッターセクションで表示しているとします。
それぞれのグループの小計を表示しているテキストボックス名を、
A小計、B小計 とします。
Bグループのフッターセクションのフォーマット時に下記のように記述します。
要は、Aグループ内のBグループ数が1件ならA小計とB小計は同じになります。同じものを表示するのは無駄だということですよね。
同じなら、Cancel を True にしてそのセクションの出力をキャンセルしてます。
グループ内で集計テキストボックスを参照するとそのグループ内での集計値が取得できますので上記のコードでうまくいきます。
もし、マイナスの集計があり、たまたまA小計とB小計が同じになる可能性かあるなら、=Count(*) で件数を表示させるテキストボックスを配置しておいてそれを比較するようにすればいいでしょう。
グループのカウントはそんな感じですね。SQLの知識的なのは人に寄りけりってことでとりあえず回答に含めない感じでした
別案としては[page]使って事前にformat走らせて自前でカウントするなんてのも考えたんですが、レポートの印刷の都合考える必要ないんでクエリで事前に計算させとくのが楽だろうなとも
枠線に関しては、私は使ってないので分かりません。
枠線が実装される前から、直線コントロールかLineメソッドで罫線は引いていたので、ずっとその方法を使ってます。
境界線で罫線を引くと横罫線の太さが違ったりしたことがあったので上記の方法をとってます。
私もhirotonさんの回答の方法にすると思いますが、Bレベルグループの数を事前に数えておくというのがちょっと難しいですね。
Aグループ、Bグループでグループ化した集計クエリ、あるいは固有の値をはいにしたクエリを作成。
そのクエリからさらにAグループでグループ化、Bグループをカウントする集計クエリを作成。
このクエリをレポートのレコードソースのクエリに追加して、Aグループのキーフィールドで結合することになりますね。
Bレベルグループの数を事前に数えておいてAレベルグループのヘッダーで表示の切り替えをすればよさげ
承知しました。
コメント対応していただき、ありがとうございました。
２つのテーブルを結合する場合は、結合するフィールドの片方は主キー（あるいは重複なしインデックス）である必要があります。そうしないと更新できないクエリになったり、データに重複が出たりします。
「T_TOKUの主キーは鍵マークが無い」というのはデータベースの設計としては致命的な欠陥です。
テーブル設計から見直す必要があります。
提示されているフィールド名から推測するに少なくとも、
顧客マスター
グループマスター
担当者マスター
に相当するテーブルが必要になります。
あるいはそのように分割する必要があります。
このような掲示板でのやり取りで解決できる案件ではないように思います。
何年か前に作成し、現在は修正できる人がいません。
グループコード担当者マスタの主キーはIDです。
T_TOKUの主キーは鍵マークが無いです。
フィールド名は
得意先CD、得意先名、担当者CD、担当者営業所CD、旧得意先CD
です。
ひょっとして自分で作成したものではなく、前任者が製作したものの改修作業をしているのでしょうか。
前任者に聞くのが一番早いのですが、連絡がとれないとうい状況なんでしょうか。
そのテーブルの主キーフィールドはなんでしょうか。
また、SQLをみると T_TOKU というテーブルがあるようですが、そのテーブル内のフィールド名と主キー設定を教えてください。
教えてください。
グループコード担当者マスタというテーブルを作成しました。
フィールドは
ID、グループNo、グループ名、代表営業所CD、得意先CD、得意先名、営業所名、担当者CD、担当者名を作りました。
現在利用中のクエリを見てみると、下記SQL文が記載されています。この意味と、
このSQL文に営業所名、担当者CD、担当者名を追加記述するにはどうやって書いたらいいか教えてください。
T_TOKUというテーブルのフィールドには担当者CD、T_TOKU2というテーブルのフィールドにTANCD、TANM（担当者名）があります。
SELECT
T_TOKU.得意先ＣＤ, T_TOKU.得意先名, T_TOKU.担当営業所ＣＤ AS 営業所CD,
IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先ＣＤ],[グループコード担当者マスタ]![グループNo]) AS [ｸﾞﾙｰﾌﾟCD/得意先CD],
IIf(IsNull([グループコード担当者マスタ]![グループNo]),[T_TOKU]![得意先名],[グループコード担当者マスタ]![グループ名]) AS [ｸﾞﾙｰﾌﾟ名/得意先名],
T_TOKU.旧得意先ＣＤ
FROM
T_TOKU LEFT JOIN [グループコード担当者マスタ] ON T_TOKU.得意先ＣＤ = [グループコード担当者マスタ].得意先CD
ORDER BY T_TOKU.得意先ＣＤ;
スミマセン。いじってたらまた正常に動くようになりました…
何回も繰り返しているので、またおかしくなるかもしれないのですが、とりあえず今日のところは解決しました😰
失礼しました…
解決が難しい問題だとは思うのですが、ここ2ヶ月ほど悩まされており質問いたします。
上記教えていただいた「案件管理どんぐり」を参考に２つフォームを作って運用しているのですが
時々謎のエラー、「引数が無効です」に悩まされます。
色々いじってるとエラーが出なくなったり、同じ状況なのにまた出たりと
完全に謎のエラーです。2か月程ずっと色々試してきましたが、気まぐれなエラーです。
そして、「引数が無効です」と出ても結局選択値が反映されるので、まぁなんとか問題ない感じもするのですが
そのエラーのせいで、メインフォームのIDを引っ張ってこれず、また別のエラーになります。
手動でメインフォームのIDを記入すれば良いのですが、一般ユーザーにそれを求めるわけにもいかず
邪道ですっきりしないのですが、
①引数が無効ですのエラーを表示させない（on error なんとかで対応…？）
②コンボボックスを選択したら自動でメインフォームのIDを引っ張ってくる(コンボボックスの更新後処理で対応…？)
という処理をしようかと考えています・・・
でも気が重く・・・何か解決方法は思い当たりませんでしょうか。
解決方法に結び付く、確認方法などあれば何卒ご教示ください。
ちなみに「引数が無効です」エラーのことは何回も検索し、
xmlでテーブルをエクスポートしてインポートするなどは試しました。
バージョンは2016です。
なにとぞ、宜しくお願いいたします。