şöyle bir kod buldum

Private Sub Report_Open(Cancel As Integer)
'*** This line here ***
Me.GroupLevel(1).ControlSource = PlanningReportSortField
'*** Yes, that one ***

Me.Caption = PlanningReportTitle
lblReportTitle.Caption = PlanningReportTitle
lblCriteria.Caption = PlanningReportCriteria

'This bit sets the data binding on the first of four text boxes on the detail section - works OK
txtField1.ControlSource = PlanningReportField1
Select Case PlanningReportField1
Case "iipLOCDate": lblField1.Caption = "LOC Date"
Case "iipLastReviewDate": lblField1.Caption = "Last Review"
Case "orgNoSiteEmployees": lblField1.Caption = "No Emps"
End Select



Private Sub Report_Open(Cancel As Integer)
    Me.GroupLevel(0).ControlSource  = Forms!SortForm!txtPromptYou
End Sub