هي فكرة جميلة جدا عملت توفير جامد بصراحة ووفرت عدة تقارير
وعدلت عند فتح الصفحة في التقرير
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Dim i, ii As String
If Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 1 Then
i = "الدور الأول"
Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي"
Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
ElseIf Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 2 Then
i = "الدور الأول"
Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي"
Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 1 Then
i = "الدور الثاني"
Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي"
Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 2 Then
i = "الدور الثاني"
Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي"
Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
Else
Me.tsmya1.Caption = "."
Exit Sub
End If
End Sub
بحيث اميز بين الذكور والإناث
تظهر بالشكل ده