أبو إبراهيم الغامدي

أهلا بكم جميعا..

في ٢٠‏/١٢‏/٢٠٢١ at 06:27, SEMO.Pa3x said:

عن نفسي افضل html والwebbrowser في تصميم الواجهات

وهناك دروس كثيرة للأخ أبو ابراهيم الغامدي يشرح هكذا انواع من التصميم

هذا مثال مصغر عن إمكانية الويب مع الأكسس وفلسفة التجاوب..

AccessWithWeb.accdb

وأنا أضم صوتي إلى أصواتكم بالشكر والامتنان @د.كاف يار لمجهوده المميز، ومبادرته السريعة في الرد على تساؤلات الزملاء، مع دعم ذلك بالتوجيه والتثقيف والتعليم، المصحوب بالرفق واللين...

شكرا لك @د.كاف يار

17 ساعات مضت, figo82eg said:

ارجو المساعدة فى تنفيذ هذه الفكره من حيث التعديل على هذا الكود حيث لدى ملفات محفوظة بصيغة بى دي اف لمجموعة من العملاء

وكل عميل ممكن ان يظهر له أكثر من ملف محفوظ بنفس الصيغة

مثال الملفات المحفوظ لدى أسمه : حسام

حسام ( 2 )

حسام ( 3 )

ما اريده هو عند الضغط على الحقل دبل كليك يفتح جميع ملفات حسام وليس ملف حسام فقط

Private Sub CRN_DblClick(Cancel As Integer)

File_Path = Application.CurrentProject.Path & "\CONTACT\"

File_Name = Me.crn & ".pdf"
Name_Path = File_Path & File_Name
   
    If Dir(Name_Path) <> "" Then
    Application.FollowHyperlink Name_Path
    Else
        MsgBox "المستندات غير محفوظة"
    End If
End Sub

 

أهلا بك..

عدل الشفرة التي أشرت إليها لتصبح كالتالي

Private Sub crn_DblClick(Cancel As Integer)
   Dim File_Path As String, File_Name As String, Name_Path As String
   File_Path = Application.CurrentProject.Path & "\CONTACT\"

   File_Name = Dir(File_Path & Me.crn & "*.pdf")
   
   If File_Name = "" Then
      MsgBox "لا توجد مستندات محفوظة"
      Exit Sub
   End If
   While File_Name <> ""
      Name_Path = File_Path & File_Name
      Application.FollowHyperlink Name_Path
      File_Name = Dir()
   Wend
End Sub

النجمة في سطر المتغير File_Name تعود بأسماء جميع الملفات التي في بدايتها ذات الرقم. 

راجع ملف التعليمات لمزيد من التوضح حول التابع Dir

1 ساعه مضت, أبو العقاب said:

لو تشرح لي الطريقة يرحمك الله

أول خطوة قمت بها هي ضبط حدود الصفحة: وضعتها على 10 ملم (1سم)

الخطوة الثانية هي تحديد عدد الأعمدة مع ضبط المسافة بين الأعمدة وبين الصفف على الصفر

الخطوة الثالثة هي ضبط عرض التفصيل ارتفاعة على حجم الملصقة (25.4mm*48.5mm) وبالسنتميتر (2.54cm*4.85cm)

في هذه الخطوة يأتي التباين في المقاس بين الورقة وبين التقرير؛ مقدار التباين يكون بالملي أو جزء منه..

ولكي نستطيع ضبط المقاس بشكل دقيق دون الحاجة إلى الطباعة من أجل التحقق نحن بحاجة إلى إطار يمثل مقاس الملصقة

ومن ثم نضع حقول البيانات كما نريدها في الواقع

الخطوة الأخير نقوم بعرض التقرير في وضعية (رؤية قبل الطباعة) للتأكد من أن البيانات سوف تطبع في مكانها الصحيح

إذا تمت الإمور بالشكل الصحيح نقوم بتغيير لون الحدود إلى (شفاف)

3 ساعات مضت, hosslom said:

بسبب مشكله صعوبه طباعه احجام مختلفه من التقرير بدون تعديل حجم العناصر داخل التقرير حتي تتناسب مع الحجم مثلا

A4, B5, A5

أهلا بك ..

يمكن تطبيق الفكرة عن طريق عنصر WebBrowser 

