where msaccess vba

Question

爲什麼在添加where語句時以下msaccess vba語句失敗？ 我要檢查，如果字段值

Set rsMySet = CurrentDb.OpenRecordset("PivotTblInvDepts") 

'Start the count at the position number of the first column-oriented field 
'Remember that Recordsets start at 0 
    For i = 3 To rsMySet.Fields.Count - 1 
'********************************************************************************************************************* 
'Use the recordset field.name property to build out the SQL string for the current field 
    strSQL = "INSERT INTO TabularDepts ([Depts], [Code], [Description], [Qty])" & _ 
    "SELECT" & "'" & rsMySet.Fields(i).Name & "'" & " AS Dept," & _ 
    "[PivotTblInvDepts].[Code],[PivotTblInvDepts].[Description]," & _ 
    "[" & rsMySet.Fields(i).Name & "]" & _ 
    "FROM PivotTblInvDepts;" & _ 
    "WHERE" & " (rsMySet.Fields(i).Name)>0" 

Answer 1

嘗試取出;在FROM PivotTblInvDepts;。

此外，您需要在上一行結尾處留出空間。 "[" & rsMySet.Fields(i).Name & "]" & _應該是"[" & rsMySet.Fields(i).Name & "] " & _。同樣，請務必添加一個空格讓你做無結果FROM PivotTblInvDeptsWHERE

您當前的SQL讀這樣的事情

INSERT INTO TabularDepts ([Depts], [Code], [Description], [Qty]) 
SELECT '<data>' As Dept, 
[PivotTblInvDepts].[Code],[PivotTblInvDepts].[Description], 
[<data>] 
FROM PivotTblInvDepts; 
WHERE <condition> 

取出;後，插入會更乾淨。