|
いつもお世話になっています。
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_テーブル名 "
としてみたのですが、うまくいきません。
解決方法をお願いいたします。
|
|