Database MS Access数据库管理：提示用户输入新表名

我创建了一个make table查询和一个rename宏，该宏在创建表后重命名表。我想创建一个对话框，提示输入新表名。这可能吗？我该怎么做？

您最好使用VB sub编辑查询定义的SQL属性，换句话说，在执行前更改make table SQL语句中的tablename，例如：

Public Sub MakeTable()

Dim strNewTableName As String
Dim Qdef As QueryDef

    strNewTableName = InputBox("Please enter the table name")

    If strNewTableName & "" = "" Then Exit Sub 'No table name has been given

    Set Qdef = CurrentDb.QueryDefs("MakeTableQueryName")

    Qdef.SQL = "SELECT bla, bla INTO " & strNewTableName & " WHERE etc"

    CurrentDb.Execute "MakeTableQueryName"

    Set Qdef = Nothing

End Sub

现在不需要在以后运行单独的宏