tammamsoft

آسف جداً ، حلك هو الحل الصحيح 100% لأن المطلوب جدول محوري شكراً جزيلاً

يتوجب ان يتم ادراج دالة تبحث في عمود الأشهر الصفحة الأخرى عن القيم التي تخص الشهر العاشر مثلاً وتجمع مبيعاته في العمود المقابل(عمود المبيعات ) مع بالغ الشكر

كل الشكر و الامتنان على تجاوبك استاذي المحترم

لدي ملف وظيفة مستعجلة ، ولم نفهم الطلب الذي يريده المدرس .. ارجو منكم المساعدة في شرح طلب المدرس ومقصده من هذه الأسئلة وطريقة الحل الملف المرفق يحوي على الاسئلة المصنف1.xlsx

صديقي هل بالإمكان المساعدة بتزويدي بكتاب pdf لأتعلم البرمجة داخل الأكسس

كلمات الشكر قليلة جداً مع انسان رائع مثلك

اخي المحترم بشكل أكثر دقة : أريد من البرنامج أن يقوم بإنشاء مجلد يأخذ اسمه من إسم السنة الموجودة في "مربع نص السنة" وبعدها ينشئ مجلد جديد داخل مجلد السنة الذي تم انشاؤه قبل قليل ، يأخذ اسمه من مربع نص الشهر وبعدها ينشئ مجلد يأخذ اسمه من اسم الشخص صاحب العلاقة الذي تمت كتابته في مربع نص الجهة المرسة ، وبعد كتابة هذا الاسم يجب ان يكون ناتج اسم المجلد هو الاسم الموجود في مربع نص الجهة المرسلة مدمج معه تاريخ اليوم : .... البند رقم1- مجلد بإسم " 2020" وبداخله البند رقم 2 البند رقم2- مجلد بإسم "نيسان" وبداخله البند رقم3 البند رقم3- مجلد بإسم " فلان 23-04-2020" ..... مع تحقيق شرط مهم وهو أنه عندما يتم انشاء سجلات أخرى بنفس اسم السنة و الشهر يجب أن لا ينشئ مجلد بإسم السنة و الشهر بل يتابع البرنامج العمل بالخطوات ويتجاوز الخطوات الموجودة مسبقاً .. مع عدم السماح بالسجلات المتكررة وهل بالإمكان اختصار كتابة مربعات السنة و الشهر وحذف هذه المربعات وأن يأخذ البرنامج اسم المجلد من تبويب التاريخ الكامل الناتج عن مربع نص"تاريخ العملية" بأن ينشئء المجلدات تباعاً بدءاً من السنة و الشهر و اليوم بعد اختيار تاريخ اليوم و تركيز اسم كل مجلد تباعاً ؟ مشكورين سلفاً ، هذا النوع من العمليات لم اجده إطلاقاً في موقكم الرائع ولا في أي موقع آخر ZZZZ.accdb

آسف جداً اكشفت الخطأ الذي وقعت فيه كان علي أن احذف كلمة "\fails\" من داخل الكود ليصبح كالتالي : Private Sub btn17_Click() Dim str_folder As String str_folder = CurrentProject.Path & Format(Me.num, "00") ' folder to open If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub

هذه هي النسخة القديمة المصدرية التي يعمل بها الكود بدون اخطاء النسخة القديمة التي تعمل.mdb

مشكور جداً لأمانة هناك طريقة مشابهة تماماً من قاعدة أخرى لكن عندما نسخت الكود إلى قاعدة بيانات 2007 موجودة داخل شركة لا أستطيع جلب الملف منها ،صار يعطي خطأ عند سطر MkDir (str_folder) Private Sub btn17_Click() Dim str_folder As String str_folder = CurrentProject.Path & "\fails\" & Format(Me.num, "0000000") ' folder to open If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub هذه صورة الخطأ tammam2.accdb

آسف كوني مبتدئ ، قمت بتعديل التعليق أرجو حذف هذا التعليق و الاكتفاء بالتعليق الوارد على الرد على الاستاذ جعفر مشكورين سلفاً

السلام عليكم مطلوب إضافة زر يقوم بإنشاء مجلد على الكمبيوتر من داخل فورم لقاعدة بيانات أكسس2007