تحويل أي جدول داخلي أو خارجي إلي صفحة HTML مع مميزات مثل البحث والتصفية والتصدير

[Ahmos]

السلام عليكم ورحمة الله وبركاته
الأخوة والأخوات الكرام
تحية طيبة وبعد،،،

يوجد بالمرفقات ثلاث ملفات بعد فك الضغط
1- نموذج الـ Html باسم {ahmosAutoHtmlTemplate_V10} وتحتاج إليه فقط اذا اردت التعديل او اضافة اي شي للنموذج بشكل دائم
    ولإضافتة داخل البرنامج :
        - قم بنسخ كامل المحتوي ثم قم بتشغيل الكود التالي : [Call splitAutoTableSections]

2- ملف نصي باسم {Text_Table_Sample} ويستخدم بنسخ محتواه ثم الضغ علي الزر [Convert Copied Text To html] بالنموذج
    يتضمن هذا الملف مثال لجدول محدد بالعلامات التالية 

\t ---> vbTab علامة الفصل بين الأعمدة
\n ---> vbLf علامة فصل السطور داخل الخلية
\r\n -> vbNewLine علامة السطر الجديد

3- البرنامج باسم {Ahmos_AutoHtmlTable}
    يقوم البرنامج بتحويل الجداول الداخلية باستخدام استعلامات الـ SQL الي صفحة ويب
    و اي جدول خارجي عن طريق نسخ الجدول بالكامل
    او إذا كان الجدول علي شكل نص تم تجميعة برمجياً
    يوجد أمثلة كما يمكنك التجربة علي اي ملف اكسيل 

مع بعض الصور 

بعض أهم النقاط :

1- داخل هذه الوظيفة { Public Function autoTblBody } يتم معالجة محتوي الخلية للجداول الخارجية
وهنا تم إضافة بعض المعاير مثل إذا كان المحتوي رقم اقل او بساوي 5 يتم توسيطة داخل الخلية
اذا كانت القيم TRUE or False / YES or No يتم التوسيط وتغير اللون
إذا كانت بداية الخلية = او ' يتم إزالتها
وكذلك الوظيفة الخاصة بالجداول الداخلية { Public Function sqlToHtmlTbl }

2- يمكن إضافة عمود فارغ علي صفحة الـ HTML باستخدام addRecNumField = True
وهو يضيف عمود recNum
وفائدة هذا العمود يوجد وظيفة داخل الـ JavaScript تقوم بعمل ترقيم تلقائي لهذا العمود
يتم الترقيم التلقائي عن
1- فتح الصفحة
2- عند التصدير وذلك حتي يتم تعدل الارقام علي الصفوف الظاهرة فقط
3- عند عمل إلي للتصفية Clear Filters
الوظيفة هي 

function renumberTableColumn(columnHeadName, filterOnly = false)

ويمكن ان تستخدم لترقيم اي عمود بكتابة اسم العمود بدل من columnHeadName هكذا 'recNum'
اما filterOnly تحدد إذا كنت تريد ترقيم الصفوف الظاهرة فقط ام كامل الصفوف
false كامل الصفوف
true الظاهرة فقط اي ما يتبقي بعد البحث او التصفية 

3- وظيفة saveTable
تمكنك من حفظ الصفحة مرة اخري وفائدتها هي ان تقوم بحفظ نسخة اخري من الصفحة بعد حذف أعمدة او تصيفة صفوف

function saveTable(deleteHiddenRows = true)

وهي بشكل افتراضي تقوم بحذف الصفوف الغير ظاهرة من النسخة وليس من الأصل

4- ستجد Optional ByVal constFileName As String = "", _
داخل الوظيفة { strTbltToHtml و sqlTbltToHtml }
ويسخدم هذا في تعديل هذه القيمة داخل نموذج الـ Html
$fileName$

<span id="fileName" style="display: none;">$fileName$</span>

وفائدتة هي وجود وظيفة في الـ java script {getExportFileName} تقوم بتحديد اسم الملف عند التصدير وتقوم بإضافة الوقت والتاريخ له
فاذا كانت القيمة هنا $fileName$ او فارغة سيتم استخدام قيمة افتراضية [ahmosExTable] وغير ذلك ستسخدم

أغلب وظائف الـ java script قمت بها بمساعدة الـ AI
ولكن الحمد لله فاهمها بنسبة كبيرة 😁

بالتوفيق

Ahmos_AutoHtmlTable_Files.zip

تم تعديل منذ 11 ساعات بواسطه Ahmos
إضافة : vbLf علامة فصل السطور داخل الخلية

[عمر ضاحى]

ما شاء الله مجهود كبير 

تسلم على الشغل العالي ده 

[ابوخليل]

تصفحت العمل على عجل

واضح مليء بالأفكار النيرة الجميلة

شكرا @Ahmos

[Ahmos]

@عمر ضاحى 
الله يسلمك ويوفقك 
شاكر تعليقك الطيب، بارك الله فيك

@ابوخليل
الأخ الفاضل والأستاذ الكريم
بارك الله فيك والشكر لك علي تعليقك الكريم
بالتوفيق

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

بدايةً وبحكم أنني لا أعمل في الوقت الحالي منذ حوالي 15 سنة على HTML 😅 ،

ومن خلال الصور الواضح أن العمل ما شاء الله جميل ونتائجه أجمل ..

جزاك الله كل الخير على طرحك الجميل ومشاركتنا أفكارك الجميلة