زودني بقالب التقرير مع بعض البيانات إذا أردتَ

أهلا بك أبو العقاب

راجع المرفق التالي.. أرجو أن يكون مناسبا لمتطلباتك

الحدود وضعت من أجل التصميم.. يمكنك إزالتها بتعديل خصائص لون الحدود إلى (شفاف)

استخدمت الخطوط عوضا عن عنصر ActiveX

طباعة ملصقات نهائي.zip

أهلا بك محسن

أجريت تعديلا على الملف الذي أشرت إليه

Root-1001.zip

4 ساعات مضت, at_aziz said:

اللي عندي  متعرف تلقائي على الجهاز  ولا حصلت له صفحة خصائص او اعدادات

بحاول اجيب قارئ اخر  واجرب عليه

بالنسبة لما أعنيه والأستاذ أبو خليل هذا

أهلا بكم..

حسب معرفتي أن أجهزة المسح لها إعدادت انتقال مثل(ENTER, TAB, SPACEBAR) وغيرها من طرق الإدخال يتم برمجة الجهاز عن طريق مصورات (باركود) متوفرة في دليل الاستخدام

إذا لم  يكن دليل الاستخدام متوفر لديك أو كانت هذه الرموز غير متوفرة ضمن الدليل فيمكنك زيارة موقع الشركة للاطلاع على التعليمات المساندة..

وعليكم السلام محمد..

الملفات الثنائية لها معرفات نصية في أول سطر من الملف! يمكن الاستفادة من هذه الميزة للتعرف على الملف الأصلي حتى لو غُيرت اللاحقة!

افتح الملف بواسطة محرر النصوص التقليدي للحصول على معرف الملف ثم استخدم هذا المعرف في فحص القيمة..

في أكسس الشفرة التالية تفي بالغرض إن شاء الله

Sub TestData()
   On Error Resume Next
   Dim fn, ft
   fn = CurrentProject.Path & "\testdata\testdata.msi"
   Open fn For Input Access Read As #1
   Line Input #1, ft
   Close #1
   
   If ft Like "*Standard ACE DB*" Then
    Name fn As Replace(fn, ".msi", ".accdb")
   End If

End Sub

أهلا بك..

يوجد في أكسس دالة مالية لهذا الغرض هي: DDB() Function اقرأ عنها! 

أهلا بك..

من متابعتي لهذه المشاركة اتضح لي أن البيانات في أكسل ليست مجرد جداول بيانات! بل قوالب للبيانات! وبناءً عليه لا يمكن استيراد البيانات المقولبة بالطرق التقليدية. 

إليك بعض التلميحات المساعدة في تحسين أستيراد البيانات..

.. اعتماد تسمية موحدة لملفات أكسل للفصول التي لها نفس المواد حتى يمكنك وضع عنواين موحدة عند الاستيراد

.. أكسس لا يعترف بالأعمدة المدمجة ولهذا يجب أن تحتاط لهذه الإشكالية   

19 دقائق مضت, أ / محمد صالح said:

بالنسبة لموضوع إنشاء أكثر من صفحة فلا يمكن مع استعمال العلامات المرجعية bookmarks

يمكن استخدام الإجراء التالي للانتقال إلى صفحة جديدة في الوورد

X.Selection.InsertNewPage

منذ ساعه, حامل المسك said:

الفكرة رائعة،، فإن أمكن شرح الكود لأن القالب يمكن يعدل مع الوقت..

الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند..

الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد

الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد

الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد

منذ ساعه, حامل المسك said:

كذلك هل بالإمكان إذا كان في القالب مربع نص أن يستخدم معه هذه الطريقة للكتابة بداخله،،؟؟،

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

منذ ساعه, حامل المسك said:

وإذا كان العمل على ما تفضل به المبدع أبو إبراهيم الغامدي يمكن التحكم في الخط وتباعد الأسطر مثلا ونحو ذلك فذلك رائع،،

يمكن عمل ذلك بكل سهولة وأكثر!!!

كما يمكن إعادة تحرير المستند المصدر عن طريق محرر نصوص تقليدي (TEX Editor)!!

هذى صورة المستند في محرر النصوص التقليدي..

