Microsoft Access 掲示板

ACCESSにはピボットテーブルのようなものがありませんが、ある指定した範囲や条件の集計をひとつのレコードもして扱うことはできませんか？

クロス集計クエリというものがあります。

上部に日付と名コードを配置して下部に子テーブルとして数量をいれるフィールドを配置するものだと思います

フォームを作成してテキストボックスを配置すると規定値プロパティが使えるので、VBAでこれを制御するのが分かりやすいと思います

このときに、キーボードからマウスに持ち替えなくていいように
任意のタイミングで、任意のキーを押すと、日付フィールドや名コードをアクティブにするのとはできますか？もちろんまた、数量フィールドにも戻りたいです

キー入力時というイベントがあるので、これで任意のキー入力に対して特定のコントロールをアクティブにすることができます。

また、オプションに「Enterキー入力後の動作」があるので、これを変更するとExcelと似たような動作になります。
このオプションはパソコン（インストールされたACCESS）毎の設定をデフォルトから変えることになるので、環境ごとに設定が必要です。

ACCESSだと、クロス集計クエリで集計した結果と、他のテーブルのレコードを
請求書レポートに並べることになりますが、かんたんに混ぜることはできますか？

前段階でクエリでデータを結合しておく、レポートにレポートを埋め込む仕組み（サブレポート）、VBAによる制御、等柔軟に対応する仕組みはあるので大抵のことはできますが、どの程度なら「かんたん」で済むのかは要件次第でしょう

集計結果に請求書番号を付与することはできないと思いますし
請求書作成時に、大本のレコードすべてに付与することもむずかしいでしょうか？

ルールさえしっかりしていればできないことはないと思います。
ただ、請求書番号が未決定のレコードについて、新規で番号を取ればいいのか、集計で統合される別なレコードですでに決定されていないか、それらで請求書番号に矛盾がないか等の問題と対策が発生します。請求書番号は集計結果ごとの管理にしたほうが楽でしょう。

また、ちょっと難しい言い方になりますが、「印刷時に自動で請求書番号を決定するシステム」は難しいです。
プレビューで請求書番号を仮発行するのか、キャンセルした場合どうするのか、上記問題と合わせてどのような表示順にするのか
そして、これらを実現するための複雑な処理等、様々なことに悩まされることになります。

集計結果を1つのレコードとして扱いたい場合は、一旦EXCELで入力、集計してインポートするのが
一般的でしょうか？

集計条件を記録するテーブルを用意してそこに条件を追加していけばいいです。集計結果自体は計算で求まるので記録する必要はないですし、そのテーブルに「請求書番号」フィールドを設ければ、集計結果の1レコードごとに「請求書番号」を管理することができます。

結局のところデータ構造自体はよくある「請求書」「請求明細」の構造と同じです。運用や作業性に合わせてどのようにシステムを組み込んでいくかという問題になると思います

くわしい解説ありがとうございます
集計条件を記録するテーブルを用意、というのはどういったものですか？
理解できなくてすみません

　始めてみないとわからないと思いますよ？

日付  名コード  数量　と3行あり、それぞれにいれていきます

　テーブル作成、クエリ作成(テーブルのクエリ化)、フォーム作成(クエリのフォーム化)、集合形式から表形式に変更、高さ、上位置、左位置の微調整、単票フォームから帳票フォームに変更まで、頑張りましょう。
　まず、テーブル作成ボタンを見つけて、データ型を選べますか？主キーのON/OFFを出来ますか？
　次に、クエリ作成ボタンを見つけて、何をどうすればいいかわかりますか？テーブルを選んで、フィールドを選ぶだけですが。
　最後に、フォームは、基本操作の解説動画を探して下さい。思い通りに移動させたり、大きくしたり小さくしたり、出来ますか？ワードやエクセルのように、雰囲気では無理です。

VBAで上の日付と名コードセルを自動コピーするようにしていて、数量だけを、資料をもとにいれまくるものです。日付や名コードが変わるときには手動で修正しています。

日付のプロパティ・・・・・既定値Date()
名コードのプロパティ・・・既定値ほにゃらら(数値型、短いテキスト型、既定値を決めて下さい。)

Private Sub 日付_AfterUpdate()
    Me.日付.DefaultValue = “#” & Me.日付 & “#”
End Sub

Private Sub 名コード_AfterUpdate()
    Me.名コード.DefaultValue = Me.名コード
End Sub

Private Sub 数量_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    Select Case KeyCode
       Case vbKeyUp
          DoCmd.GoToRecord , , acPrevious
       Case vbKeyDown
          DoCmd.GoToRecord , , acNext
       Case Else

    End Select
End Sub