ابوأثير

حياكم الله اساتذتي الشرح واضح في المرفق والصوره

والقيمه اذا كانت k تتحول في المربع الاحمر الى K.e

وشكرا

FR-to.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

DS2X-2.rar

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

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

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

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

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

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

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

لهذا المرفق

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

وشكرا

DS2X-2.rar

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

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

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

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

DS2+.rar

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

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

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

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

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

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

DS.r3d.rar

جزاك الله خيرا وزادك علما ومعرفة

بالفعل فكرة رائعة

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

والله انه لشرف لي ردك على موضوعي

ولك مني الدعاء في ظهر الغيب

تحياتي لك ولكل من في هذا المنتدى الغالي العزيز على قلبي

للعلم تراني من قدماء المنتدى 2003

ياليت لو تكون على اوفيس 2003

بارك الله فيك

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

اخواني الشرح واضح في المرفق

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

r3d.rar

بارك الله فيك على جهدك ونفع بك

الف شكر لك

سويت مرفق بس ما ادري وش صار

عموما تقضل اخي

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

C:\Program Files\school

البرنامج مفتوح المصدر ونفعني كثير

اسأل الله ان يبارك في الاخ اللي عمله

ولا تظلم الرجال

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

للــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ــــــــــرفع

السلام عليكم

سلمت و سلمت يداك

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

تحياتي