منتصر الانسي

ومرفق لكم مثال الأستاذ محمد طاهر (وبتدخل بسيط مني) وبصراحة أعتبره أفضل مثال لتقسيم الأسماء حيث يشمل 1- تقسيم الإسم كاملاً 2- تجاهل المسافات بين الأسماء 3- تحديد أجزاء الإسم التي يجب ربطها بما قبلها أو بما بعدها (مثال عبد و أمة) أو تجاهل (مثال بن و بنت) وبالإطلاع على المثال سيتضح المقصود إن شاء الله تحياتي,,, تقسيم الاسماء.rar

اولاً اسألك سؤال كيف ستضع صورتين بنفس الإسم ونفس الإمتداد في ملف واحد...؟ فبحسب الكود يتم إستدعاء الصورة التي اسمها مطابق للرقم (باضافة s) وامتدادها jpg فكيف سيكون صورتين لهما نفس الاسم والامتداد في ملف PHOTOS ...؟ وبالإجابة على هذا السؤال يمكن عمل التعديل تحياتي,,,

تفضل اخي جرب التعديل المرفق تحياتي,,, sample.rar

بعد اذن صاحب الموضوع قمت بالتحميل من خلال الرابط الموجود في الكتاب وهذا الرابط هنـــا تحياتي,,,

اسمحوا لي اخواني بهذه المداخلة ارجو الاطلاع على التعديل المرفق تحياتي,,, AK_NA_33.rar

اخواني الأعزاء نواصل حلول التقارير في اكسس مرفق لكم المثال السابق بعد إضافة مدول جديد وتقريرين وذلك لعمل خلفية تقرير برمجيا دون إثقال البرنامج بصور لجعلها خلفية للتفارير ارجو ان تكون مفيدة تحياتي,,, التقارير.rar

مشكورين جميعاً اخواني الأعزاء وارجو من الله ان تستفيدوا مما جاء في المثال لنثبت للبقية بأن الأكسس لا يستعصي عليه أي أمر تحياتي,,,

دائماً ما تحرجني بكلامك ... فأنا أبعد ما أكون عن الإبداع ولكن لا أقول إلا جزاك الله خير تحياتي,,,

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

المعذرة كان الخطأ في جملة IF الثانية مرفق لك التعديل تحياتي,,, Documents Description.rar

تفضل اخي العزيز مرفق مثالك وبه تعديل يفي بالغرض . رغم اني أعتقد أنه يمكن إختصار الكود أكثر ولكن يحتاج بعض الوقت تحياتي,,, Documents Description.rar

الامور الان وضحت فكرة جميلة رغم استغرابي لطريقة تحديد الوثائق المرفقة بهذا الشكل . ولكن لدي هنا استفسارين - هل ان قيمة الحقل تكون بهذا الشكل (اي ثلاثة ارقام مسافة ثلاثة ارقام مسافة... الخ أي هكذا "000 000 000") ولا تتغير ؟ - اقصى عدد للوثائق المرفقة للتعرفة الواحدة . والحل قريب ان شاء الله تحياتي,,,

اخي العزيز الصور لم توضح السؤال المعروف ان وظيفة البحث هي البحث عن السجلات التي تتطابق مع معايير البحث فاذا كنت اعرف رقم السجل المطلوب فلماذا ابحث عنه اساساً ؟؟؟ يكفي ان اذهب اليه مباشرة . لكن بحسب معرفتي بك اعتقد ان طلبك يحتوى على فكرة جميلة ولكنك لم توصلها بطريقة صحيحة نرجو التوضيح أكثر... تحياتي,,,

الله يسامحك اخي المشرف يعني قمت بتطبيق مقترحي بمثال لي عموما مشكور ولكن لي هنا ملاحظة فانا ارى انه من الافضل ان يتم إضافة الروابط ضمن المشاركة الأولى لتبقى هي مصدر كل الروابط وتحذف المشاركات التالية تحياتي,,,

اخي العزيز جزاك الله كل خير على الكلام الجميل وكما تقول دائماً مانحن الا طلبة علم نعلم ونتعلم من بعضنا وانا معك في كل ماقلته ولكن ذكري للمصادر هو من باب تكريم صاحب الفكرة ولأضع نفسي في مكاني الصحيح . تحياتي,,,

