No.1ベストアンサー
- 回答日時:
>VBAでテーブル作成クエリーを、SQL文で直接記述しています。
であれば、SQL文を動的に変化させることで対応可能なのではないでしょうか。
例えばこんな感じ
Sub TEST1()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StSQL1 As String, StSQL2 As String
Set DB = CurrentDb
StSQL1 = "select 部門コード,部門名 from 部門マスタ"
Set RS = DB.OpenRecordset(StSQL1)
Do Until RS.EOF
StSQL2 = "SELECT フィールド1, フィールド2 INTO " & RS!部門名 & " FROM テーブル名"
DB.Execute StSQL2
RS.MoveNext
Loop
End Sub
この回答への補足
早速ありがとうございます!
まさに教えていただいた通りのことを考えているのですが、
テーブル名は実は、システム年月と部署名を連結させたバリアント型の変数を
渡そうとしています。
例えば2002年1月の営業部だったら「T_0201営業」みたいなテーブル名称です。
単純に書き方が悪いんでしょうかね・・。
No.2
- 回答日時:
目的は、書き出すテーブル名を記述できれば良いことなので、以下のSQL文の
"RS!部門名"と書かれているところを変化させてあげればいいことになります。
StSQL2 = "SELECT フィールド1, フィールド2 INTO " & RS!部門名 & " FROM テーブル名"
>2002年1月の営業部だったら「T_0201営業」みたいなテーブル名称です。
日付型のデータがあるという仮定でまず"0201"を取り出すには
Format(日付データ,"yymm")
で取得できます。
ですから作成するSQL文は、文字列型変数"StTABLE_NAME"を宣言して
StTABLE_NAME = "T_ " & Format(日付データ,"yymm") & RS!部門名
StSQL2 = "SELECT フィールド1, フィールド2 INTO " & StTABLE_NAME & " FROM テーブル名"
となります。
尚、必要に応じて、Where句等を入れてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Microsoft Accessについて 1 2022/06/06 16:20
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Oracle sqlで質問です。 aテーブルとbテーブルがあり、下記のsqlで取得したidとnameに一致しないレ 1 2022/04/20 20:34
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSの時刻の引き算
-
クエリ上でフィールド名が2つ...
-
アクセスでの、フォームとテー...
-
アクセスクエリで英数字のみ半...
-
accessで2つのフィールドを同時...
-
アクセスに自動入力を入れたい
-
アクセスの追加クエリで教えて...
-
テーブルとクエリの相関図は表...
-
Access フォーム上でのテキス...
-
Access コンボボックスの絞り...
-
アクセス: フォーム上で計算...
-
Access フォームで複数テーブル...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
エクセルデータをワードで差し...
-
テキストボックスにクエリ結果...
-
アクセスのエラー「クエリには...
-
ACCESS クエリの抽出条件に他の...
-
Accessの桁区切りについ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス・テーブルの改行につ...
-
アクセス: フォーム上で計算...
-
クエリ上でフィールド名が2つ...
-
Accessで更新履歴情報を保存(...
-
アクセスでの、フォームとテー...
-
ACCESSの時刻の引き算
-
Access 別テーブルにある値を抽...
-
テーブルとクエリの相関図は表...
-
INT関数のバグ?
-
Access フォーム上でのテキス...
-
アクセスクエリで英数字のみ半...
-
アクセス:SQLでフィールド...
-
アクセスの追加クエリで教えて...
-
アクセスに自動入力を入れたい
-
ACCESSのリストボックスで複数...
-
access テーブルの色分けについて
-
Access2013 クエリ内別フィール...
-
アクセスでテーブル入力用のフ...
-
Access 住所入力支援が機能しま...
-
Access フォームで複数テーブル...
おすすめ情報