使用vba在訪問中向表中添加新字段

Question

我在alter table命令行中遇到錯誤。 我正在嘗試使用循環基於變量每月為每個月創建一個字段，但是由於我沒有得到所需的結果，所以它沒有通過。 代碼創建一個名為monthly的列，然后在第二次迭代時給出錯誤。 代碼如下：

Dim x As Integer
Dim Months As Integer
Dim monthly As String

Months = Me.YearsBack * 12

Set db = CurrentDb
If Me.Period = "monthly" Then
    For x = 1 To 2
    'Months
    monthly = "WP M" & x
    db.Execute "ALTER TABLE tblEPdata ADD COLUMN [monthly] string;"
    Next
End If

Answer 1

[monthly]只是您正在執行的字符串的一部分，它不會自動從具有相同名稱的變量中解析出來。

你需要字符串連接：

Dim S As String

S = "ALTER TABLE tblEPdata ADD COLUMN [" & monthly & "] string;"
Debug.Print S
db.Execute S

Debug.Print有助於調試，輸出進入立即窗口（Ctrl + G）。

請注意上面代碼中的語法着色。

"ALTER TABLE tblEPdata ADD COLUMN ["

是一個常量字符串。

&符連接字符串和變量到一個新的字符串。

需要[方括號]，因為您的字段名稱包含空格（例如WP M2 ）。