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> 

取出;后，插入会更干净。