hamzabsb قام بنشر يونيو 3, 2011 مشاركة قام بنشر يونيو 3, 2011 السلام عليكم ورحمة الله اخواني الأفاضل جمعة مباركة ان شاء الله من فضلكم أخواني لي مشكل مروع صنعت برنامجي بالأكسس 2003 في حاسوبي وحين نقلت برنامجي لحاسوب أخر تفاجئت أن كل شيء اتلخبط لم يعد كما صممته بحث أصبح الفورم في مكان أخر وأيضا أزرار في أماكن أخرى بسبب تغيير الشاشة الحاسوب من فضلكم أريد كود أو طريقة يجعل مفاسات فورمات مقاسات برنامجي ثابثة وتشتغل في أي جهاز كيفما كان بدون ميتأثر شكلها رجاءا الأمر مهم من فضلكم ياريت كود مع المكان التي أضعه به رجاءا هدا مشكل مريب في الأكسس أتمنى يكون له حل رجاءا أنتظركم + لم أرفق أي مثال لكي اضع الكود بنفسي وأعرف مكانه من فضلكم رابط هذا التعليق شارك More sharing options...
hamzabsb قام بنشر يونيو 3, 2011 الكاتب مشاركة قام بنشر يونيو 3, 2011 المرجو الرد من فضلكم اخواني الأمر مهم جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
hamzabsb قام بنشر يونيو 4, 2011 الكاتب مشاركة قام بنشر يونيو 4, 2011 30 مشاهدة ولا رد لااله الا الله المرجو من فضلكم مساعدة رجاءا اخواني هل طلبي صعب رابط هذا التعليق شارك More sharing options...
منتصر الانسي قام بنشر يونيو 4, 2011 مشاركة قام بنشر يونيو 4, 2011 اخي العزيز فيما يخص اصدار 2003 فلا توجد هذه الخاصية الا عن طريق الكود ومرفق لك مثالين ممتازين اما في إصدار 2007 و 2010 فأعتقد أن خاصية التناسب مع الشاشة تأتي ضمن خصائص النموذج تحياتي,,, Resize.rar رابط هذا التعليق شارك More sharing options...
hamzabsb قام بنشر يونيو 6, 2011 الكاتب مشاركة قام بنشر يونيو 6, 2011 السلام عاليكم خوي من فضلك ممكن الكود لأضعه عن طريق نسخ ولصق رجاءا مع المكان الدي أضعه من فضللكم ساعدوني رابط هذا التعليق شارك More sharing options...
منتصر الانسي قام بنشر يونيو 6, 2011 مشاركة قام بنشر يونيو 6, 2011 اخي العزيز بالإعتماد على المثال Resize قم بالخطوات التالية : قم بإستيراد الميدولات (gr & tow) الى قاعدة بياناتك 1- في حدث (عند التحميل او On Load) للنموذج يكتب الكود الذي يقوم بتكبير حجم النموذج للحد الأقصى ثم يقوم بإغلاق بقية النوافذ المفتوحة حتى لا تتأثر من تغيير دقة الشاشة DoCmd.Maximize Shell "taskkill /f /im explorer.exe", vbMinimizedNoFocus ملحوظة : اذا كنت ترغب في تنبيه المستخدم عن التغييرات قبل تنفيذها يمكنك أن تسبق الكود بهذا السطر If MsgBox("سيتم إغلاق خلفية ويندوز فإذا كان لديك برامج لم تحفظها اختر (إلغاء الأمر) وقم بحفظها أولاً", vbOKCancel, "تنبيه") = vbCancel Then DoCmd.Quit 2- في حدث (عند الفتح أو On Open) في النموذج اكتب الكود الذي يقوم بحفظ الإعدادات الحالية وتغييرها الى الإعدادات الخاصة بك Call xg_GetScreenResolution Call ChangeResolution(1024, 768) وهنا يمكنك إستبدال الأرقام 1024 و 768 بالدقة المطلوبة بحسب رغبتك 3- في حدث (عند إلغاء التحميل او On UnLoad) يكتب الكود الذي يسترجع الإعدادات الأصلية ويشغل بقية النوافذ Call ChangeResolution(aa1, aa2) Shell "explorer.exe", vbMinimizedNoFocus ومرفق لك مثال مطبق فيه ماسبق أرجو أن يكون الشرح واضح تحياتي,,, NewResize.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان