kkhalifa1960

تفضل استاذ @سامر محمود مخاولتي حسب مافهمت . اليك الشرح والمرفق .... ووافني بالرد . SameerTest.rar

استاذ @مصطفى حماد سيد حماد اذا كان هذا طلبك اضغط على تمت الاجابة عند صاحب الاجابة التي راقت لك .

مشاركةً مع استاذي @ناقل تفضل استاذ @مصطفى حماد سيد حماد محاولتي حسب مافهمت . ووافنا بالرد ImageTest.rar

لانه اذا مافتحت عندي لدي برنامج اصلاح ملفات الاكسس المدفوع .

ممكن ترفق القاعدة !!!

افتح قاعدة جديدة على الجهاز المستهدف واسحب مكونات القاعدة عليه . وطالع النتيجة .

لا، المسافات (الفراغات) داخل الكود في VBA (مثل في الصور) لا تؤثر على تنفيذ الكود أو جودته من ناحية التشغيل. التوضيح: VBA (Visual Basic for Applications) لا يهتم بعدد المسافات أو طريقة تنسيق الأسطر (Indentation). الكود في الصورتين سينفذ بنفس الطريقة تمامًا، لأن المهم هو منطق الكود وترتيب الأوامر وليس شكله البصري. لكن! لماذا نستخدم المسافات؟ رغم أن المسافات لا تؤثر على التشغيل، فهي مفيدة جدًا من ناحيتين: سهولة القراءة والفهم، خصوصًا عند وجود If, Else, Loop, وغيرها. تنظيم الكود، مما يسهل اكتشاف الأخطاء أو التعديلات لاحقًا. مثال: If Me.NewRecord Then Call AuditChanges("Code", "جديد", Form) Else Call AuditChanges("code", "تعديل", Form) End If هذا الشكل أفضل بكثير من ناحية الفهم من هذا: If Me.NewRecord Then Call AuditChanges("Code", "جديد", Form) Else Call AuditChanges("code", "تعديل", Form) End If الخلاصة: ✅ لا تؤثر المسافات على تنفيذ الكود. ✅ يفضل استخدام التنسيق الجيد لتحسين الوضوح وسهولة الصيانة.

مشاركة مع استاذ @Foksh تفضل استاذ @dd13901390 محاولتي اليك نموذجان الول يعمل على الجدول مباشرتاً والثاني بواسطة استعلام اختار مايناسبك . حساب التاريخ.accdb

أخي @Foksh كي ينتج طلب السائل ......... السطر الاخير بالموديول بدلة بــ GenerateID = CLng(yearPrefix & "0000" & (serialPart + 1)) يجعله الله في ميزان حسناتكم .

تفضل استاذ @Majed_ali2010 مرفق جديد به فولدر الصور كلها (MyPhotos) وبرنامج به جدول يحتوي على الاقسام وأكواد الصور التي تتبعه بينشئ فولدر (Images) وبه فولدر باسم القسم وبه الصور التي تتبعه . وفورم (Form1) وزر أمر (Copy Images To Folders) وليستبكس (LstPic) عند اختيار القسم منه ثم الضغط على الزر بينشئ فولدر عام (Images) وبداخله فولدر باسم القسم الذي اختارته وبه الصور التي تتبعه . راجعه واذا احتجت اي شئ انا حاضر . Copy Images To Foldersw folder.rar

تفضل استاذ @Majed_ali2010 حسب مافهمت اليك الشرح المرفق . راجعه واذا احتجت اي شئ انا حاضر . Images_Lab.rar

تفضل استاذ @jo_2010 طلبك حسب مافهمت . 2025-1.rar

تفضل استاذ @moho58 انا جربت هذه الخطوات جسب تعليمات ميكروسوفت . واشتغل معي أعمل على ويندوس 2010 32بت أولاً : تأكد من وجود الملف ضع ملف RotateLabelVer2.ocx في مجلد C:\Windows\System32 (إذا كنت تستخدم نظام 32 بت) أو C:\Windows\SysWOW64 (إذا كنت تستخدم نظام 64 بت). 1-افتح موجه الأوامر كمسؤول في بحث سطح الشاشة اكتب cmd بيظهر معك command prompt كليك يمين عليها واختر Run as Adminstrator 2-انتقل إلى المجلد الصحيح ( أو إذا كنت على نظام 32 بت:) استخدم الأمر: cd C:\Windows\System32 أو إذا كنت على نظام 64 بت: cd C:\Windows\SysWOW64 3-نفِّذ أمر التسجيل الصحيح إذا كنت على نظام 32 بت: regsvr32 RotateLabelVer2.ocx إذا كنت على نظام 64 بت: C:\Windows\SysWOW64\regsvr32 RotateLabelVer2.ocx والآن يمكنك في برنامج إضافة الأداة ستظهر الأداة بهذا الاسم: يمكنك تعديل نوع الخط والحجم واللون من صندوق الخصائص أو كما بالشرح التالي :

انا حولت بأكثر من طريقة ..... والنتيجة فقط التنسيق الشرطي للنموذج المستمر كما بالفورم frm_Sales_List .... اليك المرفق . test (555).rar

اضغط تمت الاجابة . على أخر مشاركة لي اذاكان هذا طلبك .