Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

subform in datasheet view keeps refreshing!?!

Status
Not open for further replies.

embryo

Programmer
Nov 27, 2004
46
US
Hello-

I have a situation that really has me stumped.

I have a form used to display contacts, and to view the calls made to this contact, a command button is clicked that loads a new modal form for viewing and inputting call information. This form includes a subform that lists the calls in datasheet view, displaying call date, call time, and the call result.

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 datasheet, the entire calls form appears to start "refreshing 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 calllisting subform, and only the following on the call form itself:
Code:
Option Compare Database
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
    Me.Requery

Exit_Form_Activate:
    Exit Sub

Err_Form_Activate:
    MsgBox Err.Description
    Resume Exit_Form_Activate
End Sub
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


I thought perhaps it was somehow erroring and causing the me.requery to happen, but when i comment out the me.requery, AS the calls form loads it begins refreshing itself...whereas with me.rquery intact, it doesn't start the odd behavior until i click into one of the rows in the datasheet...

Anybody seen this before?




Steve
---------------------------------------
IF WebApplicationProgrammer = True Then
ElectronicSheepHerder = True
End If
 
I should also mention that the subform does the same thing when I change to single form as the default view....

Steve
---------------------------------------
IF WebApplicationProgrammer = True Then
ElectronicSheepHerder = True
End If
 
I also noticed that while it is refreshing itself, in the status bar of the form window, it says "Calculating..."

Steve
---------------------------------------
IF WebApplicationProgrammer = True Then
ElectronicSheepHerder = True
End If
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top