أبو آدم

مما قرأت للشيخ / ناصر بن محمد الأحمد ، فيها تذكرة وعبرة وعظة يقول الشيخ ... إن الحمد لله... أما بعد: أيها المسلمون: المصائب أمر لا بد منها. من منا -أيها الأحبة- لم تنـزل به مصيبة أو يتعرض لمشكلة؟ من لم يفقد حبيباً أو يخسر تجارة أو يتألم لمرض ونحوه؟. لقد ضرب النبي -صلى الله عليه وسلم- مثلاً معبراً للمؤمن في هذه الحياة، فقال: ((مثل المؤمن كمثل الزرع لا تزال الريح تميله، ولا يزال المؤمن يصيبه البلاء، ومثل المنافق كمثل شجرة الأَرْزِ لا تهتز حتى تُستحصد)) [رواه مسلم]. لقد اختلطت جذور الزرع في الأرض وتماسكت، فالريح وإنْ أمالته لا تطرحه ولا تكسره ولا تسقطه. وكذلك المؤمن فإنّ المصائب وإنْ آلمته وأحزنته فإنها لا يمكن أنْ تهزمه أو تنال من إيمانه شيئاً، ذلك أنّ إيمانه بالله عاصمُه من ذلك. وهذه الدنيا مليئة بالحوادث والفواجع، والأمراض والقواصم، فبينا الإنسان يسعد بقرب عزيز أو حبيب إذا هو يفجع ويفاجأ بخبر وفاته، وبينا الإنسان في صحة وعافية وسلامة وسعة رزق إذا هو يُفجع ويفاجأ بمرض يكدر حياته ويقضي على آماله، أو بضياع مال، أو وظيفة تذهب معه طموحاته، وتفسد مخططاته ورغباته. في هذه الدنيا منح ومحن، وأفراح وأتراح، وآمال وآلام، فدوام الحال من المحال، والصفو يعقبه الكدر، والفرح فيها مشوب بترح وحذر. وهيهات أنْ يضحك من لا يبكي، وأنْ يتنعّم من لم يتنغَّصْ، أو يسعدَ من لم يحزنْ!. هكذا هي الدنيا، وهذه أحوالها، وليس للمؤمن الصادق فيها إلا الصبر، فذلكم دواء أدوائها. قال الحسن -رحمه الله-: "جرَّبْنا وجرَّب المجرِّبون فلم نر شيئاً أنفع من الصبر، به تداوى الأمور، وهو لا يُداوى بغيره". وما أعطي أحد عطاء خيراً أوسع من الصبر، وكان أمر المؤمن من بين الناس أمراً عجيباً لأنّه ((إنْ أصابته سراءُ شكر فكان خيراً له، وإن أصابته ضراءُ صبر فكان خيراً له)) -كما صح ذلك عن رسول الله صلى الله عليه وسلم-. أيها المسلمون: أمرنا الله بالصبر، وجعله من أسباب العون والمعيّة الإلهية، فقال سبحانه: {يَا أَيُّهَا الَّذِينَ آمَنُواْ اسْتَعِينُواْ بِالصَّبْرِ وَالصَّلاَةِ إِنَّ اللّهَ مَعَ الصَّابِرِينَ} [(153) سورة البقرة] ثم أخبر مؤكِّداً أنّ الحياة محل الابتلاء بالخوف والجوع ونقص الأرزاق والأموال والأنفس والثمرات، وأطلق البشرى للصابرين، وأخبر عن حالهم عند المصائب، وأثبت جزاءهم، فقال: {وَلَنَبْلُوَنَّكُمْ بِشَيْءٍ مِّنَ الْخَوفْ وَالْجُوعِ وَنَقْصٍ مِّنَ الأَمَوَالِ وَالأنفُسِ وَالثَّمَرَاتِ وَبَشِّرِ الصَّابِرِينَ * الَّذِينَ إذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُوا إنَّا لِلَّهِ وَإنَّا إلَيْهِ رَاجِعُونَ * أُوْلَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِّن رَّبِّهِمْ وَرَحْمَةٌ وَأُوْلَئِكَ هُمُ الْـمُهْتَدُونَ} [(155-157) سورة البقرة]. فالصبر سبب بقاء العزيمة، ودوام البذل والعمل، وما فات لأحد كمال إلا لضعف في قدرته على الصبر والاحتمال، وبمفتاح عزيمة الصبر تُعالج مغاليق الأمور، وأفضل العُدَّة الصبر على الشدَّة. انتهى الإقتباس

