strange subform behavior

Question

Hello-

I have a situation that really has me stumped.

I have a form used to display contacts. When a command button is clicked another form pops up for viewing and inputting call information made to that contact. This form includes two subforms. One that lists the calls in datasheet view and displays call date, call time, and the call result, and another that has a big text box that displays the notes stored in the corresponding call record

Call date and time fields are supplied with the default values of the current date and time. The call result field is a combobox whose rowsource is this simple query:

CODE

SELECT callresults.ID, callresults.Result, callresults.Description FROM callresults ORDER BY callresults.Result;

It worked fine initially, but evidentally I broke it somehow while working on other aspects of the application. Now, when you click into any row of existing data or the new record row at the bottom of the Call Listing subform datasheet, the entire "Calls" form appears to start "reloading itself"...hourglass cursor...no hourglass cursor...hourglass cursor, etc...also, when the properties window is open it flashes as if active window, inactive window, etc..

There are no events defined on the call listing subform.

There is one event defined for the call details subform, which displays the notes: CODE

Private Sub Form_Open(Cancel As Integer)
    If Not IsLoaded("Contacts") Then
        MsgBox "Open the Calls form using the Calls button on the Contacts form."
        Cancel = True
    End If
End Sub
Private Sub Call_Details_Subform_Enter()
    If IsNull(Me![CallID]) Then
      Me![Call Listing Subform].Form![CallDate] = Date
      DoCmd.GoToControl "Call Listing Subform"
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      DoCmd.GoToControl "Call Details Subform"
    End If
End Sub

...and the following on the calls form itself:

CODE

Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    If Not IsLoaded("Contacts") Then
        MsgBox "Open the Calls form using the Calls button on the Contacts form."
        Cancel = True
    End If
End Sub
Private Sub Call_Details_Subform_Enter()
    If IsNull(Me![CallID]) Then
      Me![Call Listing Subform].Form![CallDate] = Date
      DoCmd.GoToControl "Call Listing Subform"
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      DoCmd.GoToControl "Call Details Subform"
    End If
End Sub

When I enabled the status bar, I noticed that while it is reloading itself, in the status bar of the calls form window, it says "Calculating..."

Anybody ever seen this behavior before?

Thanks, Steve