Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1408 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7288】テーブル作成クエリ チリ子 06/2/16(木) 16:05 質問[未読]
【7289】Re:テーブル作成クエリ クロ 06/2/16(木) 16:38 回答[未読]
【7296】Re:テーブル作成クエリ チリ子 06/2/17(金) 10:23 質問[未読]
【7297】Re:テーブル作成クエリ クロ 06/2/17(金) 10:28 回答[未読]
【7298】Re:テーブル作成クエリ チリ子 06/2/17(金) 10:31 回答[未読]
【7299】Re:テーブル作成クエリ クロ 06/2/17(金) 10:38 回答[未読]
【7300】Re:テーブル作成クエリ チリ子 06/2/17(金) 10:49 回答[未読]
【7301】Re:テーブル作成クエリ チリ子 06/2/17(金) 10:55 発言[未読]
【7302】Re:テーブル作成クエリ クロ 06/2/17(金) 11:05 回答[未読]
【7311】Re:テーブル作成クエリ チリ子 06/2/18(土) 15:49 回答[未読]
【7312】Re:テーブル作成クエリ クロ 06/2/18(土) 15:58 回答[未読]
【7288】テーブル作成クエリ
質問  チリ子  - 06/2/16(木) 16:05 -
引用なし
パスワード
   こんにちは。
テーブル作成クエリで質問があります。
テーブル作成クエリを利用してクエリ(集計)のデータを新テーブル(TEST)を作成しているのですが、これでは、テーブル作成クエリを実行する度にTESTテーブルに上書きされるかたちになります。
これを、上書きせず、新規でテーブルが出来るような方法はないでしょうか？
たとえば、テーブル作成クエリを実行すると、保存名を聞いてきてその名前で新規テーブルができるという内容です。
SQLビューでINTOの後に何か保存名を指定できるようなことを付け加えたら出来るのではないかと思い、いろいろと考えてみましたが、分かりません。
どなたかご教授下さい。
宜しくお願致します。

SELECT 集計.[No], 集計.都道府県, 集計.市町村名, 集計.ｺｰﾄﾞ, 集計.人数A, 集計.特別徴収税額A, 集計.人数B, 集計.特別徴収税額B, 集計.一括特別徴収税額B, 集計.人数C, 集計.特別徴収税額C, 集計.人数D, 集計.特別徴収税額D, 集計.指定番号 INTO TEST
FROM 集計;
【7289】Re:テーブル作成クエリ
回答  クロ  - 06/2/16(木) 16:38 -
引用なし
パスワード
   InputBoxで新規テーブル名を入力して変数(例えばstrTName)に新テーブル名を
入れ、それをSQLに組み込んでみては

Dim strTName As String
Dim strSQL As String

strTName=InputBox("新テーブル名を入れて")

strSQL = "SELECT [No], 都道府県, 市町村名, ｺｰﾄﾞ, 人数A, 特別徴収税額A," & _
　　　　 " 人数B, 特別徴収税額B, 一括特別徴収税額B, 人数C, 特別徴収税額C," & _
　　　　 " 人数D, 特別徴収税額D, 指定番号 INTO " & strTName & " FROM 集計;"

Docmd.RunSQL strSQL
'もしくはExecuteで

な感じで
【7296】Re:テーブル作成クエリ
質問  チリ子  - 06/2/17(金) 10:23 -
引用なし
パスワード
   ▼クロ さん：
>InputBoxで新規テーブル名を入力して変数(例えばstrTName)に新テーブル名を
>入れ、それをSQLに組み込んでみては
>
>Dim strTName As String
>Dim strSQL As String
>
>strTName=InputBox("新テーブル名を入れて")
>
>strSQL = "SELECT [No], 都道府県, 市町村名, ｺｰﾄﾞ, 人数A, 特別徴収税額A," & _
>　　　　 " 人数B, 特別徴収税額B, 一括特別徴収税額B, 人数C, 特別徴収税額C," & _
>　　　　 " 人数D, 特別徴収税額D, 指定番号 INTO " & strTName & " FROM 集計;"
>
>Docmd.RunSQL strSQL
>'もしくはExecuteで
>
>な感じで

