Access テーブルのカラムのデータ内容で分割したテーブル作成

Question

動的変動するカラム内容で分割したテーブルを作成したいです。

下図テーブル「T_売上」を「生産物」で分割して、「野菜」・「果物」の新しいテーブルを作りたいのですが
「生産物」の内容は動的に変動し、何が投入されてくるかがわからず
前もってテーブル作成クエリに「野菜」「果物」などを仕込むことができません。

実現可能であれば、やり方をご教示いただけますでしょうか？
宜しくお願いいたします。

Answer 1

「T_売上」を「生産物」で分割して、「野菜」・「果物」の新しいテーブルを作りたい

何故ですか？
生産物を条件にして抽出するクエリーで事足りると思いますけど？

「生産物」の内容は動的に変動し、何が投入されてくるかがわからず

という事なら、「T_売上」の「生産物」をgroup byした結果リストから選ばせるようにすれば良いかと思いますし、そもそも何が来るか分からずに作成したテーブルにどうやってアクセスするつもりですか？

Answer 2

何が入ってくるかわからないんだとすれば、パラメータクエリを作成すればいいのではないでしょうか？
それともその都度任意で生産物を指定するのではなく、何かを実行した時に”T_売上”の生産物の全てのテーブルを作成したいという事でしょうか？
後者の場合だと、T_売上から生産物のパターンをクエリで抽出して、VBAでそのパターンの数だけテーブルを作成するクエリを動的に作成するしかないと思います。
他のDBだとSQLのカーソルで1レコードずつ動的に処理をさせられますが、Accessの場合はカーソルが使えない代わりにVBAがあるのでそちらを使うことになると思います。

---

追記

Sub test()
  Dim dbRes As Recordset
  Dim strSeisanbutu As String
  Dim strInstQuery As String
  
  Set dbRes = CurrentDb.OpenRecordset("select distinct 生産物 from T_売上")
  
  DoCmd.SetWarnings False
  
  Do Until dbRes.EOF
    strSeisanbutu = dbRes.Fields(0).Value
    
    strInstQuery = "select * " _
                    & "into " & strSeisanbutu & " " _
                    & "from T_売上 " _
                    & "where 生産物=""" & strSeisanbutu & """"
      
    DoCmd.RunSQL strInstQuery
    
    
    
    dbRes.MoveNext
  Loop
  
  DoCmd.SetWarnings True
End Sub

とりあえず、こんな感じでしょうか？
実行すれば生産物の種類だけテーブルが作成されます。
ただ、ほぼ無作為のように作られたテーブル群をどうやって管理するんでしょうか？
100種類の生産物があれば、100個のテーブルが作成されることになります。
おまけにテーブルを作成したらテーブルにアクセスするクエリも動的に書かないといけないと思いますが。

Comments

[satomidon]

Yuusukecchoさま
早速のご回答ありがとうございます。
はい、コマンドボタンをクリックした時に、”T_売上”の生産物の全てのテーブルを作成したい、です。
T_売上から生産物のパターンを作るところまではできそうですが、その後の「VBAでそのパターンの数だけテーブルを作成するクエリ」がわからず、お尋ねする次第です。
宜しくお願いいたします。

[yuuskeccho]

上にコード追記しましたが・・・。
↓でsaziさんも書かれていますが、どうやって管理するんでしょうか？