从主窗体，运行 VBA 以验证子窗体中的总计

Question

我在 MS Access 2002 中有一个表单，在命令按钮后面有以下 sn-p 代码。

'Requery subform to make sure total is calculated
Me.fsubUpdateShipments.Requery
DoEvents

'Confirm quantities have been entered
If Form_fsubUpdateShipments.txtTotalShipmentQty.Value <= 0 Then
    MsgBox "Cannot create shipment, no quantities have been entered", vbCritical
    Exit Sub
End If

这几个月来一直运行良好，但今天一位同事来找我并解释说，即使他们输入了数量，错误消息也会显示。

经过一番挖掘后，我确定.Value <= 0 表达式在相关文本框完成计算其值之前被评估：=Sum([QtyToShip])。这似乎只发生在子表单有大量记录（大约 10 条或更多）并且显然是一个严重问题时。

在包含If 语句的行上添加断点可以使代码正确运行，但我显然不能永久使用此方法。

有什么方法可以强制代码暂停，直到子窗体控件完成重新计算它们的值？

Answer 1

我会完全跳过使用用户界面并查看表格。如果这是在主窗体命令按钮上运行的，则子窗体失去焦点并保存其值。重新查询是不必要的。只需在 DSum 的标准（第三个参数）中重新创建父子关系：

If DSum("QtyToShip", "ShipmentDetails", "ShipmentID = " & Me!ShipmentID) <= 0 Then
    MsgBox "Cannot create shipment, no quantities have been entered", vbCritical
    Exit Sub
End If

Answer 2

有两个选项，其他人已经确定了，但由于他们的建议要么不完整，要么不整洁（缓慢），所以我发布了这篇文章。

A.您可以强制等待以延迟 IF 测试：

把它放在一个模块中：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
...
Public Sub GoSleep(millisecondDelay as long)
    Sleep (millisecondDelay)
End Sub

并以您的形式：

'Requery subform to make sure total is calculated
Me.fsubUpdateShipments.Requery
DoEvents

GoSleep 1000 '1 second delay. Or 2000, whatever is required really

'Confirm quantities have been entered
If Form_fsubUpdateShipments.txtTotalShipmentQty.Value <= 0 Then
   MsgBox "Cannot create shipment, no quantities have been entered", vbCritical
   Exit Sub
End If

B.正如另一个答案所说，您可以自己重新计算，并在此结果的基础上进行测试。

但是，我建议不要像 pteranodon 建议的那样使用 DSum，而是建议使用比 DSum 更快的方法，因为 DSum（DCount 等）非常慢。

我通常将 ADO 用于数据操作，尽管我的代码可以很容易地适应 DAO。要使用此代码，如果您还没有 Microsoft activeX 2.8，则需要参考：

在一个模块中：

Public Function GetDBValue(qry as string) as variant
    dim rst as new adodb.recordset
    rst.open qry, currentproject.connection, adOpenKeyset, adLockReadOnly
    if rst.eof then
        GetValue = null
    else
        GetValue = rst.fields(0)
    end if
end function

public Function IsNullSQL(basevalue as variant, replacementvalue as variant) as variant
    isNullSQL = iif(isnull(basevalue), replacementvalue, basevalue)
end function

在你的表格中：

''Requery subform to make sure total is calculated
'Me.fsubUpdateShipments.Requery
'DoEvents

'Confirm quantities have been entered
If IsNullSQL(GetValue("SELECT Sum(QtyToShip) FROM tbl WHERE ..."), -1) < 0 Then
    MsgBox "Cannot create shipment, no quantities have been entered.", vbCritical, "No Quantities to Ship"
    Exit Sub
End If

'If Form_fsubUpdateShipments.txtTotalShipmentQty.Value <= 0 Then
'    MsgBox "Cannot create shipment, no quantities have been entered", vbCritical
'    Exit Sub
'End If