تطبيق كمبوبوكس علي التقرير

[2saad]

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

الملف المرفق عند فتح النموذج واختيار العام الدراسي والفصل الدراسي من القوائم المنسدلة

محتاج يظهر ما اخترته في التقرير عند فتحهDatabase.accdb

[ابو جودي]

اضف بيانات حتى وان كانت وهميه مع الاستعلام المناسب لبياناتك والذى سوف يكون مصدر للتقرير حتى نتمكن من مساعدتك

انت لم تقدم اى شئ واى اجابه لن تصلح مع هذا الغمووووووووووض

طالما تبخل على نفسك بتقديم البيانات اللازمة لن تجد الا التجاهل للاسف بسبب عدم الفهم 

انا عن نفسي مش فاهم اى شئ 

[Foksh]

49 دقائق مضت, ابو جودي said:

انا عن نفسي مش فاهم اى شئ

أصبحنا اثنين 😅 .

بالفعل ، نقص المعطيات يجعل من الإجابة غير دقيقة ، أضف إلى ذلك ان التقرير فارغ لا يحتوي اي عناصر حتى نستدل على الهدف المطلوب 🥴 .

[2saad]

انا آسف وشكرا لحضراتكم للتنبيه والنصيحة

الملف المرفق يفتح علي نموذج وعند اختيار العام الدراسي والفصل الدراسي من القائمة المنسدلة  ثم الضغط علي زر فتح التقرير ( محتاج يظهر العام الدراسي  والفصل الدراسي في رأس التقرير )

نموذج بحث شامل 1.accdb

[ابوخليل]

يمكن نقل القيمة بطريقتين

اما ان تجعل الحقول مربعات تحرير في التقرير وهذه الاسطر تجلب القيمة

A1 = Forms!frm_book!drase
F1 = Forms!frm_book!fsldrase

وإما ان تجعلها مربعات نص  وهذه الاسطر تجلب القيمة

A2 = Forms!frm_book!drase.Column(1)
F2 = Forms!frm_book!fsldrase.Column(1)

وفي المثال تطبيق المقال

نموذج بحث شامل 1.rar

[Foksh]

وهذه مشاركة بطريقة أخرى ، مشاركةً مع معلمي الجليل و والدنا العزيز الأستاذ @ابوخليل ..

فكرتين ، الأولى هي بجعل الزر يفتح التقرير بشرطين =

DoCmd.OpenReport "qrbook", acViewPreview, , , , Me.fsldrase.Column(1) & ";" & Me.drase.Column(1)

وأن نجعل الحدث عند التحميل للتقرير = 

    Dim args As Variant
    If Not IsNull(Me.OpenArgs) Then
        args = Split(Me.OpenArgs, ";")
        Me.Tx_Fasl = args(0)
        Me.Tx_Yer = args(1)
    End If

 

والفكرة الثانية كما أشار أستاذي في مشاركته تماماً .. ومرفق زرين كل واحد منهما بطريقة

 

نموذج بحث شامل 1.accdb

[2saad]

بارك الله فيكما وزادكما من علمه وجعله في ميزان حسناتكما