Foksh

كنت انتظر هذه الجملة 😉 .. هل النتيجة الآن ترضيك ؟؟

أخي جو .. الجزء المسؤول عن ضبط وتنسيق العناوين يقع كما هو واضح في الكود الذي شاركته ، داخل الجزء التالي :- With xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(1, lastCol)) .Interior.Color = RGB(52, 152, 219) .Font.Color = RGB(255, 255, 255) .Font.Bold = True .HorizontalAlignment = -4108 .VerticalAlignment = -4108 End With يعني رح نعدل الجزء ونقسمه على 3 مراحل ، لأنه في طلبك انت تريد بعض العناوين بالشكل الطول والباقي سيبقى كما هو في أصله .. لذا جرب ما يلي ، كونك لم ترفق ملف للتجربة وضمان تأكيد الخطوة . فقط استبدل الجزء السابق بالجزي التالي :- ' تنسيق العناوين With xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(1, lastCol)) .Interior.Color = RGB(52, 152, 219) .Font.Color = RGB(255, 255, 255) .Font.Bold = True .HorizontalAlignment = -4108 .VerticalAlignment = -4108 End With With xlWS.Range(xlWS.Cells(1, 6), xlWS.Cells(1, lastCol)) .Orientation = 90 'هنا طبعاً زاوية دوران النص ، وتعدلها زل ما بتحب .WrapText = True End With ' وهنا لتحديد ارتفاع الصف الأول حسب أطول عنوان Dim MaxLen As Long Dim TxtLen As Long Dim i As Long For i = 6 To lastCol TxtLen = Len(CStr(xlWS.Cells(1, i).Value)) If TxtLen > MaxLen Then MaxLen = TxtLen Next i xlWS.Rows(1).RowHeight = MaxLen * 6 + 10 على العموم جرب ، وأخبرنا بالنتيجة ..

العفو أخي @jo_2010 ..

أعلم أنك قمت بتجربة تغير اسم شركة في الجدول ، ووجدت أن الاسم لم يتغير في التقرير ، لذا الطلب الثاني وهو ضبط اسم الشركة عند تغييرها في الجدول بحيث يتم تعديل الاسم تلقائياً في التقرير .. قمت بتغيير خطة التنفيذ بإجراء بسيط بحيث اعتمدت على أن تكون مربعات النص قيمها مربوطة برقم معرف شركة التأمين . ثم قمت بتغيير أسماء الليبلات لكل شركة تأمين داخل التقرير ليصبح التوحيد بالاسم من Lbl1 إلى Lbl17 . وعليه ولجلب الاسم وبدالة DlookUp استعملت الحلقة التكرارية التالية :- Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Dim i As Integer For i = 1 To 17 Me.Controls("Lbl" & i).Caption = Nz(DLookup("[Name_comp]", "ALL_Companys", "[ID]=" & i), "") Next i End Sub ملفك بعد تنفيذ الشق الثاني :- JO2026.accdb

فكرة جميلة ، وقد تكون من الإضافات التي يمكن للمطور تحوير الفكرة الأساسية من الأداة ليطوعها كيفما يريد . كفكرة القائمة المختصرة المؤقتة او المقرونة بنموذج او تقرير محدد. ولكن بحكم أن الأداة حالياً ما زالت قيد الإنشاء و التطوير ، فقد أقوم بتمكين المستخدم لها بإن يقرر إظهار / إخفاء أشرطة آكسيس الأساسية عند تصديره للشريط بعد بناءه الى قاعدة بياناته الشخصية.

لفتة جميلة الى هذه الفكرة .. ولكن انظر لهذه النتيجة التي ستمنع ظهور اي خصائص 😉 . هل هذه كافية ؟؟ أم هذه النتيجة :- شكراً لك أخي أبو الحسن

تفضل أخي جو ، محاولتي البسيطة بحيث قمت بإنشاء استعلام آخر باسم Query1 ، وجعلته مصدر للتقرير .. وتركت التنسيق لك كما تريده انت وحاجتك في التصميم . JO2026.accdb

😅 أعلم ، ولكني وددت المشاركة لتحريك الموضوع

أهلاً أخي جو .. بعد تحميل المرفق ، لم أفهم أين مشكلتك بالضبط ، فقط قمت بإضافة سجل جديد عشوائي ، وفتحت الاستعلام بعد تغيير اسم شركة التأمين كتجربة من "مصر للتأمين" لتصبح "المصرية للتامين" ، وكانت نتيجة الاستعلام "Qry_Total" :- مقصدي أن الاستعلام أولاً يقوم بالمطلوب حتى عند تعديل اسم شركة التأمين .. أما التقرير فإن شاء الله ستحصل على طلبك قريباً .. ما لم يسبقني أحد ..

العفو معلمي الفاضل أبو خليل .. 😇

