الحلبي قام بنشر يناير 21, 2020 قام بنشر يناير 21, 2020 الاخوة الافاضل السلام عليكم مرفق مثال بسبط لما هو مطلوب المطلوب عند الضغط على زر الشهر الحالى يفلتر لنا النموذج الفرعى كل الموظفين الذين حصلوا على دورة تدريبة خلال هذا الشهر عند الضغط على زر الشهر السابق يفلتر لنا اسماء الموظفين الحاصلين على الدورة خلال الشهر السابق عند الضغط على نفس الزر الشهر السابق يعطى الشهر الذي يسبقه فى كل مرة يعطى الشهر السابق ثم السابق وهكذا جزاكم الله خيرا FILTER.accdb
محمد أبوعبدالله قام بنشر يناير 21, 2020 قام بنشر يناير 21, 2020 السلام عليكم تفضل اخي الكريم Private Sub Command1_Click() ' الشهر الحالي Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date), 1) x2 = DateSerial(Year(Date), Month(Date) + 1, 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي 1
الحلبي قام بنشر يناير 21, 2020 الكاتب قام بنشر يناير 21, 2020 استاذنا الفاضل / @محمد ابو عبدالله اقتباس تفضل اخي الكريم زادك الله من فضله واكرمك الله وبارك الله في رزقك وصحتك فعلا هذا المطلوب مع ملوحظه صغيرة عند الضغط على زر الشهر السابق اجد انه يفلتر لنا شهر 12 وشهر 11 معا ، المفروض ان يفلتر شهر 12 فقط وعند الضغط عليه مرة تانية يفلتر لنا شهر 11 فقط وفي كل مرة ضغط يفلتر شهر 10 ثم 9 وهكذا ..... (اى في كل ضغطه يأتي بالشهر السابق فقط ولا يجمع شهرين مع بعض) هل هذا ممكن استاذي الفاضل واي ما كان فانه كود في منتهى الجمال والروعة لا يصدر الا من خبير زادك الله من علمه وكل الاحترام والتقدير لشخصكم
محمد أبوعبدالله قام بنشر يناير 21, 2020 قام بنشر يناير 21, 2020 تفضل اخي الكريم تم تعديل كود الشهر السابق كالتالي Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) ' myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# And #" & x2 & "#" myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي 1
الحلبي قام بنشر يناير 22, 2020 الكاتب قام بنشر يناير 22, 2020 (معدل) مازال لا يأتى بشهر 11 (اي الشهر الاسبق) عند االضغطه الثانية غلبتك معايا انا اسف لك حسب وقتك يمكن التعديل سوف احاول ان اعدل فى الكود يمكن على الله تصيب المحاوله جزاكم الله كل خير تم تعديل يناير 22, 2020 بواسطه الحلبي
alaa aboul-ela قام بنشر يناير 22, 2020 قام بنشر يناير 22, 2020 السلام عليكم بامكانك اعادة تصميم النموذج واضافة الاستعلام ضمن نموذج الشهور المرفق سيسهل لك العمل والانتقال للاشهر بسهولة اكثر ويجنبك وجود اخطاء برمجية months العلا سوفت 01096620227.accdb
الحلبي قام بنشر يناير 22, 2020 الكاتب قام بنشر يناير 22, 2020 الاستاذ / @alaa aboul-ela الله يبارك لك طب فين البيانات المقصود من السؤال هو عندما اضغط على زر الشهر الحالى يعطينى كل الموظفين الذي اخذوا دورة خلال الشهر الحالى ايا كان الشهر مع ظهور البيانات للموظف وعند الضغط على الزر الاخر يعطيني الشهر السابق مع ظهور البيانات حاول تكرما منك ان تطبيق الاستعلام على المثال الذى ارفقته انا اعلاه جزاكم الله خير على المساعدة والمشاركة
alaa aboul-ela قام بنشر يناير 22, 2020 قام بنشر يناير 22, 2020 اتفضل يا اخي الكريم الملف حسب طلبك من خلال شاشة البحث تقوم باختيار الشهر يقوم البرنامج بفلترة البيانات حسب الشهر تمنياتي لك بالتوفيق البحث بالشهر - العلا سوفت 01096620227.accdb
الحلبي قام بنشر يناير 22, 2020 الكاتب قام بنشر يناير 22, 2020 الاستاذ / @alaa aboul-ela اولا : جزاك الله خير على المساعدة والله يبارك لك ثانيا : الملف الموجود ملف اخر عبارة عن بحث خاص تقريبا عن مستشفى . والتطبيق غير موجود على المثال المقدم واعتقد ان الاستعلامات بها شيئا من التطويل والتركيب ،ولان المثال الذي قدمته انا مثال مبسط للاصل الذي يحتوى على بعض الاكواد تعوق هذه الاستعلامات فالافضل ان نبتعد عن الاستعلامات ونكمل الاكواد التى قام بها الاستاذ / محمد ابو عبد الله وعلى كل حال ان مقدر تعبك معى وانا فخور بمساعتك لى واشتراكك معى بارك الله فييك وفى اهلك وزادك الله من العلم كل الاحترام والتقدير لشخصكم الكريم
alaa aboul-ela قام بنشر يناير 22, 2020 قام بنشر يناير 22, 2020 (معدل) بالفعل انا قمت برفع ملف تجريبي بالخطأ ببيانات خاصة بمستشفى اتمنى من احد السادة / المشرفين القيام بحذف الملف لاني حاولت حذفه ولم استطيع وسأقوم برفع الملف الصحيح ... تحياتي وهذا الملف السليم بنفس بياناتك والجدول الخاص بك يا عزيزي اكل شهر على حدى - العلا سوفت 01096620227.accdb تم تعديل يناير 22, 2020 بواسطه alaa aboul-ela 1
أبوبسمله قام بنشر يناير 22, 2020 قام بنشر يناير 22, 2020 السلام عليكم مشاركه مع اخى محمد @محمد ابوعبد الله واخى عبدالله اخى محمد @حلبي للحصول على الشهر السابق Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) - 1 x2 = DateSerial(Year(Date), Month(Date), 0) myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# and #" & x2 & "#" 'myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub لم تظبط معى للحصول على الشهر السابق عند الضغط مره اخرى للحصول على شهر 11 وهكذا ان شاء الله ساحاول غدا مع اخوانى تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
الحلبي قام بنشر يناير 23, 2020 الكاتب قام بنشر يناير 23, 2020 الاستاذ / @alaa aboul-ela والله مجهود كبير منك واشغلتك معايا المثال المرفق من حضرتك به افكار صدقنى جميلة وانا فعلا استفدت منه واحتفظت به في مكتبتى ولكن دعنى اقول لك ملاحظة صغيرة وهى عندما اريد ان ابحث عن الدورات التى حصل عليها موظف ما في السنة الماضية وليكن شهر ديسمبر لعام 2019 فيأتى لنا بشهر ديسمبر للعام الحالى ولذلك ان ابحث عن كود وليس استعلام يأتى بالشهر السابق لاي عام وبدون مجاملة يا أستاذي الفاضل مثالك وتطبيقك به افكار سوف احتاجها فى تعديل بعض الاشياء فى برنامجى يعنى مجهودك لم يضيع هباء جزاك الله كل الخير ورحم الله والديك فى الدنيا والاخره بارك الله في علمك وصحتك واولادك خبيرنا واستاذنا الفاضل الحبيب الى قلبى / ابو بسمله هل يوجد اختلاف بين الكود المقدم من حضرتك وكود استاذنا / محمد ابو عبد الله المرفق اعلاه يمكن اكون غير منتبه ومخطئ ارجو ان تنظر الى الكود اعلاه وممكن ان يكون حضرتك لم تنتبه او لم ترى مشاكة الاستاذ / محمد ابو عبد الله على اي حال اشكرك طبعا على المشاركة وانتطر من الجميع تعديل الكود الثانى الخاص بالشهر السابق جزاك الله خيرا استاذنا وخبيرنا / احمد الفلاحجى على مساعدتك الدائمة لي وزادك الله من العلم والصحة والرزق ان شاء الله الاحترام والتقدير التام لكما وللجميع
محمد أبوعبدالله قام بنشر يناير 23, 2020 قام بنشر يناير 23, 2020 (معدل) بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر من فضلك اخي الكريم @حلبي جرب معي الكود التالي يعمل بطريقة افضل من الاول Option Compare Database Private Sub Command1_Click() ' الشهر الحالي Dim X1, X2 As String X1 = Format(DateSerial(Year(Date), Month(Date), 1), "mm/dd/yyyy") X2 = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "mm/dd/yyyy") myCriteria = "([T1].[COURSEDATE] between #" & X1 & "# and #" & X2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub Private Sub Command2_Click() ' الشهر السابق Dim X3, X4 As String X3 = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mm/dd/yyyy") X4 = Format(DateSerial(Year(Date), Month(Date), 0), "mm/dd/yyyy") myCriteria = "([T1].[COURSEDATE] between #" & X3 & "# and #" & X4 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي تم تعديل يناير 23, 2020 بواسطه محمد ابوعبد الله 1
الحلبي قام بنشر يناير 23, 2020 الكاتب قام بنشر يناير 23, 2020 (معدل) استاذي الفاضل / @محمد ابوعبد الله تمام وبالفعل الكود الجديد ياتى بالشهر السابق بقى ان يأتي بالشهر الاسبق عند الضغط عليه مرة اخرى بعد اذن حضرتك انا قمت بحذف الوحدة النمطية لانى ارى ليس لها فائدة هنا ان شاكر جدا لتعبك ومقدر تماما مدى اهتمام حضرتك ولذلك ليس لدى الا ان اقول الله يبارك لك ويجزاك كل خير تم تعديل يناير 23, 2020 بواسطه الحلبي
الحلبي قام بنشر يناير 23, 2020 الكاتب قام بنشر يناير 23, 2020 الاستاذ الفاضل / @Abu Farid سؤال لو سمحت لى : هل انت عضو جديد ام خبير الاستشعار عندى يقول شئ تانى اخر . دعنى اتابع ردودك بعد ذلك لكى اتحقق ولو سمحت لو سمحت لا تقول لى انك طالب علم ومازلت تتعلم وانك فى اول الطريق هذه ليست محاولة منك كما قلت بل هو الحل الامثل ، نعم هذا المطلوب كيف هذا ياشيخ روح الله يعمر بيتك ويجزاك كل خير ـ ويرحم والديك دنيا وآخره ويزيدك الله علما ويعافيك في صحتك ومالك ورزقك ـ امين امين واحب ان اشكر استاذنا الفاضل / @محمد ابوعبد الله- واستاذنا / @احمد الفلاحجي واستاذنا / @alaa aboul-ela على ما قدموه لى من مساعدات ويارب يارب يجزاهم الله خير على ما يقدموه لنا كل الاحترام والتقدير لكم جميعا 1
Abu Farid قام بنشر يناير 23, 2020 قام بنشر يناير 23, 2020 منذ ساعه, حلبي said: سؤال لو سمحت لى : هل انت عضو جديد ام خبير لا أخي انا تلميذ و ساكون تلميذا و استفيد من خبراتكم منذ ساعه, حلبي said: هذه ليست محاولة منك كما قلت بل هو الحل الامثل ، نعم هذا المطلوب الحمد لله وصولك للمطلوب يشرفني منذ ساعه, حلبي said: روح الله يعمر بيتك ويجزاك كل خير ـ ويرحم والديك دنيا وآخره ويزيدك الله علما ويعافيك في صحتك ومالك ورزقك ـ امين امين آمين آمين وياك يا أخي الكريم و اليك تعديل الجديد لفصل شهور سنة من سنة مثلا لو جدول يحتوي سجلات شهر 1 من سنة 2019 لايعرض مع تصفية شهر الحالي و كذالك تصفية شهور السابقة FILTER.accdb 1
الحلبي قام بنشر يناير 23, 2020 الكاتب قام بنشر يناير 23, 2020 ايه ده ياشيخ ولا اجمل ولا اروع ولا ابسط ولا اسهل من كده تصدقنى لو قلت لك انى كنت هسأل حضرتك حالا عن فصل شهور السنة - سبحان الله تسلم اناملك وبارك الله فيك وجعله في ميزان حسناتك ان شاء الله
أبوبسمله قام بنشر يناير 23, 2020 قام بنشر يناير 23, 2020 ماشاء الله ولا قوه الا بالله اللهم صل وسلم وبارك على سيدنا محمد وآله ومن والاه معلم الامه يارب العالمين بارك الله وجزاكم الله خيرا اخوتى واساتذتى @محمد ابوعبد الله و @Abu Farid نعم اخى محمد @حلبي اخى @Abu Farid اجابته جميله وروعه مثله وهو يستاهل الخبير وليس انا وان شاء الله عن قريب سيكون فى مجموعه خبراء موقعنا الرائع لطلبه العلم واتشرف انا اكون طالب لدي اخوتى ومعلمينا واساتذتى الافاضل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.