显示前几个月的总计，我错过了什么？

Question

当我运行这段代码时，它没有显示我需要看到的正确记录。我错过了一些地方，但我没有看到它。这个想法是为了计算所有已完成，正在进行的计数，而不是从前一个月开始，并给我总计。

Sub Update() 
StatusCount "Completed" 
StatusCount "In Progress" 
StatusCount "Not Started" 
'StatusCount "Moved to Cleanup" 
'StatusCount "N/A" 
'StatusCount "This is a new category" ', Now - 2, Now + 3 

End Sub 

Sub StatusCount(ByVal status As String, Optional start_date As Date, Optional end_date As Date) 
Dim i As Variant 
Dim db As DAO.Database 
Dim rst As DAO.Recordset 
Dim qd As DAO.QueryDef 

Set db = CurrentDb 

Dim SQL As String 
If start_date = 0 Or end_date = 0 Then 
    SQL = "insert into statussummary (Count,mmyy,status) Select count(*), [created], [research status] " & _ 
      "from [gwc master list]" & _ 
      "where [research status] = '" & status & "'" & _ 
      "group by [research status], [created]" 
Else 
    SQL = "insert into statussummary (Count,mmyy,status) Select count(*), [created],[research status] " & _ 
      "from [gwc master list]" & _ 
      "where [research status] = '" & status & "'" & _ 
      " and [created] > #" & start_date & "# and created < #" & end_date & "#" & _ 
      "group by [research status], [created]" 
End If 

db.Execute (SQL) 
rc = db.RecordsAffected 
If rc = 0 Then 
    Debug.Print status & ": " & rc 
    SQL = "insert into statussummary (Count,status) values (" & rc & ", '" & status & "')" 
    db.Execute (SQL) 
End If 
End Sub 

任何帮助表示赞赏 -D

Answer 1

首先，你需要改变你的数据库表字段名。如前所述，“状态”是保留的，正如“count”一样。因此，您的三个字段应该是[R_COUNT], [CREATED], [R_STATUS]。然后，你调整你的VBA代码如下所示：

Sub StatusCount(ByVal status_var As String, Optional start_date As Date, Optional end_date As Date) 

这应该解决“身份”的第一次冲突。然后，修改第一个SQL语句，以指定要插入到statussummary中的正确字段（正如我将名称更改为上面的那样）。不要忘记，在继续标记之前，你在代码中错过了一两个空格。

If start_date = 0 Or end_date = 0 Then 
    SQL = "insert into statussummary ([R_COUNT], [CREATED], [R_STATUS]) Select COUNT(*), [created], [research status] " & _ 
      "from [gwc master list] " & _ 
      "where [research status] = '" & status_var & "'" & _ 
      " group by [research status], [created];" 
Else 
    SQL = "insert into statussummary ([R_COUNT], [CREATED], [R_STATUS]) Select COUNT(*), [created], [research status] " & _ 
      "from [gwc master list] " & _ 
      "where [research status] = '" & status_var & "'" & _ 
      " and [created] > #" & start_date & "# and created < #" & end_date & "#" & _ 
      " group by [research status], [created];" 
End If 

最后，解决您的最后一条语句：

rc = db.RecordsAffected 
If rc = 0 Then 
    Debug.Print status & ": " & rc 
    SQL = "insert into statussummary ([R_COUNT], [R_STATUS]) values (" & rc & ", '" & status_var & "');" 
    db.Execute (SQL) 
End If 
End Sub