This is the code I have in frm_Reschedules;
Code:
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
Me.Requery
If IsLoaded("frm_Partner") Then
If Forms![frm_Partner]![tbl_Bookings subform].Form.RecordsetClone.RecordCount > 0 Then
DoCmd.FindRecord "[Tracking Ref#] = " & Forms![frm_Partner]![tbl_Bookings subform].Form![Tracking Ref#]
'DoCmd.ApplyFilter , [Tracking Ref#] = 2
End If
End If
Exit_Form_Activate:
Exit Sub
Err_Form_Activate:
MsgBox Err.Description
Resume Exit_Form_Activate
End Sub