tammamsoft قام بنشر أبريل 22, 2020 مشاركة قام بنشر أبريل 22, 2020 السلام عليكم مطلوب إضافة زر يقوم بإنشاء مجلد على الكمبيوتر من داخل فورم لقاعدة بيانات أكسس2007 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 22, 2020 مشاركة قام بنشر أبريل 22, 2020 وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 علشان نعمل المجلد: D:\Testing\Data_Folder على حدث النقر على الزر ، اكتب هذا الكود : dim myFolder as string myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if جعفر 1 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 22, 2020 الكاتب مشاركة قام بنشر أبريل 22, 2020 (معدل) آسف كوني مبتدئ ، قمت بتعديل التعليق أرجو حذف هذا التعليق و الاكتفاء بالتعليق الوارد على الرد على الاستاذ جعفر مشكورين سلفاً تم تعديل أبريل 22, 2020 بواسطه tammamsoft رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر أبريل 22, 2020 مشاركة قام بنشر أبريل 22, 2020 يجب ان يكون المجلد fails موجود مسبقا 2 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 22, 2020 الكاتب مشاركة قام بنشر أبريل 22, 2020 28 دقائق مضت, jjafferr said: وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 علشان نعمل المجلد: D:\Testing\Data_Folder على حدث النقر على الزر ، اكتب هذا الكود : dim myFolder as string myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if جعفر مشكور جداً لأمانة هناك طريقة مشابهة تماماً من قاعدة أخرى لكن عندما نسخت الكود إلى قاعدة بيانات 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 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 22, 2020 الكاتب مشاركة قام بنشر أبريل 22, 2020 هذه هي النسخة القديمة المصدرية التي يعمل بها الكود بدون اخطاء النسخة القديمة التي تعمل.mdb رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 22, 2020 الكاتب مشاركة قام بنشر أبريل 22, 2020 آسف جداً اكشفت الخطأ الذي وقعت فيه كان علي أن احذف كلمة "\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 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 23, 2020 مشاركة قام بنشر أبريل 23, 2020 السلام عليكم 🙂 اذا لاحظت المثال الذي ارفقته انا ، فعملت مجلد داخل مجلد ، مثل D:\Testing\Data_Folder ، لهذا السبب هناك كود لكل مجلد : dim myFolder as string عمل المجلد الاول' Testing myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if عمل المجلد التالي' Data_Folder myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if لذلك ، يجب عليك عمل المجلد الخارجي اولا Testing (او على الاقل التأكد انه موجود ، و الكود اذا لم يجد المجلد ، فإنه يعمله) ، وبعدها تعمل المجلد الذي بداخله Data_Folder (وكذلك الكود اذا لم يجد المجلد ، فإنه يعمله) 🙂 بالنسبة الى لمجلدات التي اردتها انت ، فيمكن عملها كما قال اخي حسام ، هكذا : Private Sub btn17_Click() Dim str_folder As String str_folder = CurrentProject.Path & "\fails" If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If str_folder = str_folder & "\" & 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 23, 2020 الكاتب مشاركة قام بنشر أبريل 23, 2020 (معدل) 11 ساعات مضت, jjafferr said: السلام عليكم 🙂 اذا لاحظت المثال الذي ارفقته انا ، فعملت مجلد داخل مجلد ، مثل D:\Testing\Data_Folder ، لهذا السبب هناك كود لكل مجلد : dim myFolder as string عمل المجلد الاول' Testing myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if عمل المجلد التالي' Data_Folder myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if لذلك ، يجب عليك عمل المجلد الخارجي اولا Testing (او على الاقل التأكد انه موجود ، و الكود اذا لم يجد المجلد ، فإنه يعمله) ، وبعدها تعمل المجلد الذي بداخله Data_Folder (وكذلك الكود اذا لم يجد المجلد ، فإنه يعمله) 🙂 بالنسبة الى لمجلدات التي اردتها انت ، فيمكن عملها كما قال اخي حسام ، هكذا : Private Sub btn17_Click() Dim str_folder As String str_folder = CurrentProject.Path & "\fails" If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If str_folder = str_folder & "\" & 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 جعفر اخي المحترم بشكل أكثر دقة : أريد من البرنامج أن يقوم بإنشاء مجلد يأخذ اسمه من إسم السنة الموجودة في "مربع نص السنة" وبعدها ينشئ مجلد جديد داخل مجلد السنة الذي تم انشاؤه قبل قليل ، يأخذ اسمه من مربع نص الشهر وبعدها ينشئ مجلد يأخذ اسمه من اسم الشخص صاحب العلاقة الذي تمت كتابته في مربع نص الجهة المرسة ، وبعد كتابة هذا الاسم يجب ان يكون ناتج اسم المجلد هو الاسم الموجود في مربع نص الجهة المرسلة مدمج معه تاريخ اليوم : .... البند رقم1- مجلد بإسم " 2020" وبداخله البند رقم 2 البند رقم2- مجلد بإسم "نيسان" وبداخله البند رقم3 البند رقم3- مجلد بإسم " فلان 23-04-2020" ..... مع تحقيق شرط مهم وهو أنه عندما يتم انشاء سجلات أخرى بنفس اسم السنة و الشهر يجب أن لا ينشئ مجلد بإسم السنة و الشهر بل يتابع البرنامج العمل بالخطوات ويتجاوز الخطوات الموجودة مسبقاً .. مع عدم السماح بالسجلات المتكررة وهل بالإمكان اختصار كتابة مربعات السنة و الشهر وحذف هذه المربعات وأن يأخذ البرنامج اسم المجلد من تبويب التاريخ الكامل الناتج عن مربع نص"تاريخ العملية" بأن ينشئء المجلدات تباعاً بدءاً من السنة و الشهر و اليوم بعد اختيار تاريخ اليوم و تركيز اسم كل مجلد تباعاً ؟ مشكورين سلفاً ، هذا النوع من العمليات لم اجده إطلاقاً في موقكم الرائع ولا في أي موقع آخر ZZZZ.accdb تم تعديل أبريل 23, 2020 بواسطه tammamsoft رابط هذا التعليق شارك More sharing options...
أفضل إجابة husamwahab قام بنشر أبريل 23, 2020 أفضل إجابة مشاركة قام بنشر أبريل 23, 2020 تفضل اخي العزيز ارجو ان يكون طلبك في النموذج الثاني فيه طلبك الثاني Root100.rar 3 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 23, 2020 الكاتب مشاركة قام بنشر أبريل 23, 2020 (معدل) 41 دقائق مضت, husamwahab said: تفضل اخي العزيز ارجو ان يكون طلبك في النموذج الثاني فيه طلبك الثاني Root100.rar 37.42 kB · 0 تنزيلات كلمات الشكر قليلة جداً مع انسان رائع مثلك تم تعديل أبريل 23, 2020 بواسطه tammamsoft 1 1 رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر أبريل 24, 2020 مشاركة قام بنشر أبريل 24, 2020 بالخدمة اخي العزيز tammamsoft 1 رابط هذا التعليق شارك More sharing options...
tammamsoft قام بنشر أبريل 24, 2020 الكاتب مشاركة قام بنشر أبريل 24, 2020 19 ساعات مضت, tammamsoft said: كلمات الشكر قليلة جداً مع انسان رائع مثلك صديقي هل بالإمكان المساعدة بتزويدي بكتاب pdf لأتعلم البرمجة داخل الأكسس 18 ساعات مضت, husamwahab said: بالخدمة اخي العزيز tammamsoft رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر أبريل 25, 2020 مشاركة قام بنشر أبريل 25, 2020 عليكم السلام استاذنا العزيز يوجد موضوع لاستاذنا ابوخليل باسم دروس وشروح وتطبيقات وأفكار فيه مواضيع جميلة ومهمة كذلك لاستاذنا العزيز أحمد الفلاحجى على صفحته ايضا مواضيع ودروس وانا بخدمتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.