Access VBA質問箱 IV

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

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


947 / 2272 ツリー ←次へ | 前へ→

【9409】テーブル作成クエリでのテーブル名指定 あおぎん 07/5/15(火) 11:13 質問[未読]
【9411】Re:テーブル作成クエリでのテーブル名指定 Gin_II 07/5/15(火) 12:34 回答[未読]
【9413】Re:テーブル作成クエリでのテーブル名指定 あおぎん 07/5/15(火) 14:03 お礼[未読]

【9409】テーブル作成クエリでのテーブル名指定
質問  あおぎん  - 07/5/15(火) 11:13 -

引用なし
パスワード
   いつもお世話になっています。

F_職員抽出というフォームにコマンドボタンを作成し、T_抽出というテーブルを作成するクエリを実行しています。

Private Sub cmd_テーブル作成_Click()
 Dim mySQL As String
  mySQL = "SELECT T_008職員抽出用.職員番号, "
  mySQL = mySQL & "T_008職員抽出用.共済番号, T_008職員抽出用.氏名,"
  mySQL = mySQL & "T_008職員抽出用.フリガナ, T_008職員抽出用.性別,"
  mySQL = mySQL & "T_008職員抽出用.生年月日 "
  mySQL = mySQL & "INTO T_抽出 "
  mySQL = mySQL & "FROM T_008職員抽出用 "
  mySQL = mySQL & "WHERE (T_008職員抽出用.抽出フラグ=Yes)"

 DoCmd.RunSQL mySQL
 
End Sub

この作成テーブル名をフォーム上のtxt_テーブル名で任意に指定できればと思うのですが、
 mySQL = mySQL & "INTO T_抽出 "をどのように変更させればいいでしょうか??


 mySQL = mySQL & "INTO Forms!F_職員抽出!txt_テーブル名 "

としてみたのですが、うまくいきません。


解決方法をお願いいたします。

【9411】Re:テーブル作成クエリでのテーブル名指定
回答  Gin_II  - 07/5/15(火) 12:34 -

引用なし
パスワード
   >   mySQL = mySQL & "INTO T_抽出 "

  mySQL = mySQL & "INTO " & Forms!F_職員抽出!txt_テーブル名 & " "

で、どうでしょうか?

【9413】Re:テーブル作成クエリでのテーブル名指定
お礼  あおぎん  - 07/5/15(火) 14:03 -

引用なし
パスワード
   ▼Gin_II さん:
>>   mySQL = mySQL & "INTO T_抽出 "
>
>  mySQL = mySQL & "INTO " & Forms!F_職員抽出!txt_テーブル名 & " "
>
>で、どうでしょうか?

できました!
ありがとうございました。

947 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078201
(SS)C-BOARD v3.8 is Free