お返事ありがとうございます。
ボタンに貼り付けて試してみたのですが、クリックしても何の反応もないのはどうしてでしょうか？
【7297】Re:テーブル作成クエリ
回答  クロ  - 06/2/17(金) 10:28 -
引用なし
パスワード
   おはようございます

>お返事ありがとうございます。
>ボタンに貼り付けて試してみたのですが、クリックしても何の反応もないのはどうしてでしょうか？

ボタンとはコマンドボタンですか？
クリック時のイベントを[イベントプロシージャ]にして、その欄の右に[…]ボタンを
クリックしてVBエディタを起動し、
Private Sub ボタン名_Click()
と
End Sub
の間に書いたのでしょうか？
【7298】Re:テーブル作成クエリ
回答  チリ子  - 06/2/17(金) 10:31 -
引用なし
パスワード
   ▼クロ さん：
>おはようございます
>
>ボタンとはコマンドボタンですか？
>クリック時のイベントを[イベントプロシージャ]にして、その欄の右に[…]ボタンを
>クリックしてVBエディタを起動し、
>Private Sub ボタン名_Click()
>と
>End Sub
>の間に書いたのでしょうか？

おはようございます。
そうです。間違ってたでしょうか？
【7299】Re:テーブル作成クエリ
回答  クロ  - 06/2/17(金) 10:38 -
引用なし
パスワード
   ▼チリ子 さん：
>そうです。間違ってたでしょうか？

いえ、それでいいと思います。
Inputboxも出ませんか？

VBエディタのメニュー>デバッグ>***アプリケーションのコンパイル
をして何かエラーが出ませんか？

それと、strSQLの部分をコピペして貼り付けてください。
【7300】Re:テーブル作成クエリ
回答  チリ子  - 06/2/17(金) 10:49 -
引用なし
パスワード
   ▼クロ さん：

>いえ、それでいいと思います。
>Inputboxも出ませんか？
出ません。
>
>VBエディタのメニュー>デバッグ>***アプリケーションのコンパイル
>をして何かエラーが出ませんか？
出ません。アプリケーションのコンパイルが透明になって押せません。

>それと、strSQLの部分をコピペして貼り付けてください。

strSQL = "SELECT [No], 都道府県, 市町村名, ｺｰﾄﾞ, 人数A, 特別徴収税額A," & _
　　　　 " 人数B, 特別徴収税額B, 一括特別徴収税額B, 人数C, 特別徴収税額C," & _
　　　　 " 人数D, 特別徴収税額D, 指定番号 INTO " & strTName & " FROM 集計;"

どうでしょうか？
【7301】Re:テーブル作成クエリ
発言  チリ子  - 06/2/17(金) 10:55 -
引用なし
パスワード
   ▼チリ子 さん：
>▼クロ さん：

すいません!!
ミスを発見できました!!!!
VBを書くところで間違ったところに書いていました。
お騒がせしてすいません(-_-;)
出来ました(*^_^*)
ありがとうございました。<m(__)m>
【7302】Re:テーブル作成クエリ
回答  クロ  - 06/2/17(金) 11:05 -
引用なし
パスワード
   問題ないようですが…
FROM句にある「集計」というのはテーブルですか？

他所ではありますが、サンプルを上げましたので
拾ってみてください。
http://www.penhagi.com/cgi-b/bbs/bbs.cgi

※取得後に先方を削除しますので先方へのレスは付けないでください。
【7311】Re:テーブル作成クエリ
回答  チリ子  - 06/2/18(土) 15:49 -
引用なし
パスワード
   ▼クロ さん：

こんにちは。

>FROM句にある「集計」というのはテーブルですか？
クエリです。

>他所ではありますが、サンプルを上げましたので
>拾ってみてください。
>http://www.penhagi.com/cgi-b/bbs/bbs.cgi
>
>※取得後に先方を削除しますので先方へのレスは付けないでください。

サンプルがどこにあるのか分からないのですが…(＠_＠;)
【7312】Re:テーブル作成クエリ
回答  クロ  - 06/2/18(土) 15:58 -
引用なし
パスワード
   ▼チリ子 さん：
>サンプルがどこにあるのか分からないのですが…(＠_＠;)

あっ、こんにちは。
解決前の投稿なのですが、解決されたチリ子さんのあとに振る下がってますね。
投稿後に解決されたレスを読んだので先方ファイルは削除させてもらいました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1408 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free