طريقة ممتازة للبحث قمت بعملها ولكن ينقصها البحث بين تاريخين

[الحلبي]

سلام الله عليكم وكل عام والجميع بخير

مرفق مثال صغير قمت بعمله اعتقد انه ينفع فى بعض الاحيان لكثير من الاخوان

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

ولكن كيف بعد اختيار المدير من الكمبوبكس وادخال الفترة بين التاريخين ان يفلتر لى الموظفين التابعين خلال المدة المحددة فى التاريخين لهذا المدير

وعند عدم الاختيار من الكمبوبكس يفلتر لى كل الموظفين والمديرين خلال الفترة المحددة فى التاريخين (بدون اختيار المدير )

فلترة.accdb

[أبوبسمله]

وعليكم السلام

اتفضل اخى محمد @حلبي لعل هذا ما تريد

 

 

فلترة.accdb

[الحلبي]

استاذى وخير منقذ / @أحمد الفلاحجى ابو بسمله

بارك الله فيك ورزقك

اوضح لحضرتك اكثر المطلوب :

عند فتح النموذج تظهر جميع الاسماء اسفل النموذج وكأنه رئيسى وفرعى

عند اختيار من الكمبوكس اسم المدير يظهر فى الاسفل الموظفين التابعين لهذا المدير

عند اختيار الفترة بين التاريخين يظهر بالاسفل الموظفين التابعين للمدير الذى اسمه في الكمبوبكس خلال الفترة المحددة بين التاريخين

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

وايه رايك لو اضفنا الجزء السفلى في نموذج فرعى يكون الموضوع اسهل ام هكذا احسن

معلش ابو بسمله انا عارف انى دائما بتعبك معايا ـ هتعمل ايه قدرك ونصييبك ـ عموما كلنا جالسين فى البيت 

واسف لتاخرى فى الرد جعلك الله عون لنا 

تم تعديل أبريل 21, 2020 بواسطه الحلبي

[أبوبسمله]

وفيك بارك الله اخى محمد @حلبي وانا اخوك احمد

تعبك راحه اخى محمد وربنا يقدرنى وافيدك واتعلم معك اخى ومفيش اعتذار بين الاخوه

ان شاء الله يكون ما تريد جرب ووافنى بالنتيجه

فلترة.accdb

[الحلبي]

يعطيك الصحة والعافية / @أحمد الفلاحجى

نعم تمام بس باقى تكة صغيرة وهى

لما نفتح النموذج ولا نختار من الكمبوبكس شئ 

ونحدد مثلا تاريخ بين 1/04/2020 وبين 04/04/2020 يقوم بفلترة كل الموظفين خلال هذا الفترة 

تم تعديل أبريل 21, 2020 بواسطه الحلبي

[jjafferr]

اساتذي الافاضل 🙂

 

ومن هذا الرابط :

 

تم التوصل الى المرفق 🙂

 

كود النموذج :

Private Sub cmd_Dates_Search_Click()

    Me.Requery
End Sub

Private Sub Command24_Click()

    Me.x = Null
    Me.STR = Null
    Me.ind = Null
    
    Me.Requery
End Sub

Private Sub ind_DblClick(Cancel As Integer)

    Me.ind = Null
    Me.Requery
End Sub

Private Sub STR_DblClick(Cancel As Integer)

    Me.STR = Null
    Me.Requery
End Sub

Private Sub x_AfterUpdate()

    Me.Requery
End Sub

Private Sub x_DblClick(Cancel As Integer)

    Me.x = Null
    Me.Requery
End Sub

.

وهذا الاستعلام الذي اصبح مصدر بيانات النموذج :

.

SELECT t1.id, t1.nume, t1.vactiondate, t1.manger
FROM t1
WHERE (((t1.vactiondate) Between (IIf(Len([Forms]![f1]![STR] & '')=0,#1/1/1900#,[Forms]![f1]![STR])) And (IIf(Len([Forms]![f1]![ind] & '')=0,#1/1/2900#,[Forms]![f1]![ind]))) AND ((t1.manger)=IIf(Len([Forms]![f1]![x] & "")=0,[manger],[Forms]![f1]![x])));

.

 

وفي البرنامج تكة صغيرة اضفتها ، وهي لما تريد تفرغ بيانات اي من حقول البحث ، انقر على الحقل مرتين 🙂

 

جعفر

1210.فلترة.accdb.zip

[أبوبسمله]

احسنت اخى ومعلمى العزيزجعفر @jjafferr جزاك الله عنا كل خير

بارك الله لنا فيك

 

فلترة.accdb

[jjafferr]

اما الطريقة التي تعملون عليها ، فهنا طريقة العمل :

 

جعفر

[الحلبي]

استاذى ومعلمى الفاضل / @jjafferr

الله الله الله عليك يا احد اهرمات الاكسس شرح وافى وممتاز 

نعم هو المطلوب فى كل شئ حتى انك قرأت تفكيرى وعملت لى التكة الجميلة لتفريغ البيانات

والله ياأستاذ جعفر بماذا ادعو لك غير انى اقول لك ربنا يبارك فى علمك ويزيدك ويرحم والديك ويبارك فى اسرتك واولادك ويطيل عمرك 

كل الاحترام والتقدير لشخصكم الكريم 

استاذى ومعلمى الفاضل / @أحمد الفلاحجى

ماذا تفعل بنا فى الاكسس ماذا انت ياعم انت عبقرى والله يامعلم الاكسس (بضم الميم)

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

بصراحة طريقتين فى الحل احلى من بعض واصبحت محتار ايهما اختار وان اخترت يصعب على ان اترك الآخر

ربنا يبارك لكم ويزيدكم من علمه اساتذه بمعنى الكلمة علم وخلق واحترام ومهارة ربنا يحفظكم 

كل الاحترام والتقدير لكما وكل عام وانتم بخير وجميع الاخوان والامة العربية كلها 

[أبوبسمله]

14 دقائق مضت, حلبي said:

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

حبيبى اخى محمد عن نفسى سوف اختار طريقه اخى ومعلمنا العزيز جعفر @jjafferr جزاه الله خيرا واسال الله التوفيق والسداد وان يبارك له فى حسين واخوته واهله اجمعين

اما عن ماذا افعل بالاكسس فاننى اتعلم معكم اخى

بارك الله فيكم وجزاكم الله خيرا

بالتوفيق اخى محمد وبارك الله فى اهلك وكل ما تحب

تم تعديل أبريل 21, 2020 بواسطه أحمد الفلاحجى

[jjafferr]

🙂