jjafferr قام بنشر ديسمبر 13, 2016 قام بنشر ديسمبر 13, 2016 السلام عليكم اخي محمد فهم الكود اخذ مني وقت ، واعتقد بأني فهمته طيب ، اذا كنا في المسلسل رقم 6 ، وكان عندنا الملفين التاليين عند الادراج: Router_config.jpg Read_Router_config_Manual.doc . فكيف تريد حفظ هذين الملفين؟ جعفر 1
محمد سلامة قام بنشر ديسمبر 13, 2016 الكاتب قام بنشر ديسمبر 13, 2016 في 13/12/2016 at 19:22, jjafferr said: السلام عليكم اخي محمد فهم الكود اخذ مني وقت ، واعتقد بأني فهمته طيب ، اذا كنا في المسلسل رقم 6 ، وكان عندنا الملفين التاليين عند الادراج: Router_config.jpg Read_Router_config_Manual.doc . فكيف تريد حفظ هذين الملفين؟ جعفر Expand وعليكم السلام بارك الله فيك استاذ جعفر وشكرا علي ردك ومتابعتك الموضوع بخصوص الاستفسار عند الادراج يصبح الملف الاول At6-1.jpg الملف الثاني At6-2.doc شرحها At اسم ثابت 6 رقم المسلسل 1 او 2 هو رقم تلقائي مسلسل يارب اكون عرفت اوصل الفكرة
jjafferr قام بنشر ديسمبر 14, 2016 قام بنشر ديسمبر 14, 2016 في 13/12/2016 at 21:13, محمد سلامة said: بخصوص الاستفسار عند الادراج يصبح الملف الاول At6-1.jpg الملف الثاني At6-2.doc شرحها At اسم ثابت 6 رقم المسلسل 1 او 2 هو رقم تلقائي مسلسل يارب اكون عرفت اوصل الفكرة Expand السلام عليكم اخي محمد هاي سهلة ، والمرفق فيه طلبك (مع ملاحظة اني لاحظت خطأ في الكود في قراءة الملفات ذات اكثر من 3 حروف لصيغة الملف ، مثل docx و accdb و xlsx ، والملفات بدون صيغة) ، وتم تعديله في المرفق بدلا عن FileCopy File_Path_Name, Me.pate & "\" & File_Name استخدم FileCopy File_Path_Name, Me.pate & "\Alt_" & Me.id_m & "_" & i & "." & FileExt ولكن اسمح لي ان اعرض بعض التغيير: ايش رايك بدلا عن Alt_6_1.jpg Alt_6_2.doc ايش رايك في ، بحيث تحتفظ بإسم الملف ايضا Alt_6_1_Router_config.jpg Alt_6_2_Read_Router_config_Manual.doc وايش رايك في انه يوجد لكل سنه ملفاتها؟؟ جعفر 207.3.m.salama.accdb.zipFetching info... 1
ًعبد من عباد الله قام بنشر ديسمبر 14, 2016 قام بنشر ديسمبر 14, 2016 (معدل) سلام الله على الجميع من الجميل أن تتضافر جهود وأفكار اساتذتنا الأفاضل ليخرجوا لنا أبداعاتهم فضلا عن جميل مساعدتهم. إذا سمح لى أخى أ / محمد سلامة. بطلب إضافة من أستاذنا / جعفر. أحتاجها على هذا الموضوع الجميل والذى كنت أبحث عن نظيرا له في فكرته لعمل أخر أقوم به وجاء هذا المثال في ابداعه قريبا جدا مما أريد. والإضافة تتمثل في إمكانية عمل نافذة استعراض مضغرة باسم Preview في النموذج الفرعى sfrm_emp_wared عند الضغط على هذا الاستعراض يقوم بفتح الملف. وهناك نقطة أخرى (وردت بخاطرى) أود "إن أمكن" إضافتها وهى عمل زر لإمكانية ارفاق بعض المحتويات دون البعض في نفس الفولدر من خلال تحديد ما نريد إضافته مع وجود زر أخر لإضافة محتويات كامل الفولدر كما هو الحال الآن وذلك إثراءً وتكاملا للعمل حتى يتسع الأمر لكل مستخدم حسب حاجته ورغبته في إضافة المرفقات. دمتم بكل خير وجعل الله تبذلون فيه وقتكم ومجهودكم وعلمكم في ميزان حسناتكم وشكرا لكم والسلام. تم تعديل ديسمبر 14, 2016 بواسطه وائل أبو عبد الرحمن
محمد سلامة قام بنشر ديسمبر 14, 2016 الكاتب قام بنشر ديسمبر 14, 2016 (معدل) في 14/12/2016 at 06:31, jjafferr said: ولكن اسمح لي ان اعرض بعض التغيير: ايش رايك بدلا عن Alt_6_1.jpg Alt_6_2.doc ايش رايك في ، بحيث تحتفظ بإسم الملف ايضا Alt_6_1_Router_config.jpg Alt_6_2_Read_Router_config_Manual.doc Expand السلام عليكم استاذنا الحبيب جعفر .. يسلم عليم لما يكون بالك رايق بتبدع بالنسبة للتغيير انا لا يهمنى الاسم القديم للمرفق بقدر الاسم الجديد .. لان المرفق القديم موجود فى مكانه وباسمه القديم. بعد التجربة انظر الصورة هناك خطأ يدرج المرفق بالاسم القديم ثم بالاسم الجديد واذا ارادت مرة اخرى ادراج مرفق اخر يتم ادراجه بنفس الترقيم يعنى من المفترض ان الرقم الاخير يكون مسلسل وعند الادراج مرة اخرى يكمل على المسلسل في 14/12/2016 at 06:31, jjafferr said: وايش رايك في انه يوجد لكل سنه ملفاتها؟؟ Expand فكرة ممتازة وجميلة وبدون ان اثقل عليك استاذي الفاضل تحياتي لك تم تعديل ديسمبر 14, 2016 بواسطه محمد سلامة
jjafferr قام بنشر يناير 1, 2017 قام بنشر يناير 1, 2017 السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zip 3
محمد ايمن قام بنشر يناير 1, 2017 قام بنشر يناير 1, 2017 (معدل) تحية طيبة للجميع و اذا سمح لي الاستاذ جعفر بالمداخلة على المرفق فقد قمت ببعض التعديلات حيث يتم ترقيم المرفق بنفس الاسم و لكن يضاف اليه التاريخ كاملا اضافة الى رقم تسلسلي مثلا 01-01-2017 000001 مرفق 1 ايضا يمكنك فتح المرفق بالنقر المزدوج على حقل اسم المرفق حيث يتم تشغيل المرفق بالبرنامج المرتبط به مثلا ملفات الصور يتم تشغيلها بواسطة عارض الصور و هكذا طبعا المرفقات يجب ان تكون في نفس مسار قاعدة البيانات 207.5.m.salama.rarFetching info... تم تعديل يناير 1, 2017 بواسطه محمد ايمن 2
jjafferr قام بنشر يناير 1, 2017 قام بنشر يناير 1, 2017 حياك الله اخوي محمد ، واتشرف بمشاركتك واصبح لدى اخونا محمد اكثر من حل ، وذلك في السنة التالية لسؤاله جعفر 3
محمد سلامة قام بنشر يناير 1, 2017 الكاتب قام بنشر يناير 1, 2017 (معدل) في 1/1/2017 at 19:42, jjafferr said: السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zipFetching info... Expand وعليكم السلام وحضرتك بخير وسعادة وشكرا لك تفاعلك ومتابعة الموضوع.. بارك الله فيك استاذ جعفر في 1/1/2017 at 20:13, محمد ايمن said: تحية طيبة للجميع و اذا سمح لي الاستاذ جعفر بالمداخلة على المرفق فقد قمت ببعض التعديلات حيث يتم ترقيم المرفق بنفس الاسم و لكن يضاف اليه التاريخ كاملا اضافة الى رقم تسلسلي مثلا 01-01-2017 000001 مرفق 1 ايضا يمكنك فتح المرفق بالنقر المزدوج على حقل اسم المرفق حيث يتم تشغيل المرفق بالبرنامج المرتبط به مثلا ملفات الصور يتم تشغيلها بواسطة عارض الصور و هكذا طبعا المرفقات يجب ان تكون في نفس مسار قاعدة البيانات 207.5.m.salama.rarFetching info... Expand شكرا استاذ محمد وكل سنه وحضرتك طيب في 1/1/2017 at 20:43, jjafferr said: حياك الله اخوي محمد ، واتشرف بمشاركتك واصبح لدى اخونا محمد اكثر من حل ، وذلك في السنة التالية لسؤاله جعفر Expand شكرا جزيلا استاذ جعفر هذا كان طمع في بحر خيركم وعطائكم وعدم بخلك علينا في الرد علي استفسارتنا فبارك الله فيكم جميعا وجاري المتابعة والاطلاع تم تعديل يناير 1, 2017 بواسطه محمد سلامة
jjafferr قام بنشر يناير 2, 2017 قام بنشر يناير 2, 2017 في 14/12/2016 at 06:31, jjafferr said: وايش رايك في انه يوجد لكل سنه ملفاتها؟؟ Expand السلام عليكم أخي محمد سلامة المرفق الاخير تم تعديله ليكون جاهز للخطوة التالية ، خطوة السنة انظر في الكود المرفق . حاليا نستخدم السطر رقم 2 ، بينما نستطيع تغيير مسميات المرفق كما نشاء ، مثلا: كود السطر 1 ، يضيف الاسم الاصلي للمرفق ، الى اسم المرفق ، بينما اذا اردت ان تضيف السنة الى اسم المرفق ، فكل الذي عليك عمله هو اضافة كود السنة الى السطر رقم 1 او 2 year(date()) او Year(now()) هكذا في اول اسم المرفق New_File = year(now()) & ".At." & Me.id_m & "." & i & "_" & File_Name او في آخر اسم المرفق New_File = "At_" & Me.id_m & "_" & i + RC & year(now()) & "." & FileExt . جعفر
محمد سلامة قام بنشر يناير 4, 2017 الكاتب قام بنشر يناير 4, 2017 في 2/1/2017 at 21:32, jjafferr said: السلام عليكم أخي محمد سلامة المرفق الاخير تم تعديله ليكون جاهز للخطوة التالية ، خطوة السنة انظر في الكود المرفق . حاليا نستخدم السطر رقم 2 ، بينما نستطيع تغيير مسميات المرفق كما نشاء ، مثلا: كود السطر 1 ، يضيف الاسم الاصلي للمرفق ، الى اسم المرفق ، بينما اذا اردت ان تضيف السنة الى اسم المرفق ، فكل الذي عليك عمله هو اضافة كود السنة الى السطر رقم 1 او 2 year(date()) او Year(now()) هكذا في اول اسم المرفق New_File = year(now()) & ".At." & Me.id_m & "." & i & "_" & File_Name او في آخر اسم المرفق New_File = "At_" & Me.id_m & "_" & i + RC & year(now()) & "." & FileExt . جعفر Expand جزاك الله خيرا وبارك الله فيك مهما احاول ان اشكرك لن اوافيك حقك شكرا جزيلا فعلا ونعمة الاخ والمعلم
ابو جودي قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 1/1/2017 at 19:42, jjafferr said: السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zipFetching info... Expand السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير استاذ @jjafferr عتد استخدام الزر ادراج مرفقات من الكمبيوتر لو اراد المستخدم الرجوع عن هذه الخطوة عند الضغط على الزر cancel تظهر تلك الرسالة المزعجة كما فى الصورة الاتية كيف يمكن الغاء هذة الرسالة المزعجة
jjafferr قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 وعليكم السلام أخي اباجودي في 23/4/2017 at 01:57, ابا جودى said: لو اراد المستخدم الرجوع عن هذه الخطوة عند الضغط على الزر cancel تظهر تلك الرسالة المزعجة كما فى الصورة الاتية Expand استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then في 23/4/2017 at 02:34, ابا جودى said: وما هو الخطأ المسبب فى ظهور هذه الرسالة Expand بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip 3
ابو جودي قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 23/4/2017 at 10:43, jjafferr said: وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zipFetching info... Expand هههههههههههه اقصد المسبب داخل الكود يا استاذى الحبيب 1
محمد سلامة قام بنشر أبريل 23, 2017 الكاتب قام بنشر أبريل 23, 2017 حمدالله علي السلامة استاذ @jjafferr يا @ابا جودى ايه رايك في الموضوع ده؟ 1
ابو جودي قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 23/4/2017 at 17:25, محمد سلامة said: حمدالله علي السلامة استاذ @jjafferr يا @ابا جودى ايه رايك في الموضوع ده؟ Expand الموضوع اكثر من رائع وللعلم انا استفدت منه واخذت منه افكار واكواد وعدلت عليها بما يتناسب مع فكرتى والمخرج موجود فى برنامج المسح الضوئى الاخير اللى انا ارفقته فى رابط خارجى فى موضوع الاستاذ @حسين العربى فى هذه المشاركة 1
حسين العربى قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 4/1/2017 at 16:43, jjafferr said: هلا والله جعفر Expand استاذي الفاضل jjaffer ممكن لو تكرمت لقي نظره علي هذه المشاركة
jjafferr قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 23/4/2017 at 11:20, ابا جودى said: هههههههههههه اقصد المسبب داخل الكود يا استاذى الحبيب Expand الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر في 23/4/2017 at 17:25, محمد سلامة said: حمدالله علي السلامة استاذ @jjafferr Expand الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر 3
jjafferr قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 في 23/4/2017 at 18:48, حسين العربى said: استاذي الفاضل jjaffer ممكن لو تكرمت لقي نظره علي هذه المشاركة Expand حياك الله أخوي حسين هل في شيء معين تريدني انظر فيه؟ جعفر 1
حسين العربى قام بنشر أبريل 23, 2017 قام بنشر أبريل 23, 2017 (معدل) في 23/4/2017 at 20:21, jjafferr said: حياك الله أخوي حسين هل في شيء معين تريدني انظر فيه؟ جعفر Expand يسعدني جدا ويشرفني استاذي الفاضل ان ترد علي طبعا في البدايه ان مش عاوز زر سحب سكان من البرنامج انا سوف اسحب من الاسكان عن طريق الكمبيوتر. واخفظ في فولدر مؤقت. واذهب الي البرنامج واضغط علي زر ادراج صوره من ملف الاسكان المؤقت. فياخذ قص من الصور. ويدرجها في الفولدر المحدد مساره في مربع النص مسار الفولد ويدرج مسار الصور الجديد في النموذ الفرعي طبعا ده كله اتعمل وشغال تمام هنا مشكله هي لو في صوره بها نفس الاسم الموجود في فولدر الموظف. يقوم باستبدالها انا طبعا للتوضيح.برنامجي عامله لشئون موظفين وليس صادر واوارد. وطبعا يوجد لكل موظف فلودر علي السرفر به كل صوره. ارجو ان اكون طلبي واضح كيف نتفادي هذه المشكله تم تعديل أبريل 23, 2017 بواسطه حسين العربى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.