محمود _ المصري قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 (معدل) السلام عليكم ورحمة الله وبركاته ارغب عند الضغط علي الزر يقوم بالاتي :- 1) انشاء فولدر جديد داخل ملف البرنامج 2) ياخذ رقم الملف للفولدر الذي تم انشاءه 3) اذا تم الضغط علي الزر مرة اخري بالخطا تظهر رسالة بان الملف تم انشاءة من قبل لهذا الرقم program.rar تم تعديل نوفمبر 30, 2015 بواسطه محمود _ المصري رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 السلام عليكم تفضل اخي ما تريد لكن سامحني التنبيخ لم يعمل قد يستطيع احد مساعدتك في ذلك لكن اذا تم الضغط على الزر اكثر من مرة لا يؤثر على المجلد اذا كان منشأ مسبقا program.rar 3 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 تفضل أخي محمود ملفك بعد التعديل program.rar 3 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 وهذه فكرة اخرى لفكرة الاخ عبدالله If Len(Dir(CurrentProject.Path & "\" & ID, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & ID MsgBox ("تم الانشاء بنجاح") Else MsgBox ("المجلد موجود مسبقا") End If بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 ودى فكرتى المتواضعة للوصول للنتيجة المطلوبة مع إضافة كود حدث قبل التحديث للفورم لو رقم الملف خالى او الاسم خالى لا يتم حفظ البيانات في الجدول حتى لا يتم احتساب بيانات غير كاملة program- UPDATE.rar وده تعديلى باظهار الرسالة التي تفيد وتوضح رقم الملف السابق ان وجد بالاسم الذى تم اضافته لرقم الملف هذا في رسالة بعد تحديث رقم الملف واهم شيء إضافة اللمسة الرمهانية على التعديل program- UPDATE2.rar 3 رابط هذا التعليق شارك More sharing options...
محمود _ المصري قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 (معدل) لا يسعني سوا ان ادعي الله عز وجل بظهر الغيب ان يسعد اوقاتكم ويزيدكم علماً وشكرا لكل من ساهم في هذه الاجابة تحياتي لكم جميعاً +1 تم تعديل ديسمبر 1, 2015 بواسطه محمود _ المصري 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 جزاكم الله خيرا على دعواتكم الطيبة وبلسانى وبلسان كل اساتذتى فى المنتدى اسال الله لكم مثل ما دعوتم لنا بل واكثر ان شاء الحمد لله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل الحمد لله الذى تتم بنعمته الصالحات رابط هذا التعليق شارك More sharing options...
شوقى5 قام بنشر ديسمبر 4, 2015 مشاركة قام بنشر ديسمبر 4, 2015 (معدل) السلام عليكم تعاون جميل جزاكم الله خيراً يكمل هذا الموضوع عند عمل مفتاح يسحب الصور من الاسكنر ويضعها فى الفولدر المنشىء بحسب رقم الملف تم تعديل ديسمبر 4, 2015 بواسطه شوقى5 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 6, 2015 مشاركة قام بنشر ديسمبر 6, 2015 up رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 6, 2015 مشاركة قام بنشر ديسمبر 6, 2015 لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي أن اعطي اكسس مسار فيه عدة مجلدات غير منشأة بعد أريد منه عندما اضغط على انشاء بان يقوم بانشاء المجلدات الغير منشأة والقاعدة بداخلهم باعتماد المسار فقط 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 6, 2015 مشاركة قام بنشر ديسمبر 6, 2015 4 ساعات مضت, عبد الله قدور said: لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي أن اعطي اكسس مسار فيه عدة مجلدات غير منشأة بعد أريد منه عندما اضغط على انشاء بان يقوم بانشاء المجلدات الغير منشأة والقاعدة بداخلهم باعتماد المسار فقط السلام عليكم اخي العزيز عبدالله قدوره.. كل الاحترام والتقدير لك اري ان تقوم بفتح طلبك في موضوع مستقل لانه مهم رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 7, 2015 مشاركة قام بنشر ديسمبر 7, 2015 السلام عليكم أخي العزيز محمد سلامة أولا كنيتي قدور وليست قدورة ثانيا بالنسبة لي فقد فقدت الأمل من حل هذه المشكلة وما طرحته مجرد مشاركة بمعلومة فقط لا غير تحياتي لك أخي العزيز محمد سلامة 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 7, 2015 مشاركة قام بنشر ديسمبر 7, 2015 في ٦/١٢/٢٠١٥ ١:١١:٥٧, عبد الله قدور said: لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي أن اعطي اكسس مسار فيه عدة مجلدات غير منشأة بعد أريد منه عندما اضغط على انشاء بان يقوم بانشاء المجلدات الغير منشأة والقاعدة بداخلهم باعتماد المسار فقط استاذ عبدالله عفوا لم الاحظ اللقب فالتمس لي عذرا ثانيا / هل تقصد ان لديك مثلا المسار التالي D:\desktop\new folder وانت تريد انشاء بداخله عدة مجلدات بناء علي ايه يعني المجلدات دي كل مجلد منها هيكون اسمه ايه.. هل سيكون كل مجلد مثلا لكل سجل ام ماذا برجاء التوضيح اكثر رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 8, 2015 مشاركة قام بنشر ديسمبر 8, 2015 عزيزي محمد سلامة عندي المسار التالي D:\accurate\datas\data1\buckup وعندي زر انشاء فقط الان المجلدات datas , data1 , buckup غير منشأة المطلوب عند الضغط على زر انشاء يقوم البرنامج بإنشاء المجلدات السابقة وانشاء قاعدة بيانات اكسس في المجلد data1 وعمل نسخة احتياطية لها في المجلد buckup رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 8, 2015 مشاركة قام بنشر ديسمبر 8, 2015 في ٦/١٢/٢٠١٥ ٢:١١:٥٧, عبد الله قدور said: لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي ممكن رابط واحد فقط من هذه المنتديات ؟؟ وهل منتدانا احدها ؟ ام لا ولماذا ؟ رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 9, 2015 مشاركة قام بنشر ديسمبر 9, 2015 18 ساعات مضت, رمهان said: ممكن رابط واحد فقط من هذه المنتديات ؟؟ وهل منتدانا احدها ؟ ام لا ولماذا ؟ السلام عليكم اخي رمهان كان ذلك في عام 2011 على ما أذكر و رفعته وقتها في موقع الفريق العربي للبرمجة حسب ما أذكر ورفعته في موقع أخر ولا أذكر ان كان موقعنا واحد منهم وقتها حللت مشكلتي بأن استخدمت زر استعراض ممكن من خلاله انشاء المجلدات المطلوبة رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 9, 2015 مشاركة قام بنشر ديسمبر 9, 2015 وعليكم السلام ورحمة الله وبركاته هذا الامر يقوم بانشاء المجلد والمجلدات الفرعية مرة واحدة ! Shell ("cmd /c mkdir ""c:\a\b\c""") طبعا يمكنك التاكد من وجوده بالامر dir كما يمكن الاستدلال ب currentproject.path لمعرفة للتصريح بموقع المجلدات الفرعية وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split وبمدلول العلامة \ ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا ! عند اتاحة وقتي ساقوم بتطبيق الفكرة الاخيرة ! بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 (معدل) السلام عليكم ما هذا الابداع أخي رمهان أدهشتني و الله وينك أنت من ثلاث أربع سنوات مضت تحياتي لك ولابداعاتك لكن لم أفهم عملية التأكد باستخدام dir تم تعديل ديسمبر 10, 2015 بواسطه عبد الله قدور 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 استاذ رمهان يقصد ب dir التاكد اولا اذا كان الفولدر منشا من قبل ام لا وذلك قبل الانشاء 1 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 16 دقائق مضت, محمد سلامة said: استاذ رمهان يقصد ب dir التاكد اولا اذا كان الفولدر منشا من قبل ام لا وذلك قبل الانشاء ممتاز كيف يمكن استخدامه حاولت ولم أفلح 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 10, 2015 مشاركة قام بنشر ديسمبر 10, 2015 (معدل) 8 دقائق مضت, عبد الله قدور said: ممتاز كيف يمكن استخدامه حاولت ولم أفلح سوف احاول ارفق ملف ولكن اعذرني فانا مشغول جدااا في اقفال برنامج.. اذا تسنا وقت لي سوف ارفق ملف ان شاء الله المثال عبارة عن انشاء فولدر في الرابط المحدد وبداخله ثلاث ملفات (وورد-pdf-اكسيل) وسوف اعدل عليه باستخدام الامر المدرج بعاليه من استاذ رمهان وعلي فكرة المثال الموجود لدي هو ايضا من عمل المبدع استاذ رمهان قبل فترة فجزاه الله خيرا تم تعديل ديسمبر 10, 2015 بواسطه محمد سلامة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 11, 2015 مشاركة قام بنشر ديسمبر 11, 2015 (معدل) السلام عليكم شباب في الرابط التالي http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 استعملت الكود التالي: Dim Image_Path As String '1 Image_Path = Application.currentProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & "\" & [ID] & "\" 'if the [id] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If وهنا قبل ان أنشأ المجلد الجديد ، يتأكد الكود بوجوده ، فان لم يكن موجودأ ، فانه يستحدثه ، وإن كان موجودا لا يفعل شئ (طبعا لم اكن اريد المستخدم ان يرى اي رسالة هنا) ، وتلاحظ ان عمل المجلدات هو بالتسلسل ، ومن خلال نفس مجلد البرنامج ، هكذا: -1- مجلد البرنامج (الموجود ، لذلك لم اقم بعمل شئ له) ، -2- مجلد الصور photo (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد البرنامج ، ومجلد الصور photo هذا سيُستحدث مرة واحدة فقط ، -3- مجلد ID (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد الصور photo ، وهناك عدة مجلدات بحسب قيمة ID ، داخل مجلد الصور photo. جعفر تم تعديل ديسمبر 11, 2015 بواسطه jjafferr 2 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 11, 2015 مشاركة قام بنشر ديسمبر 11, 2015 في ٩/١٢/٢٠١٥ at 00:58, رمهان said: وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split وبمدلول العلامة \ ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا ! عند اتاحة وقتي ساقوم بتطبيق الفكرة الاخيرة ! بالتوفيق هذا الكود اخي عبدالله للفكرة اعلاه : xpath = "a\b\c\d" ypath = CurrentProject.Path & "\" For Each d In Split(xpath, "\") ypath = ypath & d & "\" MkDir ypath Next حيث xpath مجلداتك المراد انشاؤها ! بالتوفيق 3 رابط هذا التعليق شارك 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.