محمد صلاح1 قام بنشر يونيو 13, 2019 مشاركة قام بنشر يونيو 13, 2019 برجاء التعديل علي الكود التالي وهو لعداد وقت بحيث عند أنتهاء العداد من عمله يتم فتح نموذج أخر دون غلق النموذج الحالي وشكرا If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: Exit Sub l1.Width = l1.Width + 100 T1 = l1.Width / r1.Width رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يونيو 13, 2019 مشاركة قام بنشر يونيو 13, 2019 تفضل 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 رابط هذا التعليق شارك More sharing options...
محمد صلاح1 قام بنشر يونيو 13, 2019 الكاتب مشاركة قام بنشر يونيو 13, 2019 (معدل) جميل سلمت يدك أستاذنا الخبير @AlwaZeeR هل تسمح لي بتعديل أخير علي الكود (سقط مني سهواً في المقدمة) وهو بدلاً من أن يغلق نموذج العداد أريده أن يظل مفتوحاً بعد فتح النموذج الأخر ولكن بشكل مخفي وشكرا لكرمك وسعة صدرك تم تعديل يونيو 13, 2019 بواسطه محمد صلاح1 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يونيو 13, 2019 مشاركة قام بنشر يونيو 13, 2019 حياك الله تفضل: 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 2 رابط هذا التعليق شارك More sharing options...
محمد صلاح1 قام بنشر يونيو 13, 2019 الكاتب مشاركة قام بنشر يونيو 13, 2019 (معدل) بارك الله فيك وجزاك خيراً @AlwaZeeR كان نموذج العداد يقوم بحماية معينة وبعد تطبيق الكود نجح في إخفاء النموذج ولكن الحماية توفقت ومعني ذلك أن نموذج العداد لا يعمل في الخفاء نعم اختفي ولكنه أختفاء برائحة الإغلاق فهل من حل أخر ولكم الشكر تم تعديل يونيو 13, 2019 بواسطه محمد صلاح1 رابط هذا التعليق شارك More sharing options...
محمد صلاح1 قام بنشر يونيو 14, 2019 الكاتب مشاركة قام بنشر يونيو 14, 2019 (معدل) شكرا أستاذ جعفر علي المشاركة الكود يخفي نموذج العداد ولم يفتح النموذج الأخر. يبدو أني سوف أعود للكود الأول وأمري إلي الله شكرا لكم جميعاً حسن مشاركتكم تم تعديل يونيو 14, 2019 بواسطه محمد صلاح1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 14, 2019 مشاركة قام بنشر يونيو 14, 2019 شو اسم نموذج العداد ، وشو اسم النموذج الذي تريد فتحه ، وارفق لنا الكود اعلاه بعد ان وضعته في برنامجك. ممكن الخلل في عدم وضع اسم النموذج الصحيح !! الكود يجب ان يكون: DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Forms![اسم نموذج العداد].Visible = False او DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Me.Visible = False جعفر رابط هذا التعليق شارك More sharing options...
محمد صلاح1 قام بنشر يونيو 14, 2019 الكاتب مشاركة قام بنشر يونيو 14, 2019 (معدل) أ / جعفر أعلم منذ مشاركة أ / الوزير الأولي أين يتم وضع اسم النموذجين في الكود ولكن الإشكال هو أنه بعد خفاء نموذج العداد وفتح النموذج الأخر تتوقف الحماية التي كانت تعمل من خلال نموذج العداد أي يجب أن يكون نموذج العداد دائماً مفتوح حتي تظل الحماية تعمل لذلك سوف أستخدم له الكود الأول والله المستعان. تم تعديل يونيو 14, 2019 بواسطه محمد صلاح1 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر يونيو 15, 2019 مشاركة قام بنشر يونيو 15, 2019 7 دقائق مضت, محمد صلاح1 said: بعد خفاء نموذج العداد وفتح النموذج الأخر تتوقف الحماية التي كانت تعمل من خلال نموذج العداد أي يجب أن يكون نموذج العداد دائماً مفتوح حتي تظل الحماية تعمل إخفاء نموذج العداد لا يعني غلقه بل يبقى مفنوحا... رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يونيو 15, 2019 مشاركة قام بنشر يونيو 15, 2019 في ١٣/٦/٢٠١٩ 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 رابط هذا التعليق شارك 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.