MS ACCESS 根据多个条件从表中计数记录

Question

我希望 Access 中的文本框根据在组合框中选择的经理在表中找到经理有“过期”记录的记录数进行更新，我有以下代码，但出现错误：

Private Sub Combo26_AfterUpdate()

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT Advisor FROM tbltargets WHERE manager = '" & Me.Combo26.Column(0) & "' AND overdue = 'Overdue'")
If rs.EOF Then
Me.Text35 = 0
MsgBox "no overdue records", vbOKOnly
Else
rs.MoveLast
Me.Text35 = rs.RecordCount
rs.Close
End If

End Sub

当我从组合框中选择一个选项时，它会给我一个错误“参数太少。预期为 1”...

我有类似的代码，所以我不确定为什么上面会导致错误，有人可以帮忙吗？

谢谢你，

Answer 1

这样检查

Private Sub Combo26_AfterUpdate()

Dim rs As DAO.Recordset


If IsNull(Combo26.value) Then Exit Sub

Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) AS CNT FROM tbltargets WHERE manager = '" & Combo26.value & "' AND overdue = 'Overdue'")

If Not rs.BOF Then

    If Nz(rs!CNT, 0) = 0 Then
        Me.Text35 = 0
        MsgBox "no overdue records", vbOKOnly
    Else
        Me.Text35 = rs!CNT
    End If
End If

End Sub

1. 使用combobox.value 而不是combobox.column
2. 将 SQL 更改为 COUNT(*) 并相应地调整代码以提高性能。
3. 添加了一些针对 NULL 值的保护（您确实应该在此子中添加错误处理程序）