空列的 DMin

Question

我使用三个 DM 来查找三列中的最小数字。唯一的问题是当我有一个空列时，它 returns 空白。我如何考虑空列？

这是我正在使用的代码。

Private Sub UpdatePriority_Click()

Dim MinGOPri As Variant
Dim MinSRPri As Variant
Dim MinSOPri As Variant

MinGOPri = DMin("[GOPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo")
MinSRPri = DMin("[StrPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo")
MinSOPri = DMin("[SOPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo")

Overal_Priority.Requery

Overal_Priority = IIf(((IIf([MinGOPri] < [MinSRPri], [MinGOPri], [MinSRPri])))
 < [MinSOPri], ((IIf([MinGOPri] < [MinSRPri], [MinGOPri], [MinSRPri]))), [MinSOPri])


End Sub

Answer 1

如果您想找到这三个中的最小值，可以在 DMin 为 Null 时插入一个 "larger than everything else" 值：

' Very large value.
Const Superior As Long = 9999

Dim MinGOPri As Variant
Dim MinSRPri As Variant
Dim MinSOPri As Variant

MinGOPri = Nz(DMin("[GOPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo"), Superior)
MinSRPri = Nz(DMin("[StrPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo"), Superior)
MinSOPri = Nz(DMin("[SOPri]", "[Projects]", "Projects.ProjNo = Activity.ProjNo"), Superior)

空列的 DMin

DMin with Empty Column

ms-access

vba

ms-access-2010