访问创建表vba

Question

这个想法是在表单域中输入一个新表的名称，然后单击一个按钮在远程数据库上使用用户在该域中输入的名称创建一个表。但是，新表是使用名称“NewTableName”而不是 NewTableName 字段中的值创建的。有谁知道不同的语法或更好的功能？提前致谢！

Private Sub MakeTable_Click()
  Dim dbConnectStr As String
  Dim Catalog As Object
  Dim cnt As ADODB.Connection
  Dim dbPath As String

    dbPath = "\\JAMWHITL-WS01\AccessBackEnds\Assessments\AssessmentsBackEnd.accdb"
    dbConnectStr = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; Dbq=" & dbPath & ";"

      Set cnt = New ADODB.Connection
      With cnt
        .Open dbConnectStr
        .Execute "CREATE TABLE [NewTableName] (Question Text, ID COUNTER)"

      End With
      Set cnt = Nothing
End Sub

Answer 1

创建一个与他们输入表名的文本框的文本属性相等的变量。然后说如下内容：

"CREATE TABLE [" + variable + "] (Question Text, ID COUNTER)"