<html dir=rtl>
<body style='font-family: "ATraditional Arabic", calibri; font-size:16pt;font-weight:bold'>
<h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2>
<p><span>الموضوع: </span>تكليف الموظف (م8)/ فهد سعد محاسب رئيس اللجنة العليا </p>
<h3 style='font-size:16pt'>بناءً على:</h3>
<ul >
<li style='color:blue'>بموجب صلاحية المدير </li>
<li style='color:blue'>وبناء على المصلحة رقم .... </li>
<li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li>
</ul>
<h3 style='font-size:16pt'>تقرر ما يلي:</h3>
<ol >
<li style='color:maroon'>استمرار تكليف علي </li>
<li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li>
<li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li>
</ol>
<h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2>
<p><span>الموضوع: </span>تكليف الموظف م(11)/ عيسى العيسى موظف الإدارة العليا </p>
<h3 style='font-size:16pt'>بناءً على:</h3>
<ul >
<li style='color:blue'>بموجب صلاحية المدير </li>
<li style='color:blue'>وبناء على المصلحة رقم .... </li>
<li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li>
</ul>
<h3 style='font-size:16pt'>تقرر ما يلي:</h3>
<ol >
<li style='color:maroon'>استمرار تكليف علي </li>
<li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li>
<li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li>
</ol>
<h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2>
<p><span>الموضوع: </span>تكليف الموظف نور الأنور مشرف الأرشيف </p>
<h3 style='font-size:16pt'>بناءً على:</h3>
<ul >
<li style='color:blue'>بموجب صلاحية المدير </li>
<li style='color:blue'>وبناء على المصلحة رقم .... </li>
<li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li>
</ul>
<h3 style='font-size:16pt'>تقرر ما يلي:</h3>
<ol >
<li style='color:maroon'>استمرار تكليف علي </li>
<li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li>
<li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li>
</ol>
</body>
</html>

الجدير بالذكر أن التنسيقة المعنية بالانتقال إلى الصفحة التالية موجودة ضمن الوسم التالي

<h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2>

آمل أن لا تفكر في استخدام الوورد مجدداً..

2 ساعات مضت, أ / محمد صالح said:

فالمشكلة في الكود في المرفق في هذه المشاركة

شكرا لك أ.محمد.. ولا حرمنا من مداخلات القيمة..

1 ساعه مضت, حامل المسك said:

عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،،

الحمدلله.. 

إذا كان لديك قالب معين فيمكن أن نعيد تصميمه من داخل أكسس.. إن أردت.. 

14 دقائق مضت, حامل المسك said:

أنا فتحت ملف الوورد ولم أجد البيانات وجدت سجلا واحدا بقية الصفحات فارغة،،

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

  الأولى.doc

5 دقائق مضت, حامل المسك said:

حاولت التطبيق لم تضبط معي.. ربما لم أعرف استخراج الملف المطلوب

أهلا بك..

المتوقع منك: أنك فتحت قاعدة البيانات المثال وضغطت على (تصدير الفرارات) وذهبت إلى مجلد قاعدة المثال وتفتح الملف المصدر بورد!

إذا لم يفتح فهناك رسالة بالتأكيد! أنا أحتاج إلى هذه الرسالة لأعالج الخطأ..

إذا فتح ملف المثال بشكل سليم؛ ولكن لم تستطع التطبيق على قاعدة البيانات الأصلية، فهذا أمر يمكن مناقشته فيما بعد..

3 ساعات مضت, حامل المسك said:

لم يعمل معي ملف الوورد؟

أهلا بك..

لم تذكر السبب!

لحل الإشكال قم بتغيير لاحقة الملف إلى (mht) ليصبح اسم الملف مثلا (Group.mht)، ثم استخدم فتح بواسطة، ثم اختر برنامج (Word)..

::: قد يكون هذا الأسلوب غريبا بعض الشيء لكنه معتمد من قبل Microsoft!

::: الهدف من تنسيق المستند بهذه الصورة هو إبعادك عن تنسيقات Word الطويلة!

<أرجو من الزملاء التعليق عند تجربة المثال>

إليك التعديل..

البرنامج.zip

14 ساعات مضت, حامل المسك said:

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

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

14 ساعات مضت, حامل المسك said:

