طلب تحويل مربع تحرير وسرد لفلتر بحث وتحديد ( يوجد مثال )

[ابوأثير]

السلام عليكم ورحمة الله وبركاته

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

ما اعرف اوصل المعلومة كتابياً

ولاكن يوجد مثال للتوضيح

المثال من هنا وهو مرفق

آمل منكم مساعدتي ودمتم

دمتم بود

DS.r3d.rar

[ابوخليل]

تفضل

مثالك بعد التعديل

DS2.rar

[ابوأثير]

بارك الله فيك اخي ابو خليل

ولكن اذا تم الاختيار من مربع تحرير وسرد يجب الضغط على احد خانات الاخرى ليتم التطبيق

واذا ما ضغطت يتم التنقل بين جميع الادارات

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

معليش طولتها واتوقع الفكره وصلت

اتمنى تشوف الحل ربي يوفقك

[محمد ايمن]

اخي الكريم

هل تقصد عند تحريك دولاب الفارة ؟؟

جرب المرفق التالي مع ملاحظة ان الملف ( std.dll ) يجب ان يكون مع قاعدة البيانات دائما

ds.rar

[ابوأثير]

بارك الله فيكم اخواني الكرام

ولكن الا يوجد طريقه اخرى بدون ملف dll وانا اصلا يهمني تحريك الماوس

ولكن شغله تكون مثلا بعد التحديث نقل التركيز الى مربع اخر

والشرح في المرفق

DS2+.rar

[ابوخليل]

تفضل

DS2X.rar

[ابوأثير]

تم حل المشكلة والف الف الف شكر لكل من ساهم معي في الحل

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

[ابوأثير]

السلام عليكم ورحمة الله

تم تغيير بسيط عندي في البرنامج ولم يعد يعمل الكود

الرجاء المساعدة

في الملف المرفق

DS2X-2.rar

[محمد ايمن]

تم تصحيح الكود تبعا للمرفق السابق الموجود في المشاركة رقم 6

db2.rar

[ابوأثير]

بارك الله فيك اخي محمد

ولكن هل تستطيع تصحيح الكود في المشاركة رقم 8

لهذا المرفق

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

وشكرا

[محمد ايمن]

اخي الكريم

افتح المرفق الموجود في المشاركة رقم 9 و انسخ الكود منه الى برنامجك

[ابوأثير]

اخوي ممكن تجرب الكود انت

الكود لا يعمل نهائيا

[محمد ايمن]

اخي الكريم

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

بعد الاختيار من القائمة المنسدلة

اذا لم يكن هذا المطلوب فأرجو توضيح المطلوب بصورة اوسع

[ابوأثير]

الكود في المشاركة رقم 9 لايغيير بعد الاختيار من القائمة المنسدلة

ولكنه ينقل التركيز

اتمنى وضحت المشكله

[ابوخليل]

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

تم التعديل

DS2X2.rar

[ابوأثير]

اخي ابو خليل المرفق لا يعمل مثل السابق

ممكن تتطبق لي على المرفق التالي بحيث يتم التغيير مع تغيير مربع التحرير والسرد والانتقال

اتمنى تطبق لي على هذا المثال فقط

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

DS2X-2.rar

[محمد ايمن]

اخي الكريم

يوجد عدة اخطاء في المرفق و قد تم العثور عليها و حل المشكلة

- في المرفق القديم يوجد نموذج aaa وهو يحوي نموذج الاجازات كنموذج فرعي

بينما في المرفق الجديد النموذج البديل هو bbb وهو غير مرتبط بنموذج الاجازات

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

جرب المرفق ووافينا بالنتيجة

db3.rar

[ابوأثير]

الان صار يغير بس ابغاه يحصر التنقل للخيار اللي اخترانه من فوق

يعني اذا اخترت الحراسات الثابته في النموذج يعرض لي الاشخاص اللي يعملون في الحراسات الثابته

ويجري على بقية الادارات

[ابوأثير]

كان الكود الاول كذا بس كان كذا

Private Sub co1_AfterUpdate()

	 Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[id] = " & Str(Nz(Me![co1], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

   aaa.SetFocus


End Sub

والاخير كذا

Private Sub co1_AfterUpdate()

Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[Emp_No] = " & Str(Nz(Me![co1], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark


    Me.Emp_No.SetFocus

End Sub

ما ادري وش الحل

[محمد ايمن]

نعم اخي ابو اثير ظهرت هذه المشكلة ايضا عندي واعمل عليها الآن

مسألة وقت فقط

[ابوخليل]

السلام عليكم

المسألة عندك ثلاث جداول

الاول : الادارات

الثاني : الاسماء وهو فرعي بمعنى ان كل ادارة تشتمل على الكثير من الموظفين

الثالث : مثل الثاني بمعنى ان الموظف الواحد يرصد له اكثر من اجازة واحدة

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

وفي مثالك الاخير قمت انت بالغاء احد النماذج الفرعية

ملحوظة :انظر اول مثال قمت بالتعديل عليه صحيح 100%

[محمد ايمن]

اخي ابو اثير جرب هذا المرفق

db5.rar

[ابوأثير]

كلامك صحيح ابو خليل و100%

والمرفق القديم عندي

والمرفق الاخير اللي مسويه الاستاذ محمد ايمن موجود ايضا

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

لحاجتي له في اكثر من مكان

ولكن دام وصلنا لهذي المرحلة فخلاص

الف شكر لكم كلكم