اهلا مهندسنا الغالي،، إن شاء الله ستغير فكرتك تماماً 😇 . شكراً لك اخي جعفر 😇 وأنا فعلاً تعمدت أن يكون عنوان الموضوع مبهماً . ولكن لا بأس بالتعديل . فقد أوضحت به محتوى الفيديو الصامت جزاكم الله خيراً 💐 أهلاً اخي جو ،، شكراً لك على مداخلتك اللطيفة 💐

أتمنى أن تحقق لك ما تنتظره 🤗

أخواني وأساتذتي ومعلمينا ( دون استثناء ) تشجيعاً للمتابعة والتقدم باستكمال الفكرة المعروضة في الفيديو التالي ، أرجو منكم مشاركتي أفكاركم وتعليقاتكم حول الفكرة الجديدة التي أقوم بتطويرها .. وأعلم أن هناك موضوع واحد على الأغلب قد تحدث عن الفكرة ولكن بطريقة مختلفة تماماً عن ما سترونه في :-

اعرض الملف 🏆🌟 نتائج تحدي المبدعين 13 🌟🏆 :: إضافة وتحرير سجلات في جدول من خلال عنصر ويب :: 📟🌟 السلام عليكم ورحمة الله وبركاته يطيب لي أن أطرح بين أيديكم نتائج : 🙂 🌟 تحدي المبدعين 13 🌟 :: أدخال البيانات في جدول من عنصر ويب :: 🌟 هذا التحدي هو عبارة عن تحدي يطرح بين فترة وأخرى على جروب الواتسأب مجتمع اكسس جروب وكان هذا التحدي هو التحدي رقم 13 وكان موضوع التحدي هو إدخال وتعديل البيانات في الجداول عن طريق عنصر ويب داخل نموذج . 🤗 المشاركين : لدينا 3 مشاركات رائعة من 3 مشاركين متميزين : - الأستاذ/ أبو إلين (مشاركة). - المهندس/ موسى الكلباني (مشاركة). - وأخوكم/ فادي موسى - Foksh (مشاركة). :: صور المشاركات :: :: الأستاذ أبو إلين :: :: المهندس موسى الكلباني :: :: أخوكم فادي - Foksh :: ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Foksh تمت الاضافه 07/14/26 الاقسام قسم الأكسيس

الفكرة جميلة ولا بأس بها .. وعن تجربتي في المرفق الذي شاركنا به أخي @محب العقيدة :- السؤال الأول كان لي :- الإجابة كانت :- وعن سؤال خارج الموضوع كانت :- والإجابة كانت :- ومرة أخرى كانت الإجابة :-

😵 وااااااااو

عدد القراءات كفيل بأن يجعلني أقوم بمفاجأتكم بنشر موضوع جديد قريباً،، 😉

برأيي المتواضع أنه لو كان توجهك التنفيذي بدون انترنت ، فحتماً ستضطر لبناء مكتبة استفسارات ضخمة تغذيها لجدول الإستجابة والردود التي سيطلقها رد التطبيق. يعني تغذية خوارزمية الإجابات ستكون ضخمة جداً مقارنة مع الـ 500 ميجا التي ذكرتها.

حاول ضغط الملف ، وارفاقه. أو ارفعه على موقع مثل ميديا فاير، أو جوجل درايف ... إلخ

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

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

العفو أخي أبو الحسن .. سرني مرورك تقصد ربط آكسيس بجداول Online ؟؟؟ لم أفهم قصدك تماماً

دعم شبكات الـ CDMA .. ( قيد التجربة ) وننتظر نتائج التجارب. دعم الشريحتين ، واختيار شريحة الأرسال الإفتراضية . عرض اسم الشبكة ونوع الاتصال GSM-LTE-CDMA ... إلخ قراءة اسم الشبكة لكل شريحة للتمييز . إتاحة ميزة جديدة وهي الإتصال برقم محدد من تطبيق آكسيس . طبعاً الإتصال سيكون من الجوال مباشرةً . قراءة رسائل الوارد من الجوال والتحكم بطريقة العرض كما هو الحال في الرسائل المرسلة . تصحيح الإتصال عند اغلاق شاشة الهاتف . تصحيح الإتصال عند ربط آكسيس والجوال على نقطة اتصال من جوال آخر بدلاً من راوتر شبكة محلية . جميع ما سبق متاح الآن في الإصدار الجديد . ميزة الإتصال من واجهة آكسيس تحتاج لمنح التطبيق الصلاحية . وكذلك الأمر تصحيح الإتصال عند اغلاق شاشة الهاتف ستطلب منك صلاحية باستثناء التطبيق من وضع الخمول عند قفل الشاشة . إصدارات أوفيس 64 إصدارات أوفيس 32 تطبيق الجوال قم أولاً بإزالة التطبيق المثبت على جوالك للنسخة القديمة ، وثبت النسخة الجديدة بنفس الآلية السابقة ، ومنح التطبيق الصلاحيتين ( قراءة الرسائل و استعمال تطبيق الهاتف للإتصال )