تكرم عينك اخي ابوخليل ولكن في البداية لابد من التوضيح بان هذه الدالة استقيتها من مثال اجنبي ولا اريد ان اسند لنفسي فضل ليس لي ولكن من بساطتها يمكن فهمها بسهولة... والان الى الشرح Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) هذا سطر تعريف الدالة ومتغيراتها والتي تتمثل في اسم الجدول او الاستعلام , اسم الحقل المراد التجميع بحسبه , اسم الحقل الذي سيتم تجميعه , اسم الحقل الذي سيرتبط به حقل التجميع (وأعتقدانه يمكن فهمها اكثر من واقع المثال) Dim DB As Database, rs As Recordset Set DB = CurrentDb هنا يتم تعريف متغيرين الأول من نوع Database أي قاعدة بيانات (وجعلناها قاعدة البيانات الحالية التي نعمل بها) والثاني rs من نوع Recordset وهذا النوع من المتغيرات وبشكل مبسط يمكن تعريفه كأنه جدول أو إستعلام Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) هنا اسندنا للمتغير rs جملة SQL التي تمثل مصدر بياناته Do If rs.AbsolutePosition = rs.BOF Then هذه بداية الحلقة التكرارية التي ستتنقل بين سجلات الـ Recordset ثم تقوم جملة IF هنا بإختبار ما إذا كان موقع السجل الحالي (AbsolutePosition) في بداية (BOF) الـ Recordset Horizontal = rs(Feld2) عندها يجعل النتيجة تمثل قيمة الحقل المجمع Else Horizontal = Horizontal & ", " & rs(Feld2) End If وإلا تكون النتيجة هي قيم الحقل المجمع في السجلات السابقة مضافاً اليها الفاصلة (ويمكن تعديلها بما تشاء) ثم قيمة الحقل المجمع للسجل الحالي rs.MoveNext الإنتقال للسجل التالي Loop Until rs.EOF إختبار ما إذا وصلت الحلقة التكرارية إلى آخر سجل (EOF) في الـ Recordset rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function عندها يتم إغلاق الـ Recordset و الـ DB وتصفية الذاكرة من أي قيم محفوظة فيها وإنهاء الدالة هذا شرح مبسط فأرجو أن يكون واضح تحياتي,,,

بعد اذن الاخ nart lebzo تفضل اخي مثالك بعد التعديل تحياتي,,, base.rar

اقترح تثبيت الموضوع وعلى ان يتم توسيعه ليشمل ارتباطات اي مواضيع او مشاركات تحتوي على افكار و تلميحات جديدة من قبل اي عضو وبحسب مايراه المشرف . تحياتي,,,

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

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

رائع :clapping: واصل إبداعاتك مشرفنا تحياتي,,,

اخي العزيز يبدو اني اسبح فلك اخر فإما اني لم افهم الفكرة بشكل كامل او فهمتها بشكل مغلوط او اني لم افهمها نهائياً. كما قلت من سابق ومازلت اشدد انها فكرة جميلة ومهمة (بغض النظر عن موقعها في نفس البرنامج او في برنامج مستقل) وعندما رأيت البرنامج الذي وضعته لا اخفيك القول انه ابهرني بكل ما فيه من جماليات وافكار وقدرة برمجية . وقد ساورني الشك منذ البداية بأنه برنامج يتم العمل به في الواقع . لذا يا اخي فلدي اقتراحين ارى ان نختار بين احدهما : - اما ان نبدأ مما انتهيت اليه في برنامجك بشكله النهائي بغرض مناقشته والعمل على تطويره (Recommend). - او ان نبدأ بتحليل الفكرة من الصفر . فكما اخبرتك بالامس اني قد راودتني افكار جميلة بهذا الخصوص قد يكون برنامجك قد غطاها مسبقاً أو أنه قادرا على تغطيتها ,, او يمكن ان نبدأ ببناء قاعدة بيانات جديدة تستطيع القيام بوظيفة الأرشيف الألكتروني لتشمل جميع الافكار المطروحة . أرجو منك تقبل رأيي بصدر رحب . تحياتي,,,

