ابو جودي

ابشر بالخير ان شاء الله

ممكن مرفق صفير من قاعدة البيانات فيما يخص مشكلة حضرتك

السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة استاذة احلام اتفضلى طلب حضرتك اصبح جاهز موظفين 2.accdb

استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل لو حضرتك محتاج منى اى شئ انت تأمرنى وحضرتك تعلم تماما مقداركم فى قلبى

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

الله يعلى قدرك ويرفع شأنك يارب بص يا استاذى الكريم انا من قبل فترة وجدت هذا الكود Sub FolderSize() Dim fso As Object, fsoFolder As Object Const strFolderName = "D:\xxx" Set fso = CreateObject("Scripting.FileSystemObject") Set fsoFolder = fso.GetFolder(strFolderName) MsgBox fsoFolder.Size & " bytes" Set fsoFolder = Nothing Set fso = Nothing End Sub -------- Private Sub Command0_Click() Call FolderSize End Sub كان له وقتها مشكله معى وهى التحويل من البايت للكيلو والميجا والقيقا بصراحة مش عارفهم ومحبش الحسابات ههههههه لما اليوم حاولت ارد على اختنا الكريمة صاحبة السؤال هى بصراحة عملت مرونة فى التصميم حاولت اغير الكود فى السطر ده Const strFolderName = "D:\xxx" لاستبدل المسار الثابت فى الكود D:\xxx بالمسار المحدد فى مربع النص من النموذج وللاسف لم استطع عمل ذلك وهذا محور سؤالى فكيف السبيل الى ذلك طبعا اولا واخيرا حضرتك ما شاء الله كفيت ووفيت ولكن انا اسال من باب العلم اخى الكريم فى المعضلة التى تعرضت انا لها

استاذ @Shivan Rekany اولا تسلم ايدك ممكن اتقل على حضرتك بسؤال فى نفس سياق الموضوع لو تكرمت

راااااااااااااااااااائع استاذ شيفان انا جربت وطلع لى الرقم كده 109.062536341138 GB والمساحة للمجلد ده عندى فعلا 109 قيقا طبعا ممكن نستخدم الدالة روند للتقريب للو اردنا صح ؟ واللا ايه رأى حضرتك

العفو منك استاذى الجليل ومعلمى القدير ووالدى الحبيب بس ممكن اقول حاجة حضرتك جاوبت اصلا ويقوم البرنامج آليا كل 5 دقائق باستدعاء صور الطلاب الأوائل من المجلد بواسطة المعرف و يضعها في فولدر خاص الآن انتهى دور اكسس ليتم بواسطة وندوز عرض صور الاوائل على شاشة كبيرة معلقة ---------------------------------------------------------- الآن البرنامج تم تعديله ليلائم طلاب حفظ وحلقات في المسجد وشاشة العرض موجودة في المسجد ولكنهم يريدون عرض الاسماء بدلا من الصور ههههههههه انا عندى اسهل حل بدلا من الاستعانة باى برامج خارجية تكتب الاسماء وتحفظ بامتداد jpg باى برامج وتستدعى كما تم استدعاء صور الطلاب من قبل ممكن مثلا ببرنامج فوتوشوب او بنت برش حلو الفوكيرة دى صح لا لا محدش ينكر لو الموضوع كده دى احلى فكرة والمفروض اخد افضل اجاااااااااااااابه ههههههههههههههههههه