رابط خارجي فاقد للملف ينقل .......

جزيتم خيراً ... فريقنا الاعلامي والشكر موصول لكل الطيبين الذين أثنوا ورفعوا المعنويات ، وقدروا الأداء الراقي للفريق الإعلامي .....

تم دمج موضوعين بعناوين مختلفة بنفس المحتوي - و أعطيت عنوان معدل لتوضيح الدلالة يرجى عدم تكرار طرح المواضيع تجنباً لاغلاقها شكرا على الالتزام بقواعد المشاركة

قيد النظر حسب التفرغ

أرى و الله أعلم ان إقتراحات الاستاذ الفاضل ابو خليل و الاخوة الافاضل كافية ولديك كود الآن وما يلزم لاغلاق كافة النماذج وفتح النموذج الذي تريده مرة اخرى ولكن كل ما نتحدث عنه تصورات بعيداً عن التطبيق ، فقد يلزمك أي منها وقد لا تلزمك الحسم بالتطبيق و الحاجات وكلاهما لديك ... ونحن بإذن الله بالعون ما قدّر لنا ......

بقية الملفات NumericMathematical Functions.rar String Functions.rar

مرفقات الموضوع على رابط خارجي خوفاً من فقدان الرابط ومحتوياته يتم التحميل على الموقع ACCESS FUNCTION.rar Advanced Functions.rar Data Type Conversion Functions.rar Date Functions.rar Domain Aggregate Functions.rar FileDirectory Functions.rar Functions used by Group By Feature in queries.rar

لغايات الارشفة و النقل تم التعامل مع عدد كبير من مشاركات الشكر و الثناء للاخ الفاضل صاحب الموضوع ( 12 صفحة ) من يناير 2010 لغاية مارس 2014 تحية و تقدير للاخ الفاضل ينقل ............

أخي أبو أثير أظن أنك تتحدث عن موضوع جديد بعد اجابات اخونا ابا عمر عن تساؤلاتك ارجو اشعارنا بحاجاتك الجديدة ضمن موضوع جديد ، اذا تكرمت شكرا

أخي العزيز تجد ضالتك بإذن الله على الرابط .... http://www.officena.net/ib/index.php?showtopic=38385&p=209715 جرب ووافني بالنتيجة .........

رغم أن التصور ليس كاملاً لحاجتك هذا الكود يقوم بالبحث عن النماذج المفتوحة و يغلقها جميعا واحداً تلو الآخر ، ثم يتم فتح النموذج الذي تختاره Private Sub BClose_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject 'Search for open AccessObject objects in AllForms collection. For Each obj In dbs.AllForms If obj.IsLoaded = True Then 'Close the form if it is open DoCmd.Close acForm, obj.Name, acSaveYes End If Next obj '-------------------- 'Open new form here DoCmd.OpenForm "f1" End Sub آمل أن يكون هذا كافياً والله من وراء القصد ......

سؤال : هل فترات بقاء الوثائق في الغرف متشابهة أم كل نوع له مدة مختلفة عن الأخرى ، و التالي فترات الاحتفاظ الاجمالية تختلف ؟!

