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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クエリ上でフィールド名が2つ...
-
ACCESSのリストボックスで複数...
-
Accessでチェックボックスから...
-
アクセス・テーブルの改行につ...
-
トリガって何???
-
アクセス: フォーム上で計算...
-
アクセスクエリで英数字のみ半...
-
アクセスの計算方法を教えて下さい
-
ACCESSの時刻の引き算
-
アクセスでの、フォームとテー...
-
Access フォーム上でのテキス...
-
Access2013 クエリ内別フィール...
-
Access コンボボックスの絞り...
-
Access フォームで複数テーブル...
-
Access where条件式について
-
アクセスでフォームに入力した...
-
Accessで小数点以下の桁数を・・?
-
アクセスに自動入力を入れたい
-
アクセスのフォーム
-
アクセス:SQLでフィールド...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クエリ上でフィールド名が2つ...
-
アクセス・テーブルの改行につ...
-
ACCESSの時刻の引き算
-
アクセス: フォーム上で計算...
-
Accessで更新履歴情報を保存(...
-
アクセスでの、フォームとテー...
-
Access フォーム上でのテキス...
-
アクセスクエリで英数字のみ半...
-
Access 別テーブルにある値を抽...
-
アクセス:SQLでフィールド...
-
アクセスに自動入力を入れたい
-
アクセスの追加クエリで教えて...
-
INT関数のバグ?
-
Access フォームで複数テーブル...
-
Access 住所入力支援が機能しま...
-
Access2013 クエリ内別フィール...
-
アクセスでフォームに入力した...
-
Access ルックアップが反映され...
-
ACCESSのリストボックスで複数...
-
アクセスでテーブル入力用のフ...
おすすめ情報