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
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
Eng.Qassim قام بنشر يوليو 30, 2021 قام بنشر يوليو 30, 2021 3 hours ago, kanory said: مشاركة مع اخي المهندس .... مثال.accdb 392 kB · 1 download عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية 1 1
kanory قام بنشر يوليو 30, 2021 قام بنشر يوليو 30, 2021 22 دقائق مضت, Eng.Qassim said: عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية هذا تواضع منكم اخي قاسم .... بارك الله فيك . 5
f16 قام بنشر يوليو 31, 2021 الكاتب قام بنشر يوليو 31, 2021 لك الشكر اخي kanory على هذا الكود الرائع لقد قام بالمطلوب ، سأقوم بتطبيقه على مثالي هو اكثر تعقيدا من المثال المرفوع وسأخبرك بالنتيجه والشكر موصول الى اخي Eng.Qassim على ما تفضل به من حل . والشكر كذالك لهذا المنتدى الرائع الذي جمع فيه نخبة من عباقرة الاكسس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.