متااااااااابع

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام اسعدكم الله ورضى عنكم وأرضاكم ان شاء الله انا كنت داخل على السريع بس لما وجدت موضوع والى الحبيب واستاذى الجليل ومعلمى القدير استوجب الأمر ترك كل ما يشغلنى والتوقف فورا والتدخل اانا عندى استفسار صغير لماذا صورة ولم ليس pdf ? ممكن تصدير التقارير دون فتحها حتى بالكود فى وقت ومسار محددين سلفا كما ان هناك طريقة تحفظ ملفات الـ pdf بكلمة مرور لحمايتها من العبث حتى طبعا عن طريق مكتبات تضاف هل تفى بالغرض تلك الطريقة استاذى الجليل ووالدى الحبيب ؟ ثم ببعض التلاعب والحيل البسيطة قد تجعل المسار مشفر ومخفى لحمايته ان اردت ويتم الاظهار وفك التشفير وتصدير ال pdf ثم اعادة التشفير للمجلد واخفاءه وكله بالاكواد دون ادنى تدخل من المستخدم ههههههههه على فكرة كل اللى انا بأقوله ده لم اقم بتجربته لكن احسبنى قادر ان شاء ربى على تصميمه وتقديمه اليكم ان اردتم فكلها افكار تسارعت بخاطرى وفى نفسي منذ أن قرأت الموضوع والردود تفاعلا معها ولكنها خطوات تسلسلية ومنطقية يمكن تطبيقها ان شاء الله

اعتذر نسيت المرفق Several ways.rar

معالجة البيانات من الرقم القومى.rar

السلام عليكم ورحمة الله تعالى وبركاته اعتذر لتأخرى فى الدخول والمتابعة لظروف طارئة ولكن طالما ان استاذى القدير ومعلمة الجليل الاستاذ @jjafferr اسند الى الامر فلن اتأخر إن شاء الله ادرجت فى المرفق طريقتين - الطريقة الأولى يحسب مباشرة من خلال استعلام qry_calc على السنة الخيرة وما قبلها دون تدخدل من مستخدم قاعدة البيانات - الطريقة الثانية فيها مرونه حيث انها تعتمد على اختيار السانة اولا لاجراء الحساب للساعات التى تخصها بناء على سابقتها اجمل الامنيات استاذ hishameldepse واتمنى على الله تعالى ان اكون وفقت فى طرح الاجابة المنشودة منتظر رد حضرتك طبعا يا استاذ @hishameldepse لتخبرنى برأيك ان شاء الله

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

جزاكم الله عنى وعن امة محمد خير الجزاء جزاكم الله عنى وعن امة محمد خير الجزاء

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام فى المرفق الاتى الاستعلام qry_filter تمام يقوم بعمل فلتر للحقل لكل ما يبدأ بــــ 017 المطلوب فتح الاستعلام qry من خلال النموذج الموجود بنفس المعيار ولكن المعيار موجود على النموذج فى الحقل txt_filter --------------------------------- حتى تتضح الرؤيه اكثر انا اريد عمل فلتر لحقل ما يبدأ ب 0 ثم رقم العام اى اريد المطلوب عمل استعلام يحدد السجلات التى تبدأ تبعا للعام الحالى 017 وعندما نكون ان شاء الله فى العام الجديد 2018 من تقاء نفسه يقوم بعمل فلتر للسجلات التى تبدأ بــ 018 فإن كانت هناك فكره افضل من فكرتى فاطلب منكم على استحياء بتفريج همى وكربى فى اجابه هذا التساؤل جزاكم الله خيرا qus.rar

السلام عليكم ورحمة الله تعالى وبركاته اتفضل اخى الكريم اتمنى على الله تعالى ان تكون هذه هى الاجابة التى تريد الوصول اليها ان شاء الله 6عدد مرات تكرار الاسم.rar

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

السلام عليكم ورحمة الله تعالى وبركاته بناء على طلب احد الاخوة الكرام مرفق قاعدة بيانات تحتى على طريقة لعمل الترقيم التلقائى المتجدد تلقائيا فى فى مطلع كل عام وكان طلب الاخ الكريم كالأتى يبدأ الترقيم حسب العام الحالى على هذا الشكل 017 ثم يبدأ الترقيم بهذا الشكل 001 ولا يزيد الترقيم عن 999 فيكون الناتج النهائى يبدأ بالشكل 017001 وحتى ينتهى بالشكل 017999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 017999 -- وطبعا فى العام 2018 يبدأ مرة أخرى من الرقم 1 طبعا مع اضافة العام فيكون 018001 تلقائيا وايضا ينتهى حتى 018999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 018999 وهذه افكارى قد يكون هناك طريق اقصر او اكواد مختزله عن تلك التى استخدمها هنا ولكن هذا ما توصلت اليه ترقيم تلقائى خاص.rar

