訪問創建表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)"