Ahmed_J

السلام عليكم يوجد بالمرفق برنامج لاحد الاخوة في الموقع وهو يعمل بصورة جيدة المطلوب: التعديل على كود التصدير الى اكسل بحيث بعد التصدير ياخذ اسم الجدول او الاستعلام الموجود في القائمة المنسدلة (ChooseTble) . اي يكون ملف الاكسل بعد التصدير على سطح المكتب (TB1 او TB2 او TB3 او Query1) حسب الاختيار من القائمة المنسدلة. وشكرا لتعاونكم export excel.rar

UP

السلام عليكم استاذ @صالح حمادي استاذ @jjafferr استاذ @ابا جودى استاذ @ازهر عبد العزيز الكود يعمل بصورة صحيحة وهو عمل ممتاز جدا ورائع * فقط في حاجة تحصل لما يكون عندك اكثر من نموذج (عندما تكون في النموذج الواحد حقول كثيرة مثل قاعدة بيانات الموظفين ) - عند فتح قاعدة البيانات على النموذج الاول او عند الانتقال من نموذج الى اخر تظهر (شاشة اشبه بالبيضاء لمدة 2 ثانية ) قارغة وبدون عناصر ثم تظهر بعد ذلك الحقول (كان النموذج بطيء في فتحه لمدة 2 ثانية) هل من حل لهذه المشكلة او تسريع عمل فتح النماذج؟ وشكرا لك استاذي العزيز وتحياتي للجميع Option Compare Database Function salah(frm As Form) On Error Resume Next Dim x, y, X1, Y1 As Integer Dim moyH, moyW As Double Dim obj As Control Dim str As String x = frm.InsideHeight 'ارتفاع النموذج قبل التكبير y = frm.InsideWidth ' عرض النموذج قبل التكبير DoCmd.Maximize X1 = frm.InsideHeight 'ارتفاع النموذج بعد التكبير Y1 = frm.InsideWidth ' عرض النموذج بعد التكبير moyH = X1 / x 'معامل الإرتفاع moyW = Y1 / y ' معامل العرض For Each obj In frm.Controls With obj .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH .FontSize = .FontSize * moyW End With Next End Function

السلام عليكم جميعا استاذ @jjafferr استاذ @ابا جودى استاذ @ازهر عبد العزيز انا جربت هذه الطريقة (النماذج غير منبثقة) على اربعة شاشات دقة (1280*1024) و(1024*768) و(1366*768)و (1920*1080) وكانت النتيجة ممتازة جدا (كل شيء تمام والنماذج تعمل مليء كل الشاشات) * عن تجربتي الخاصة من الصعب الحصول على ذلك من خلال جعل النماذج منبثقة وتعمل بصورة صحيحة على كل الشاشات باختلاف دقتها تحياتي للجميع

السلام عليكم استاذ @ابا جودى الفكرة هو جعل النموذج يعمل على كل الشاشات باختلاف احجامها ودقة شاشاتها (يمليء الشاشة) وجعل الازرار داخل النموذج تاخذ حجمها ومكانها الطبيعي دون تغيير . تحياتي لك

السلام عليكم اخي العزيز @hassen hassen من الافضل ارقاق الملف لغرض التعديل المهم جرب الطرسقة التالية: 1- افتح قاعدة البيانات بوضع التصميم وافتح محرر الفجول بيسك بالضغط على مفتاحي ALT+F11 2- من قائمة الاوامر بالاعلى اختر Debug ثم اضغط على الامر compil database وهو سيرشدك الى الكود الخطا (اذا كان في خطا بالاكواد) وشكر لك

تقضل اخي الكريم الملف بعد التعديل اتمنى يكون المطلوب DATA2000-3.mdb.rar

السلام عليكم 1- تم الاخذ بملاحظات الاستاذ @jjafferr وتم تغيير مكان الكود (اصبح بعد التحديث) 2- قائمة الحساب هي منسدله ؟؟؟ المفروض تختار منها ملف مرفق انظر له بعد التعديل تحياتي DATA2000-3.mdb.rar