ههههههههه هو فى ايه ؟

اخى الحبيب الكريم شكر الله لكم جميل دعواتكم الطيبه واحسن اليكم اسال الله تعالى ان يرزقكم اجرها واكثر منها ان شاء الله وان كنت لابد داعيا اسالكم على استحياء الدعاء لاستاتذتنا الكرام فى هذا الصرح الشامح فمنهم تعلمنا وعلى ايديهم تتلمذنا علم بقصروا او يبخلوا ولم يضيق صدورهم معنا فلذلوا الغالى والنفيس فلولا فضل الله سبحانه وتعالى ثم افضالهم جميعا لما كان هذا حالنا نحن طلاب العلم فى هذا الصرح الشامخ العريق واجابة على مطلب حضرتك طبعا زى ما عملنا مع مربع نص الاسم حسب الشرح السابق condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & وفى هذه الحالة ومع طلبك الجديد يكون التعديل على الشرط الثانى condition2 >>-----------> تحقيق الشروط الثانى بتحديده الحقل الدال عليه فى الجدول فى قاعدتك هو الترقية وعنصر التحكم الدال عليه فى التقرير هو مربع نص باسم nn ويتم كتابته بين علامتين & فيتم تغير سطر الكود السابق الى خذا السطر txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & txtname & "' And [الترقية]='" & Me.nn & "'") وهذا مرفقكم بعد التعديل عليه اعتذ للتأخير فى الرد عليكم انا فى العمل واعتذر ان وجدت اى اخطاء املائيه الكيبورد كلها انجلش وباكتب بسرعه وبدون مراجعه لضيق وقتى 5عدد مرات تكرار الاسم.rar

اتفضل المرفق بعد التعديل مره بالكود داخل التقرير وفى التقرير الاخر وضع الكود على مصدر بايانات مربع النص مباشرة للاسف مش قادر اشرح واسماء الحقول والجدول بالعربى انا عملت لك شرح داخل الكود بالانجليزى وهنا الشرح تفصيلا واعيد لك الشرح مرة اخرى هنا طلب حضرتك حتى يتحقق يحتاج للاتى DCount Multiple Criteria اى تحقيق الدالة DCount بأكثر من شرط الشرط الاول هو اسم محدد الشرط الثانى هو عدد ترقيه محدده لهذا الاسم المحدد 'الشرح 'xx = DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") field need count it >>-----------> الحقل المراد عمل عدد لمحتوياته حسب الشروط الاتيه فيما بعد وفى قاعدتك هو الترقية tblname >>-----------> اسم الجدول او الاستعلام الذى يحتوى على هذا الحقل وفى قاعدتك هو جدول الاستبان العام field first condition >>-----------> الشرط الاول هو اسم محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الاسم condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & AND >>-----------> لتهيئة الكود بوجود شرط اخر كما سيلى فيما بعد field second condition >>-----------> الشرط الثانى وهو مرتبط بحقل محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الترقية condition2 >>-----------> تحقيق الشروط الثانى بتحديده وكما تريده انت فى طلبك ممتاز وهذا وكانك تخبر البرنامج بان يذهب الى جدول الاستبان العام وان يقوم بعد حقول الترقية للاسم خالد عندما تساوى قيمة الحقل لهذا الاسم ممتاز وهكذا يتغير شكل الكود وترتيبه بعد كتابته بسبب الكلمات العربى txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & Me.txtname & "' AND [الترقية]='ممتاز'") لذلك اوصيك كما تعلمنا من اساتذتنا الكرام جزاهم الله عنا جيرا ان شاء الله تسمية الجداول والحقول بالانجليزية وكذلك الاستعلامات وباقى الكائنات دون ترك مسافات بين الكلمات 4عدد مرات تكرار الاسم.rar

2عدد مرات تكرار الاسم.rar