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

[tammamsoft]

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

 

[jjafferr]

وعليكم السلام 🙂

 

اهلا وسهلا بك في المنتدى 🙂

 

علشان نعمل المجلد:

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

 

جعفر

[tammamsoft]

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

مشكورين سلفاً

تم تعديل أبريل 22, 2020 بواسطه tammamsoft

[husamwahab]

يجب ان يكون المجلد fails موجود مسبقا

[tammamsoft]

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

[tammamsoft]

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

النسخة القديمة التي تعمل.mdb

[tammamsoft]

آسف جداً
اكشفت الخطأ الذي وقعت فيه
كان علي أن احذف كلمة "\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

[jjafferr]

السلام عليكم 🙂

 

اذا لاحظت المثال الذي ارفقته انا ، فعملت مجلد داخل مجلد ، مثل 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 

 

جعفر

 

 

 

[tammamsoft]

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

[husamwahab]

تفضل اخي العزيز ارجو ان يكون طلبك

في النموذج الثاني فيه طلبك الثاني

 

Root100.rar

[tammamsoft]

41 دقائق مضت, husamwahab said:

تفضل اخي العزيز ارجو ان يكون طلبك

في النموذج الثاني فيه طلبك الثاني
 

Root100.rar 37.42 kB · 0 تنزيلات

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

تم تعديل أبريل 23, 2020 بواسطه tammamsoft

[husamwahab]

بالخدمة اخي العزيز tammamsoft

[tammamsoft]

19 ساعات مضت, tammamsoft said:

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

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

18 ساعات مضت, husamwahab said:

بالخدمة اخي العزيز tammamsoft

 

[husamwahab]

عليكم السلام استاذنا العزيز

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

فيه مواضيع جميلة ومهمة

كذلك لاستاذنا العزيز أحمد الفلاحجى على صفحته ايضا مواضيع ودروس

وانا بخدمتك