نجوم المشاركات

سوف اقوم ببعض التعديلات

محاولتي حسب فهمي التشغيل من الكود نفسه. الارقام والنصوص_02.xlsm

For c = 1 To 2 For j = 3 To 4 Me("Label" & c).Left = (Me.Width / 1.5) - (Me("Label" & c).Width / 1.5) Me("Label" & j).Left = (Me.Width / 2) - (Me("Label" & j).Width / 1.6) Next Next يمكنك تعديله بالشكل التالي مع التلاعب قليلا بالمكان الاصلي لعناصر label على اليوزرفورم 1.rar

نجحت التجربة على الامر الاغلاق والان سوف اتصل بسيكوال سيرفر واقوم باتصال سيرفر عن طريق هذا الكود وسأبلغكم بالنتيجة ان شاءالله

شوف كده المثال اللي عملته ده قصدك عليه تجزئة الجمله الى مفردات 1.accdb

ليه الصدمة يا باش مهندسة مش فاهم حضرتك تقصدى ايه وبعد اذنك عجبتنى الفكرة واستأذن فى عمل بعض التعديلات ولان صاجب الموضوع طلب التعامل مع المسارات استكفيت بالرد طبقا للمسارات بابسط واسهل واسرع طريقة بدون اكواد لان بهارتى كانت خلصت ولكن يا استاذى القدير و معلمى الجليل استاذ @AlwaZeeR بما انك اقترحت ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة كله عمال يحط بهارت جت على انا يعنى لن اشرح شئ ولكن انتظر منكم الرد بعد التجربة الكود ذكى وشاطر لما بيقتح بدون مسارات بيطلب منك تحدد مجلد الصور ومن تلقاء نفسه وبذكائه يروح جايب مسارت الصور ونركز فى كلمة الصور دى يعنى ممكن نشاور له على مجلد فيه ملفاااااااااات كتير قوى سوف لن يجلب الا مسارات الصور فقط Images V2.accdb

جرب احدى المعادلات التالية 1) =IFERROR(INDEX($C$5:$C$10000;MATCH(2;1/($C$5:$C$10000<>"")));"") 2) =IFERROR(LOOKUP(2;1/($C$5:$C$1000<>"");$C$5:$C$1000);"") 3)قيمة رقمية =IFERROR(LOOKUP(9E+307;C:C);"") mdrrsah.xlsx

إذن حان الوقت لاضافة هذه الامثلة للمكتبة ..... شكرا لكم @ابو جودي @Moosak @AlwaZeeR وتقبلوا تحياتي لكم ....

مشروع.accdb

وعليكم السلام-تفضل هذا الفيديو مشروح به طلبك

شكرا أستاذي محمدي عبد السميع

السلام عليكم ورحمة الله تم عمل المطلوب بإضافة كود بسيط للطباعة ولكن قبله تم إضافة نطاق ديناميكي بالتسمية View_All لتحديد ناحية الطباعة في الكود والأهم من ذلك هو تنسيق ورقة الشيت Data حتى يتم احتواء جميع أعمدة الجدول في صفحة واحدة بالعرض (باستعمال خاصية التحجيم) مع تكرار الصف الأول في الجدول (صف العناوين) في طباعة كل صفحة... أرجو أن تفي الغرض المطلوب... بن علية حاجي New-Userform-.rar