KB148302 - ACC95: Domain Aggregate Functions Return #Error When Interrupted

RESOLUTION

Use one of the two following methods to work around this problem.

Method 1

Open the form containing the domain aggregate function in Design view and set the form's OnCurrent property to the following event procedure
```
      Sub Form_Current()
      Me!<text box control name> = <expression>
      End Sub
						
```
where <text box control name> refers to the name of the text box control on the form where you want to display the result of the expression and <expression> refers to the domain aggregate function expression used to complete your calculation.
Select the text box control containing the domain aggregate function.
Delete the formula currently in the ControlSource property.

Method 2

Create the following new macro
```
      Macro Name       Macro Action
      -----------------------------
      DFunctionMacro   SetValue

      DFunctionMacro Actions
      -------------------------------
      SetValue
         Item: <text box control name>
         Expression: <expression>
						
```
where <text box control name> refers to the name of the text box control on the form where you want to display the result of the expression and <expression> refers to the domain aggregate function expression used to complete your calculation.
Select the text box control containing the domain aggregate function.
Delete the formula currently in the ControlSource property.
Set the form's OnCurrent property to the DFunctionMacro macro.

MORE INFORMATION

Steps to Reproduce Problem

Open the sample database Northwind.mdb.

Open Orders form in Design view.

Add the following unbound text box to the form:

NOTE: In the following example, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating the ControlSource property.

     Text box: MyDomain
     -------------------------------------------------------------
     ControlSource: (Choose one of the following Domain Aggregate
     functions)

     =DSUM("UnitPrice","Order Details Extended")*DSUM("ProductID","Order _
         Details  Extended")

     =DCOUNT("UnitPrice","Order Details Extended")*DCOUNT("ProductID", _
         "Order Details Extended")

Switch the Orders form to Form view to ensure that the formula returns a value.

Switch the Orders form back to Design view.

Switch the Orders form back to Form view, and using the mouse, quickly place the pointer in the Salesperson combo box. This must be done while the domain aggregate function is calculating.

NOTE: In most cases #Error is returned in the text box when the calculation is interrupted and fails. Whether or not the #Error occurs depends on how quickly the focus is moved from the active control.

ACC95: Domain Aggregate Functions Return #Error When Interrupted

SYMPTOMS

CAUSE