وعشر مباركات،، وفقكم الله لجمال حسن اغتنامها وتقبل منكم صالح الأعمال،،

اللهم آمين..

14 ساعات مضت, حامل المسك said:

كرما أريد تعديل على الكود بحيث يرسل مجموعة كاملة وليس سجلا واحدا فمثلا يوجد في النموذج قائمة منسدلة في حال اختيار المجموعة يتولى البرنامج إرسالها للوورد المرفق كل سجل في صفحة مستقلة..

هذي طريقتي،، أرجو أن ترضيَك..

البرنامج.zip

أهلا بك عزيزي..

لم أجلس معك يوماً! ولم أسمعك كررت شيئا! ولم أُلزمك أن تسير معيَ أبداً! إذن لاداعي لهذه المشاعر الملتهبة! هون عليك!

كل ما في الأمر أنني أريد أن تصل إلى المطلوب بدون الحاجة إلى الشفرة.

بدون الجدول الوسيط أنت بحاجة إلى سجل جديد في كتاب الحديث لكل تخريجة، أو كتابة أكثر من تخريجة في السجل الواحد..

وبدون رقم الكتاب لن تعرف إلى أي كتاب ينتمي الحدث..

ولهذا لم يكن باستطاعتك الوصول إلى البيانات بطريقة سليمة، لكون البيانات معرفة بطريقة غير سليمة..

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

 الجدول الوسيط يقوم بربط بيانات الحديث (رقم الحديث،  رقم الكتاب)  مع بيانات التخريج (رقم التخريجة)..

بالجدول الوسيط تستطيع عمل استعلام يجمع كتب الحديث مع تخريجاتها صوريا دون الحاجة إلى كتابتها في كل مرة..

أهلا بك..

جرب هذا..

InterClock.mdb

أهلا بك..

3 دقائق مضت, nssj said:

وقد جربت التعديل على رقم الارتباط بالشاشة التي تفضلت بها .. وتم التغيير بسلاسة .. ولكن لم يحفظ التعديل في حقل (MNO) الذي جداول الكتب

ليس بعد الآن!.. بيانات الربط تخزن في الجدول الوسيط فقط..

25 دقائق مضت, nssj said:

لذلك عندما شغلت كود (إجراء دمج المراجع) حصل الخلل لأن الجدول الوسيط أخذ المعلومات القديمة الموجودة في حقل (MNO)

سبق وأن قلت "الخيارات الأخري أتحدث عنها فيما بعد"  انسَ الخيارات الأخرى مؤقتا..

حاول أن تمارس إدخال البيانات وتختبر سلاسة الإدخال مع البيانات الكبيرة..

44 دقائق مضت, nssj said:

فما هو المطلوب لكي يتم حفظ التغييرات في حقل (MNO) في جداول الكتب

لست بحاجة إلى إخال بيانات في هذا الحقل لأن مكانه في جدول الكتب خطأ من الأصل (في علم هندسة البيانات)

أهلا بك.. 

من الواضح أنه ليس لك دراية بقواعد البيانات!

عند إضافة جداول لكتب جديدة احرص أن تكون مثل الجداول الموجودة

النافذة الرئيسية بها ثلاث خيارات ..

نافذة التخريجات: يمكنك هنا إضافة كتاب للتخريجة (رقم الكتاب ورقم الحديث).. لايمكنك التحديث منهنا! التعديل عن طريق ضغط الزر

الخيارات الأخري أتحدث عنها فيما بعد

MusndWZwayid 10.accdb 

4 ساعات مضت, nssj said:

أخي الكريم شكرا على الإفادة .. مع أنني لم أستوعب جميع كلامك أخي الكريم

أهلا بك..

قمت بحذف مشاركتي بالخطأ.. أعتذر

مشاركتي كانت طلب إجراء تعديل على جدول الكتب وذلك بإضافة رقم الكتاب إلى سجل البيانات، وذلك من أجل تمييز رقم الحديث برقم مرجعه عن باقي الكتب.

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

إذا لم تكن على استعداد لإضافة رقم الكتاب إلى جدول الكتب فلن يكون بإمكانك التعديل على البيانات مباشرة وستحتاج إلى الشفرة في كل مرة.. ولن يتحقق طلبك!