08/01/2020, 13:55
accessman
şö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
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