اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الحلبي

الردود الموصى بها

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

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

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

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

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

فلترة.accdb

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه الحلبي
  • Like 1
رابط هذا التعليق
شارك

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

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

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

فلترة.accdb

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه الحلبي
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

 

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

 

كود النموذج :

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

.

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

image.png.1023227b963e0a7d2bce9b2230e735a2.png

.

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان
×
×
  • اضف...

Important Information