我想用從表單登錄用戶的數據來創建新表

Question

我有下面的代碼，我想Forms!Login!cboUser作爲NewTableName使用：

If DLookup("[AccessLevelID]", "Users", "[UserID] = " & Forms!Login!cboUser) = 1 Then 

    Dim dbs As Database 

    Set dbs = OpenDatabase("C:\Users\Yiannis\Desktop\photo list - Copy") 

    dbs.Execute "CREATE TABLE [NewTableName] " _ 
    & "([Item No] TEXT, Quantity NUMBER);" 

End If 

Answer 1

如何：

If DLookup("[AccessLevelID]", "Users", "[UserID] = " & Forms!Login!cboUser) = 1 Then 

    Dim dbs As Database 

    Set dbs = OpenDatabase("C:\Users\Yiannis\Desktop\photo list - Copy") 

    dbs.Execute "CREATE TABLE [" & Forms!Login!cboUser.Column(n) & "] " _ 
    & "([Item No] TEXT, Quantity NUMBER);" 

End If 

在其中設置n添加到保存用戶名的組合框的列中。