تنويهات هامة لتجنب معيقات لاحقة : يفضل تجنب إستخدام الأحرف العربية في اسماء الجداول ، والاستعلامات و التقارير والنماذج يفضل تجنب إستخدام الاحرف العربية في اسماء الحقول للجداول لذا سيتم بعد إذن الأخ السوهاجي تعديل ما يلزم ......

أخي العزيز قم بربط الجدول kh1 مع القاعدة glopal قم بانشاء استعلام حسب الصورة وتكون النتيجة ... هل هذا ما تقصده ... ! بانتظار الردّ ...

قيد النظر ... سيتم تعديل عنوان المشاركة لاحقاً لتوضيح الدلالة

أخي السوهاجي تم استلام الوثيقة من الجهة المعنية بتاريخ 1/1/2014 تسجل على النظام ، وتكون على النظام تلقائيا مخزنة في الغرفة الفرعية تخزن في الغرفة الفرعية فعلياً من 1/1/2014 ولغاية 31/12/2017 بتاريخ 1/1/2018 تنقل للغرفة الرئيسية فعلياً ، وينقل قيد الوثيقة من الغرفة الفرعية الى الغرفة الرئيسية ، وتخزن في الغرفة الرئيسية من 1/1/2018 ولغاية 31/12/2020 بتاريخ 1/1/2021 تنقل لغرفة دار المحفوظات فعلياً ، وينقل قيد الوثيقة من الغرفة الرئيسية الى غرفة دار المحفوظات، وتخزن في الغرفة من 1/1/2020 ولغاية 31/12/2023 بتاريخ 1/1/2024 تنقل لغرفة إعدام المحفوظات ويجري عليها هناك المقتضى القانوني أخي العزيز السوهاجي هل هذا الترتيب سليم ( إن كنت قد أحسنت الفهم عنك ) بانتظار تعليقك وشكرا

شكرا لمرورك الطيب ودعائك وثنائك ، آملاً باستمرار التواصل

ملاحظات هامة : هذه الأداة تدعم الارتباط مع ملفات الأكسيس فقط ويجب أن تكون هذه الوحدات النمطية و الماكرو و الكودات في ملف FE

حين يكون الربط سليماً ولا خلل به و أردت تغيير المسار أو إختيار ملفات جديدة BE ، يمكننا إستخدام الزر New BE لإضافة إرتباطات جديدة ( التنقل بين النسخ الاحتياطية ) .... وللحديث بقية ...... ........

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

أما أخي راعي الغنم بعد الربط مع أي عدد تشاء من BE بشرط عدم وجود جداول متشابهة ، قم بإغلاق التطبيق ، وقبل إعادة تشغيله ، قم بتغيير مسار BE المتعددة جميعها . ملاحظة : تم إغلاق التطبيق حتى يسمح لك الجهاز بتغغير الاسم لأي مجلد أو ملف مرتبط . أعد تشغيل التطبيق ولاحظ النتيجة !!! ........

في حال عدم وجود مسار ملف لإجراء الربط معه تكون النتيجة هادئة غير مزعجة جرب إعادة إختيار مسار نفس الملف BE وإجراء الربط مرة أخرى ، هنا يتم رفض ربط الجداول واحداً تلو الآخر ، وهذا اجراء إحترازي منعاً لتكرار الربط بنفس BE . وهذه لك أخي محمد أيمن ( حسب ما فهمت منكم ). أما أخي SSM فيمكنك إجراء الربط من خلال هذا الروتين مع أي مسار لملف النسخ الاحتياطي و العمل عليه ضمن قاعدتك ، ثم إلغاء الربط و من ثم الربط مع نسخة إحتياطية أخرى ... وهكذا و الله أعلم

حياك الله ابا عمر على مرورك الطيب ودعائك بالخير

لغايات حذف الارتباطات كاملة يتم الضغط على زر الامر Delet Link في كل خطوة يتم فيها إضافة أو حذف ارتباطات يتم إظهار عدد الجداول المرتبطة في عداد أسفل النموذج