قائمة تحرير وسرد فى التقارير

[حمادة عثمان]

لدى نموذج به قائمة تحرير وسرد باسماء عدة تقرير ويوجد فى النموذج زرين امر الاول لتصدير التقارير والثانى لعرض التقارير كيف يتم ربط قائمة التحرير والسرد بازرار الامر

[حمادة عثمان]

ارجو المساعدة يا اخوة

[حمادة عثمان]

للدى تقرير اسمه الطلاب النشطين مرتبط باستعلام

قمت باستخراج ثلاثة تقارير منه عن طريق التجميع والفرز

ولدى نموذج به زرين امر الاول لتصدير التقرير الى صيغ مختلفة والاخر لمعاينة التقرير

اريد ان اضع الكومبوبوكس بالنموذج به اسماء تلك التقارير

وعند اختيار احد التقارير وقمت بالضغط على زر الامر يقوم بفتحه

مرفق المثال

8.rar

[Shivan Rekany]

حسب فهمي لسؤالك اتفضل هذا

Database1.rar

[حمادة عثمان]

اريد ان افعل زر امر لفتح التقارير كما فى القاعدة المرفقة

[Shivan Rekany]

10 دقائق مضت, حمادة عثمان said:

اريد ان افعل زر امر لفتح التقارير كما فى القاعدة المرفقة

اسف ما رأيت مرفقك

اتفضل استخدمت هذا الكود

If Len(Me.Combo11 & "") <> 0 Then
    If Me.Combo11 = "اجمالى الطلاب النشطين" Then
            DoCmd.OpenReport "active_s", acViewPreview
        ElseIf Me.Combo11 = "طبقا للكلية" Then
            DoCmd.OpenReport "active_s_f", acViewPreview
        ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then
            DoCmd.OpenReport "", acViewPreview
        ElseIf Me.Combo11 = "طبقا للنوع" Then
            DoCmd.OpenReport "", acViewPreview
    End If
    
    Else
        MsgBox "اختر التقرير اولا"
End If

اعمل التقريرين لفرقة الدراسة و النوع و اكتب اسمهما في الكود 

 

8.rar

[حمادة عثمان]

2 minutes ago, Shivan Rekany said:

اسف ما رأيت مرفقك

اتفضل استخدمت هذا الكود

If Len(Me.Combo11 & "") <> 0 Then
    If Me.Combo11 = "اجمالى الطلاب النشطين" Then
            DoCmd.OpenReport "active_s", acViewPreview
        ElseIf Me.Combo11 = "طبقا للكلية" Then
            DoCmd.OpenReport "active_s_f", acViewPreview
        ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then
            DoCmd.OpenReport "", acViewPreview
        ElseIf Me.Combo11 = "طبقا للنوع" Then
            DoCmd.OpenReport "", acViewPreview
    End If
    
    Else
        MsgBox "اختر التقرير اولا"
End If

اعمل التقريرين لفرقة الدراسة و النوع و اكتب اسمهما في الكود 

 

8.rar

الكبير كبير والله

تسلم ايدك

طب ممكن اخر طلب صغير

لو ينفع فى زر الامر الاخر انى ممكن اصدر التقرير الى pdf

انا عارف انى غلست عليك

[Shivan Rekany]

48 دقائق مضت, حمادة عثمان said:

لو ينفع فى زر الامر الاخر انى ممكن اصدر التقرير الى pdf

اليك هذا

If Len(Me.Combo11 & "") <> 0 Then
    If Me.Combo11 = "اجمالى الطلاب النشطين" Then
            DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf"
          ElseIf Me.Combo11 = "طبقا للكلية" Then
            DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf"
        ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then
        ElseIf Me.Combo11 = "طبقا للنوع" Then
    End If
    Else
        MsgBox "اختر التقرير اولا"
End If

End Sub

 

[حمادة عثمان]

2 hours ago, Shivan Rekany said:

اليك هذا

If Len(Me.Combo11 & "") <> 0 Then
    If Me.Combo11 = "اجمالى الطلاب النشطين" Then
            DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf"
          ElseIf Me.Combo11 = "طبقا للكلية" Then
            DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf"
        ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then
        ElseIf Me.Combo11 = "طبقا للنوع" Then
    End If
    Else
        MsgBox "اختر التقرير اولا"
End If

End Sub

 

انا عاجز عن الشكر

تحية تقدير واجلال لحضرتك

[ابو جودي]

ممكن بعد اذن استاذى الحبيب ومعلمنا الفاضل @Shivan Rekany
حضرتك طبعا كفيت ووفيت جزاكم الله خيرا 

ممكن اضيف هذا المرفق بطريقة اخرى لتعم الفائدة باكثر من فكرة

open report from compobox.rar