تفضل بنفس الطريقة مع فتح سجل جديد وينتقل الى حقل المبلغ وهكذا اتمنى يكون المطلوب DATA2000-2.mdb.rar

اخي العزيز تستطيع نقل التركيز الى سجل المبلغ عن طريق وضع الكود عند التغيير في حقل المخزن تحياتي لك Me.iAmount.SetFocus DATA2000.mdb.rar

اخي العزيز ممكن تبعث صورة عن التقرير في وضع التصميم وشكرا لك

السلام عليكم تفضل اخي العزيز اتمنى يكون هو المطلوب مشكلة الكسور فى التفقيط.accdb

السلام عليكم استاذ @jjafferr بارك الله فيك وجعلها في ميزان حسناتك شكرا لك

استاذي العزيز @jjafferr نعم واضح جدا حيث يجب اكمال البرنامج من جميع النواحي شكرا لك استاذي العزيز بارك الله فيك

السلام عليكم بارك الله فيك استاذنا العزيز @jjafferr وشكرا لك

السلام عليكم اساتذتي الاعزاء في البرنامج المرفق وهو للاستاذ @SEMO.Pa3x وتم التعديل عليه من قبل الاستاذ @jjafferr كل شيء تمام عند تشغيل البرنامج وتم تجربته على شاشة 1920 * 1080 وشاشة 1366* 768 وهو يعمل بصورة ممتازة هل من الممكن عن طريق الاكواد عمل مايلي (تم التعديل عليها عن طريق خصائص النموذج ولم تنجح): 1- اريد اخفاء الازرار (التكبير والتصفير والاغلاق) علما انه بخصائص النموذج عاملهم (no) 2- النموذح يمكن طيه بسحب الماوس من الاعلى (يمكن تغيير حجمه) وقابل للنفل هل يمكن تثبيتة بصورة ثابته بالشاشة وجعله غير قابل للنقل وشكرا لكم example_semo.accdb

السلام عليكم شكرا لك وبارك الله فيك

اخي العزيز @saffar لدي سؤال حول برنامجك لو سمحت؟ عند التعامل مع البرنامج * هل يمكن ارسال رسالة نصية لكل طالب بدل ملف pdf عن طريق البرنامج ام لا؟ وشكرا لك

استاذ @ابوخليل انا استخدم اوفيس 2010 وهو يعمل بصورة طبيعية جدا على جهازي وهذه صورة من جهازي تحياتي للجميع

كل عام وانتم بخير

السلام عليكم اخي العزيز @حلبي ارجو منك فقط تجربة الملف المرفق اذا كان يعمل على قياس كل الشاشات الي عندك ام لا ؟؟؟ واعلامنا النتيجة وشكرا test -3.accdb

اخي العزيز @حلبي 1- انا جربت البرنامج على عدة حواسيب لابتوب وهو يعمل جيدا لكن الدقة التي لديك 1280 *800 حاول ان تجرب تكبير قياس ارتفاع النموذج واخبرنا النتائج رجاء 2- تم اضافة كود ووحدة نمطية لاخفاء شاشة الاكسسس بدون مشاكل كما في المرفق علما انني اعمل على اكسس 2010 ضبط حجم النموذج على الشاشة-.rar

استاذ @ابا جودى المرفق والله هو كدة زي ماحملته من الانترنت لاحد الاخوه فقط قمت بتكبير قياسات حجم النموذج ضبط حجم النموذج على الشاشة-.accdb

اخي محمد @حلبي اتمنى من اساتذه الموقع حل هذه المشكلة وشكرا للجميع

السلام عليكم اخي العزيز محمد @حلبي هل كانت دقة الشاشة لديك 1024*768 واصبح قصيرا ؟ اكيد في حل لتعديل الوحدة النمطية الخاصة بهذا الشيء من قبل احد الاساتذه في الموقع اتمنى المساعدة منهم لحل هذه المشكلة تحياتي للجميع