اخي العزيز nart lebzo في البداية انا معك في كل ما قلته بشأن التفاعل خاصة في موضوع مهم كهذا ولكن من جهتي لم اراه الا بعد ان قمت انت برفعه والسبب الاخر (وهنا المشكلة) ان الدخول في نقاش في هذا الموضوع يحتم على المشارك الاندماج فيه وواجب الالتزام بمتابعته حتى النهاية وما يتطلبه من وقت (ولكن منين ياحسرة :') ) عموما اخي العزيز بعد التمعن في المشاركات تداخلت (الاستفسارات والملاحظات والافكار) ولم اعلم كيف يمكنني التنسيق بينها وطرحها في مشاركة واحدة . وبعد التفكير رأيت ان اقوم اولاً بطرح التساؤلات والاستفسارات فيمكن من خلال توضيحها ان تظهر ملاحظات وافكار جديدة او تلغي ملاحظات اخرى. ولتوضيح هذه التساؤلات سأفترض أني اريد انشاء ارشيف وظيفي يشمل وثائق الموظفين (وهذا ما اعتمدت عليه اثناء تحليلي للفكرة وهو ما سابقى استشهد به لاحقا) والان نأتي الى التساؤلات التي توقفت عندها وسأحاول توضيحها بإقتباس من مشاركاتك لتعرف ما أقصده . الهدف والفكرة رائعة ولكن تساؤلي في هذه النقطة هو - هل ستبقى هذه القاعدة كقاعدة مستقلة أم سيتم إستيراد كائناتها إلى القاعدة الأساسية ؟ الرد على هذا التساؤل سيوضح بعض الملاحظات هل بالامكان توضيح المقصود بالملف (هل هو الـ Folder فقط) ام يشمل الملفات المتنوعة بإمتداداتها المختلفة (صور ومستندات وخلافه) هذا من ناحية ومن ناحية أخرى ماذا تعني بـ(الحقل) المقصود هنا واين هو موقعه هل في القاعدة الرئيسية ام في هذه القاعدة...؟ للتوضيح هل هذا الحقل هو الموجود في جدول (الصادر أو الوارد في القاعدة الاصلية أم في جدول tblDocumentation في قاعدة البيانات هذه)؟ فلا اخفيك اني قد استنتجت من خلال هذا الكلام فكرة جميلة جدا (قد لا تكون هي ما تقصده) فاردت ان استوضح منك فكرتك لارى مدى تقاربها من الفكرة التي تكونت عندي . من الإقتباسين السابقين ارى أنك ركزت على حجم الوثائق المؤرشفة وتأثيرها على قاعدة البيانات رغم أني لا أرى أي ثقل على قاعدة البيانات فأنت عندما تحفظ صورة في الملف إنما تحفظ مسارها في القاعدة ولا تحفظ نسخة منها في القاعدة هذا من ناحية اما من ناحية التفضيل فالصور بالامتدادات ذات الاحجام الكبيرة تكون ذات دقة عالية وافضل وبالتالي فانا افضلها اذا اردت ارشفة وثائق ملونة وواضحة وما علي الا تجهيز كمبيوتر بمواصقات راقية او حتى سيرفر لحفظ هذه الوثائق ...! بموجب الاقتباسين هنا يلاحظ انك قيدت المستخدم باربعة مستويات لاتزيد (كونها اربعة حقول) ولاتنقص (لانك تشترط ادخال قيم في الاربعة الحقول) فهل بالامكان ان تكون العملية مرنة اكثر..؟ اما المسار فيتم تعديله عن طريق الميدول وبهذا افترضت ان المستخدم فاهم في اكسس وسمحت له ان يخترق برنامجك بالضرورة او ان لايكون فاهم اكسس وتضطره للالتزام بمسارك المحدد فهل انه من الضرورة بمكان بقاء الوضع هكذا لاعتبارات ترى انها ضرورية او انه يمكن استخدام طرق اخرى؟ الحقيقة ان التساؤلات متشعبة وكثيرة نظرا لاهمية الفكرة وتشعبها ولكن يبدو اني قد اطلت فقد استغرقني حوالي ساعتين في ترتيب الافكار وإختصارها وكتابتها أرجو ان تكون تساؤلاتي مفهومة وان لاتضيق بها واعذروني عن اي اخطاء املائية تحياتي,,,

تفضل اخي العزيز مرفق لك مثال اجنبي يوضح طريقتين لعمل اجمالي للصفحة وقد قمت بوضع تعديلات لاظهار الاجمالي التراكمي واجمالي ماقبله ارجو ان يكون مثال مفيد تحياتي,,, ReportPageTotals.rar