Hi.

I have a form with a subform. When a certain control changes value on the form, a different filter is applied to the subform. The subform's default view is DataSheet and rows from a table are displayed in it. This works well except on the subform at the bottom where it says "Record 1 of 4 (Filtered)" (when I have 4 rows).

When 3 rows are displayed in the subform, it will display the count of rows from the previous recordset until I hit the right arrow to get the next row and then I'll see "Record 1 of 3 (Filtered)".

I tried several places on several events to Refresh the subform to overcome this but have not been able to resolve this.

Any suggestions will be greatly appreciated.

Thanks.

Rita

You could put this on the main form's AfterUpdate event:

Me.YourSubformNameHere.SourceObject = "SELECT..." and change the sourceobject of the form when data on main form changes. Or you can change its filter

Me.YourSubformNameHere.Filter = "..."


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Hi Greg.

Thanks for the suggestion. I already have code in place to do that:
  Private Sub txtSCRID_LostFocus()
    Me.[SCR_Links_Subform].Form.FilterOn = True
    If Not IsNull(Me.txtSCRID) Then
        Me.[SCR_Links_Subform].Form.Filter = "LinkedSCRorDefect <> "
        & Me.txtSCRID
    End If
  End Sub

I get the correct rows coming up on the subform. What's incorrect is the count of rows returned that shows up at the bottom of the grid on the subform. Once I hit the right arrow it then displays correctly.

Rita

How about for the heck of it if you threw in this line before the END IF?

Me.[SCR_Links_Subform].Requery



Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Hi Greg.

Good suggestion!
However, I'm still getting the same results.

Thanks.
Rita