تعديل علي كود عداد

[محمد صلاح1]

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

If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: Exit Sub
l1.Width = l1.Width + 100
T1 = l1.Width / r1.Width

 

[AlwaZeeR]

تفضل

If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName"
l1.Width = l1.Width + 100
T1 = l1.Width / r1.Width

 

[محمد صلاح1]

جميل سلمت يدك أستاذنا الخبير @AlwaZeeR

هل تسمح لي بتعديل أخير علي الكود (سقط مني سهواً في المقدمة) وهو بدلاً من أن يغلق نموذج العداد أريده أن يظل مفتوحاً بعد فتح النموذج الأخر ولكن بشكل مخفي وشكرا لكرمك وسعة صدرك

تم تعديل يونيو 13, 2019 بواسطه محمد صلاح1

[AlwaZeeR]

حياك الله

تفضل:

If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName": Forms![ThisForm].Visible = False
l1.Width = l1.Width + 100
T1 = l1.Width / r1.Width

 

[محمد صلاح1]

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

كان نموذج العداد يقوم بحماية معينة وبعد تطبيق الكود نجح في إخفاء النموذج ولكن الحماية توفقت ومعني ذلك أن نموذج العداد لا يعمل في الخفاء نعم اختفي ولكنه أختفاء برائحة الإغلاق فهل من حل أخر ولكم الشكر

تم تعديل يونيو 13, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

شكرا أستاذ جعفر علي المشاركة

الكود يخفي نموذج العداد ولم يفتح النموذج الأخر.

يبدو أني سوف أعود للكود الأول وأمري إلي الله شكرا لكم جميعاً حسن مشاركتكم

تم تعديل يونيو 14, 2019 بواسطه محمد صلاح1

[jjafferr]

شو اسم نموذج العداد ،

وشو اسم النموذج الذي تريد فتحه ،

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

 

ممكن الخلل في عدم وضع اسم النموذج الصحيح !!

الكود يجب ان يكون:

DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Forms![اسم نموذج العداد].Visible = False

او
DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Me.Visible = False

 

جعفر

[محمد صلاح1]

أ / جعفر أعلم منذ مشاركة أ / الوزير الأولي أين يتم وضع اسم النموذجين في الكود ولكن الإشكال هو أنه بعد خفاء نموذج العداد وفتح النموذج الأخر تتوقف الحماية التي كانت تعمل من خلال نموذج العداد أي يجب أن يكون نموذج العداد دائماً مفتوح حتي تظل الحماية تعمل لذلك سوف أستخدم له الكود الأول والله المستعان.

تم تعديل يونيو 14, 2019 بواسطه محمد صلاح1

[محمدنجار]

7 دقائق مضت, محمد صلاح1 said:

بعد خفاء نموذج العداد وفتح النموذج الأخر تتوقف الحماية التي كانت تعمل من خلال نموذج العداد أي يجب أن يكون نموذج العداد دائماً مفتوح حتي تظل الحماية تعمل

إخفاء نموذج العداد لا يعني غلقه بل يبقى مفنوحا...

[ابو جودي]

في ١٣‏/٦‏/٢٠١٩ at 15:11, محمد صلاح1 said:

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

If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: Exit Sub
l1.Width = l1.Width + 100
T1 = l1.Width / r1.Width

 

 

progressbar.mdb