اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نقل التركيز الى اخر نموذج تم فتحة


f16

الردود الموصى بها

اسعد الله صباحكم اعضاء المنتدى الرائع ، وجمعة مباركة عليكم 

اخواني الكرام لدي في المثال المرفق نموذجين 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

تم تعديل بواسطه f16
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

3 hours ago, kanory said:

مشاركة مع اخي المهندس ....

 

مثال.accdb 392 kB · 1 download

عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

لك الشكر اخي 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information