f16 قام بنشر يوليو 30, 2021 مشاركة قام بنشر يوليو 30, 2021 (معدل) اسعد الله صباحكم اعضاء المنتدى الرائع ، وجمعة مباركة عليكم اخواني الكرام لدي في المثال المرفق نموذجين f_a + f_b هذين النموذجين عند النقر على زرار يظهر نموذج لنفترض انه نموذج شاشة الاصناف اسم النموذج sersh اريد عند اغلاق النموذج sersh ان ينقل التركيز الى النموذج الذي اعمل عليه ، لانه في مرات اكون فاتح النموذجين في نفس الوقت . استخدمت هذا الكود ولاكنة لا ينفع اذا كانت النماذج كلها مفتوحة DoCmd.Close If CurrentProject.AllForms("f_a").IsLoaded = True Then [Forms]![f_a]![x1].SetFocus Else If CurrentProject.AllForms("f_b").IsLoaded = True Then [Forms]![f_b]![x2].SetFocus End If End If ارجو ان اكون قد وفقت في شرح ما اقصده ولكم جزيل الشكر مثال اوفيسنا نقل التركيز الى اخر نموذج اعمل علية.accdb تم تعديل يوليو 30, 2021 بواسطه f16 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 30, 2021 مشاركة قام بنشر يوليو 30, 2021 2 hours ago, f16 said: اسعد الله صباحكم اعضاء المنتدى الرائع ، وجمعة مباركة عليكم اخواني الكرام لدي في المثال المرفق نموذجين f_a + f_b هذين النموذجين عند النقر على زرار يظهر نموذج لنفترض انه نموذج شاشة الاصناف اسم النموذج sersh اريد عند اغلاق النموذج sersh ان ينقل التركيز الى النموذج الذي اعمل عليه ، لانه في مرات اكون فاتح النموذجين في نفس الوقت . استخدمت هذا الكود ولاكنة لا ينفع اذا كانت النماذج كلها مفتوحة DoCmd.Close If CurrentProject.AllForms("f_a").IsLoaded = True Then [Forms]![f_a]![x1].SetFocus Else If CurrentProject.AllForms("f_b").IsLoaded = True Then [Forms]![f_b]![x2].SetFocus End If End If ارجو ان اكون قد وفقت في شرح ما اقصده ولكم جزيل الشكر مثال اوفيسنا نقل التركيز الى اخر نموذج اعمل علية.accdb 1.12 MB · 2 downloads ليست طريقة احترافية لكنها ربما تفي بالغرض مثال اوفيسنا نقل التركيز الى اخر نموذج اعمل علية.accdb 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 30, 2021 مشاركة قام بنشر يوليو 30, 2021 مشاركة مع اخي المهندس .... مثال.accdb 5 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 30, 2021 مشاركة قام بنشر يوليو 30, 2021 3 hours ago, kanory said: مشاركة مع اخي المهندس .... مثال.accdb 392 kB · 1 download عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية 1 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 30, 2021 مشاركة قام بنشر يوليو 30, 2021 22 دقائق مضت, Eng.Qassim said: عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية هذا تواضع منكم اخي قاسم .... بارك الله فيك . 5 رابط هذا التعليق شارك More sharing options...
f16 قام بنشر يوليو 31, 2021 الكاتب مشاركة قام بنشر يوليو 31, 2021 لك الشكر اخي kanory على هذا الكود الرائع لقد قام بالمطلوب ، سأقوم بتطبيقه على مثالي هو اكثر تعقيدا من المثال المرفوع وسأخبرك بالنتيجه والشكر موصول الى اخي Eng.Qassim على ما تفضل به من حل . والشكر كذالك لهذا المنتدى الرائع الذي جمع فيه نخبة من عباقرة الاكسس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.