Ahmed_J

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

السلام عليكم استاذ @jjafferr الا توجد طريقة لتوسيط الارقام عن طريق وحدة نمطية او كود معين لاهمية موضوع التنسيق للتقرير بالاكسس وهذا مثال لاحد الاخوة بس مش عاوز بضبط معي عند تغيير قياس الحقل وشكرا لك Database4.mdb

up

السلام عليكم لدي قاعدة بيانات الموظفين وفيها عدة تقارير وبعض الحقول صعيرة الحجم وفيها كلام كثير عملت الحقول من خلال نافذة ترتيب جدولي ومن خصائص الحقل جعلتها قابلة للنمو لكن الارقام داخل الحقول تبقى في الاعلى كما في الصورة 1 المطلوب / توسيط النص من جميع الجهات في حقول التقرير كما في الصورة رقم 2 الماخوذة من ملف اكسيل وشكرا لكم

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

شكرا جزيلا استاذنا العزيز @jjafferr بارك الله فيك اخترت طريقة الاستاذ @منتصر الانسي بارك الله فيك استاذ منتصر كلوا تمام

صباح الخير استاذ @jjafferr شكرا جزيلا لكن لايوجد عند ي بالتقرير اجمالي او جمع TSum1 = (TSum1 + Expr1) فقط بيانات موظفين (اسماء موظفين ) عناوينهم الوظيفية

السلام عليكم اساتذتي الاعزاء لو سمحتم مثال على تحديد عدد السجلات في كل صفحة من صفحات التقرير مثلا (20 سجل في كل صفحة فقط) عن طريق زر امر في النموذج مع فائق الاحترام والتقدير

استاذ @أ / محمد صالح بارك الله فيك وجعلها في ميزان حسناتك كل شيء تمام شكرا لك

السلام عليكم استاذ @أ / محمد صالح بارك الله فيك كل شيء تمام والحمد لله فقط لدي سؤال اخير لو سمحت؟ لو بدي اجعل اسم قاعدة البيانات تقبل كل شيء (حقل فيه تاريخ او رقم او اسم ) هل اقوم فقط بتغيير تعريف المتغير في الوحدة النمطية (As String) الى (As Variant) في كل الاسطر للوحدة النمطية ام ماذا وشكرا لك

السلام عليكم استاذ @أ / محمد صالح عندما يكون اسم الحقل باللغة العربية تظهر اسم قاعدة البيانات بحروف غير مفهومة كما في الصورة هل ممكن تعديل ذلك تحياتي لك

السلام عليكم استاذ @أ / محمد صالح شكرا جزيلا الكود شغال تمام 1- اريد ان يكون : "اسم حقل معين بالنموذج" = RenameMe يساوي اسم حقل بالنموذج مثل حقل اسم الموظف 2- ان يوضع الكود في زر عند الاغلاق عند الخروج بدون مايفتح قاعدة البيانات مرة اخرى عملت متغير ولم تنجح الطريقة وشكرا لك

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

السلام عليكم استاذ @jjafferr استاذي الغالي يعجز اللسان عن وصفك لان وصفك لا ياتي من اللسان ولاالقلم لان القلم اذا تجرأ وحاول ان يكتب عنك سيخجل حبره ويجف احترااااااااااااماَ لك شكرا لك استاذي ومعلمي العزيز بارك الله فيك

السلام عليكم يوجد بالمرفق برنامج لاحد الاخوة في الموقع وهو يعمل بصورة جيدة المطلوب: التعديل على كود التصدير الى اكسل بحيث بعد التصدير ياخذ اسم الجدول او الاستعلام الموجود في القائمة المنسدلة (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

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