تقرير واحد للبرنامج

[aghaasd]

السلام عليكم

لدي برنامج بسيط لدرجات الطلاب

به جدول (اسم الطالب - الصف - عربي - انجليزي - دراسات - علوم......)

قمت بعمل استعلام لكل صف

وتقرير لكل صف - تقرير للصف والمادة (مادة - مادتني - كل المواد)

اريد عرض طلاب الصف الاول او الثاني او الثالث وذلك بتقرير واحد فقط

يعني اختار الصف من قائمة واختار المادة (عربي صف اول - عربي وانجليزي صف اول - كل المواد صف اول ) وهكذا لكل الصفوف والمواد والغي كل الأزرار والتقارير الموجودة

اريد التكرم بالتعديل على المرفق

 

درجات الطلاب.accdb

[aghaasd]

هل من مساعدة 

[Moosak]

وعليكم السلام ورحمة الله وبركاته 🙂 

لن تحتاج لكل هذه التقارير والاستعلامات ..

وضعت لك استعلام واحد وتقرير واحد لكل الصفوف :

والتقرير حسب الاختيار من القائمة :

 

درجات الطلاب.accdb

[aghaasd]

شكرا اخي 

لكن اريد الصف ومادة واحدة او مادتين معا اختارهما

[Moosak]

13 ساعات مضت, aghaasd said:

اريد الصف ومادة واحدة او مادتين معا اختارهما

تفضل 🙂 : علم على المواد التي تود إظهارها

Private Sub Report_Open(Cancel As Integer)

Dim WidthEach As Long: WidthEach = 4560
Dim x As Integer: x = 4

    Me.Ar.Visible = [Forms]![Form1]![Ar]
    Me.En.Visible = [Forms]![Form1]![En]
    Me.Dr.Visible = [Forms]![Form1]![Dr]
    Me.Si.Visible = [Forms]![Form1]![Si]

    If [Forms]![Form1]![Ar] = False Then Me.Ar.Width = 0: x = x - 1
    If [Forms]![Form1]![En] = False Then Me.En.Width = 0: x = x - 1
    If [Forms]![Form1]![Dr] = False Then Me.Dr.Width = 0: x = x - 1
    If [Forms]![Form1]![Si] = False Then Me.Si.Width = 0: x = x - 1
    
    If x > 0 Then
        WidthEach = WidthEach / x
        
        If Me.Ar.Visible = True Then Me.Ar.Width = WidthEach
        If Me.En.Visible = True Then Me.En.Width = WidthEach
        If Me.Dr.Visible = True Then Me.Dr.Width = WidthEach
        If Me.Si.Visible = True Then Me.Si.Width = WidthEach
    Else: Me.Class.Width = Class.Width + WidthEach
    End If
End Sub

 

 

درجات الطلاب.accdb

[aghaasd]

شكرا

هذا هو المطلوب