تقرير حسب المحافظة

[عبد اللطيف سلوم]

اساتذتي الاكارم

المطلوب تقرير حسب المحافظة بحيث انا اختار المحافظة 

جربت فلتر حسب نموذج منقسم واصبح هناك تكرار بالبيانات 

اوفسنا.accdb

[عبد اللطيف سلوم]

2 دقائق مضت, rockjone33 said:

جرب الغاء ID في الاستعلام = الاسم فريد..  🙂

صديقي مرفق ملف للتطبيق عليه

جرب تطبيق عملي 

جربت الفكرة وما زبطت معي -- كل عملية بحث يتم تكرار البيانات بالجدول

 

[سامي الحداد]

السلام عليكم اخي ابو اشرف

لم افهم بالضبظ اين تريد الفلترة على العموم عملت استعلام وتقرير حسب الاستعلام عسى ان يكون هو المطلوب.

تحياتي

 

اوفسنا.accdb

[عبد اللطيف سلوم]

توصلت الى حل الموضوع بطريقة سهلة وطويلة  

لكن اطمح أن ارى حلول من اساتذتنا الخبراء احترافية اكثر وأفضل

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

رفعت فيديو شرح لما عملت

https://www.mediafire.com/file/vnp2vhrtzdnzd8w/بحث+حسب+محافظة.mp4/file

اوفسنا.accdb

6 دقائق مضت, سامي الحداد said:

السلام عليكم اخي ابو اشرف

لم افهم بالضبظ اين تريد الفلترة على العموم عملت استعلام وتقرير حسب الاستعلام عسى ان يكون هو المطلوب.

تحياتي

 

اوفسنا.accdb 512 kB · 0 downloads

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

[متقاعد]

جرب بدون الحاجة لاستعلام

 

سلوم.accdb

[سامي الحداد]

وهذه محاولتي بعد ان فهمت طلبك

Private Sub المحافظة_AfterUpdate()
Dim strFilter As String

    strFilter = "المحافظة=" & "'" & Me.المحافظة & "'"

    If Me.FilterOn = True Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Me.Filter = strFilter
        Me.FilterOn = True
    End If
End Sub

Private Sub أمر8_Click()
DoCmd.OpenReport "تقرير1", acViewPreview, , Me.Sub1.Form.Filter

End Sub

بالتوفيق

اوفسنا (2).accdb

[عبد اللطيف سلوم]

5 ساعات مضت, مبرمج متقاعد said:

جرب بدون الحاجة لاستعلام

 

سلوم.accdb 660 kB · 9 downloads

يا عيني عليك 

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

 

 

اشكر الجميع على المرور

جزاكم الله خيرا