文本框 DLookup 值有时会丢失

Question

我有一个包含 18 个未绑定文本框的表单，这些文本框可以提取值。 他们通常有 90% 的时间都在工作。有时一个值没有出现，我可以修复它的唯一方法是关闭数据库并再次打开它。

每次记录更改时需要刷新 9 个文本框

这是 9 个卡住的文本框中的 2 个的示例：

'txtAFP_Sum
=IIf(IsError([sfm_COB_DISTR].[Form]![totAFP]),"-",[sfm_COB_DISTR]![totAFP])
'txtALLOT_Sum
=IIf(IsError([sfm_COB_DISTR].[Form]![totALLOT]),"-",[sfm_COB_DISTR]![totALLOT])

其他 7 个有类似的公式。

9 其他未绑定的文本框不需要在每次查看记录时更改，因此为了尝试加快其中一些计算，我编写了一个例程，仅在必要时将 dLookups 分配给未绑定的文本框查看值的变化。

每次我更改需要查看所有框更新的值时，我都会调用以下例程：

    Public Sub RefreshTOTALS()

    PopUpMsg ("Refreshing Totals...")


    With Form_frm_COB

    'Entire COB
    .txtTOTALS_AFP = DLookup("AFP", "TOTALS_FINAL")
    .txtTOTALS_ALLT = DLookup("ALLT", "TOTALS_FINAL")
    .txtTOTALS_SP_C = DLookup("SP_C", "TOTALS_FINAL")
    .txtTOTALS_SP_O = DLookup("SP_O", "TOTALS_FINAL")
    .txtTOTALS_COMMITS = DLookup("COMMITS", "TOTALS_FINAL")
    .txtTOTALS_OBS = DLookup("OBS", "TOTALS_FINAL")
    .txtTOTALS_COM_SP_RATE = DLookup("COM_SP_RATE", "TOTALS_FINAL")
    .txtTOTALS_OBS_SP_RATE = DLookup("OBS_SP_RATE", "TOTALS_FINAL")
    .txtTOTALS_UNC = DLookup("UNC", "TOTALS_FINAL")

    'Current COB ID
.txtAFP_Sum.Requery
.txtALLOT_Sum.Requery    
.txtSP_C.Requery
    .txtSP_O.Requery
    .txtCOMS.Requery
    .txtOBLG.Requery
    .txtSPRate.Requery
    .txtOBSRate.Requery
    .txtWBS_Remain.Requery
    End With

    End Sub

我希望我能解决导致值无法计算的原因。

Answer 1

在以下表达式中，IIf 的 else-case 中缺少 .[Form] 部分：

错误：

'txtAFP_Sum
=IIf(IsError([sfm_COB_DISTR].[Form]![totAFP]),"-",[sfm_COB_DISTR]![totAFP])
'txtALLOT_Sum
=IIf(IsError([sfm_COB_DISTR].[Form]![totALLOT]),"-",[sfm_COB_DISTR]![totALLOT])

更正：

'txtAFP_Sum                                                      vvvvvvv
=IIf(IsError([sfm_COB_DISTR].[Form]![totAFP]),"-",[sfm_COB_DISTR].[Form]![totAFP])
'txtALLOT_Sum                                                      vvvvvvv
=IIf(IsError([sfm_COB_DISTR].[Form]![totALLOT]),"-",[sfm_COB_DISTR].[Form]![totALLOT])