Form showing Calculating in status bar window

[robin9876]

In an Access 2000 database on some forms 'Calculating...' is
continuously displayed in the status bar window and the text of the
control is automatically selected.
The only workaround is switching to another application and back
between each field that data is entered.
I have tried this database on pc's that have office 2000 SP1a and
SP3.
How do investigate what is causing this calculating issue and how do I
resolve it?

 

[Allen Browne]

Is anything in the form using Conditional Formatting?
If so, try removing it. If that resolves the problem, your choices are
probably to put up with it or dump the CF.

There is an example of this flaw here:
http://allenbrowne.com/bug-05.html

 

[robin9876]

None of the forms have conditional formatting in the controls. I used
the VBA code below to check all the forms in the database.
Also some of the forms are on tab control as a sub form, could this
also cause the continuing calculating?


Dim objCurrent As AccessObject
Dim ctl As Control
Dim i As Integer
Dim strFormName As String
Dim blnNeedToClose As Boolean

For Each objCurrent In CurrentProject.AllForms

'Open the form if it's not already open
If Not objCurrent.IsLoaded Then
blnNeedToClose = True 'This reminds us to close the form when
done
DoCmd.OpenForm objCurrent.Name, acDesign, , ,
acFormPropertySettings, acWindowNormal
Set frmCurrent = Application.Screen.ActiveForm
strFormName = frmCurrent.Name
Else
blnNeedToClose = False
Set frmCurrent = Forms(objCurrent.Name)
strFormName = frmCurrent.Name
End If

For Each ctl In frmCurrent.Controls
i = 0
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox
Then
i = ctl.FormatConditions.Count
If i > 0 Then
MsgBox "Control Name = " & ctl.Name & " , Type = " &
ctl.ControlType, vbInformation + vbOKOnly, "Found Countrol with
coniditional formatting"
End If
End If
Next ctl

If blnNeedToClose Then DoCmd.Close acForm, strFormName, acSaveNo

Next objCurrent

MsgBox "End", vbInformation + vbOKOnly, "Processing"

 

[Allen Browne]

Well, that's good news. If it's not CF, it may be solvable.

Suggestions on how to track down the cause:

1) Any code in the Current event of the main form or subform(s)? You could
try commenting that out.

2) Are there any calculated controls on the form, i.e. those that have a
Control Source starting with =? You could try dropping those temporarily

3) Any listboxes or combos that have many thousands of records in their
RowSource?

The worst scenario would be something in a subform that causes the main form
to Requery, because that will cause the subform to reload, and that will
trigger the requering of the main form, and so on.

HTH

 

[robin9876]

The problem was caused by a number of calculated controls, these where
replaced with bound countrols. The calculating message now only
appears for under a second when switching tabs or after leaving a field
that has had some data changes.