اذهب الي المحتوي
أوفيسنا

احضار محتويات فولدر خارجى الى البرنامج


الردود الموصى بها

السلام عليكم اخي محمد:smile:

 

فهم الكود اخذ مني وقت ، واعتقد بأني فهمته:wink2:

 

طيب ، اذا كنا في المسلسل رقم 6 ،

وكان عندنا الملفين التاليين عند الادراج:

Router_config.jpg
Read_Router_config_Manual.doc

.

فكيف تريد حفظ هذين الملفين؟

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, jjafferr said:

السلام عليكم اخي محمد:smile:

 

فهم الكود اخذ مني وقت ، واعتقد بأني فهمته:wink2:

 

طيب ، اذا كنا في المسلسل رقم 6 ،

وكان عندنا الملفين التاليين عند الادراج:


Router_config.jpg
Read_Router_config_Manual.doc

.

فكيف تريد حفظ هذين الملفين؟

 

جعفر

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

بارك الله فيك استاذ جعفر

وشكرا علي ردك ومتابعتك الموضوع

بخصوص الاستفسار عند الادراج يصبح

الملف الاول  At6-1.jpg

الملف الثاني At6-2.doc

شرحها

At اسم ثابت 

6 رقم المسلسل

1 او 2 هو رقم تلقائي مسلسل 

يارب اكون عرفت اوصل الفكرة

رابط هذا التعليق
شارك

9 ساعات مضت, محمد سلامة said:

بخصوص الاستفسار عند الادراج يصبح

الملف الاول  At6-1.jpg

الملف الثاني At6-2.doc

شرحها

At اسم ثابت 

6 رقم المسلسل

1 او 2 هو رقم تلقائي مسلسل 

يارب اكون عرفت اوصل الفكرة

السلام عليكم اخي محمد:smile:

 

هاي سهلة ، والمرفق فيه طلبك (مع ملاحظة اني لاحظت خطأ في الكود في قراءة الملفات ذات اكثر من 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.zip

  • Like 1
رابط هذا التعليق
شارك

سلام الله على الجميع

من الجميل أن تتضافر جهود وأفكار اساتذتنا الأفاضل ليخرجوا لنا أبداعاتهم فضلا عن جميل مساعدتهم.

إذا سمح لى أخى أ / محمد سلامة. بطلب إضافة من أستاذنا / جعفر. أحتاجها على هذا الموضوع الجميل والذى كنت أبحث عن نظيرا له في فكرته لعمل أخر أقوم به وجاء هذا المثال في ابداعه قريبا جدا مما أريد.

والإضافة تتمثل في إمكانية عمل نافذة استعراض مضغرة باسم Preview في النموذج الفرعى sfrm_emp_wared عند الضغط على هذا الاستعراض يقوم بفتح الملف.

وهناك نقطة أخرى (وردت بخاطرى) أود "إن أمكن" إضافتها وهى عمل زر لإمكانية ارفاق بعض المحتويات دون البعض في نفس الفولدر من خلال تحديد ما نريد إضافته مع وجود زر أخر لإضافة محتويات كامل الفولدر كما هو الحال الآن وذلك إثراءً وتكاملا للعمل حتى يتسع الأمر لكل مستخدم حسب حاجته ورغبته في إضافة المرفقات.

دمتم بكل خير وجعل الله تبذلون فيه وقتكم ومجهودكم وعلمكم في ميزان حسناتكم وشكرا لكم والسلام.

تم تعديل بواسطه وائل أبو عبد الرحمن
رابط هذا التعليق
شارك

12 ساعات مضت, jjafferr said:

ولكن اسمح لي ان اعرض بعض التغيير:

ايش رايك


بدلا عن
Alt_6_1.jpg
Alt_6_2.doc

ايش رايك في ، بحيث تحتفظ بإسم الملف ايضا
Alt_6_1_Router_config.jpg
Alt_6_2_Read_Router_config_Manual.doc

 

السلام عليكم استاذنا الحبيب جعفر .. يسلم عليم لما يكون بالك رايق بتبدع

بالنسبة للتغيير انا لا يهمنى الاسم القديم للمرفق بقدر الاسم الجديد .. لان المرفق القديم موجود  فى مكانه وباسمه القديم.

بعد التجربة 

انظر الصورة هناك خطأ يدرج المرفق بالاسم القديم ثم بالاسم الجديد 

jjjjjj.png

واذا ارادت مرة اخرى ادراج مرفق اخر  يتم ادراجه بنفس الترقيم  يعنى من المفترض ان الرقم الاخير يكون مسلسل وعند الادراج مرة اخرى يكمل على المسلسل

12 ساعات مضت, jjafferr said:

وايش رايك في انه يوجد لكل سنه ملفاتها؟؟

فكرة ممتازة  وجميلة وبدون ان اثقل عليك استاذي الفاضل

تحياتي لك

 

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم أخي محمد:smile:

 

كل سنه وانت بخير ان شاء الله:smile:

 

انا جربت المرفق ، وحسب تجربتي كُله تمام ،

حيث يحفظ الملفات بالتنسيق التالي ، مثلا:

At_7_1.jpg

At_7_2.doc

ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة).

 

جعفر

207.4.m.salama.accdb.zip

  • Like 3
رابط هذا التعليق
شارك

تحية طيبة للجميع

و اذا سمح لي الاستاذ جعفر بالمداخلة على المرفق فقد قمت ببعض التعديلات

حيث يتم ترقيم المرفق بنفس الاسم و لكن يضاف اليه التاريخ كاملا اضافة الى رقم تسلسلي

مثلا 01-01-2017 000001 مرفق 1

ايضا يمكنك فتح المرفق بالنقر المزدوج على حقل اسم المرفق حيث يتم تشغيل المرفق بالبرنامج المرتبط به

مثلا ملفات الصور يتم تشغيلها بواسطة عارض الصور و هكذا

طبعا المرفقات يجب ان تكون في نفس مسار قاعدة البيانات

207.5.m.salama.rar

تم تعديل بواسطه محمد ايمن
  • Like 2
رابط هذا التعليق
شارك

2 ساعات مضت, jjafferr said:

السلام عليكم أخي محمد:smile:

 

كل سنه وانت بخير ان شاء الله:smile:

 

انا جربت المرفق ، وحسب تجربتي كُله تمام ،

حيث يحفظ الملفات بالتنسيق التالي ، مثلا:

At_7_1.jpg

At_7_2.doc

ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة).

 

جعفر

207.4.m.salama.accdb.zip

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

وحضرتك بخير وسعادة وشكرا لك تفاعلك ومتابعة الموضوع.. بارك الله فيك استاذ جعفر

2 ساعات مضت, محمد ايمن said:

تحية طيبة للجميع

و اذا سمح لي الاستاذ جعفر بالمداخلة على المرفق فقد قمت ببعض التعديلات

حيث يتم ترقيم المرفق بنفس الاسم و لكن يضاف اليه التاريخ كاملا اضافة الى رقم تسلسلي

مثلا 01-01-2017 000001 مرفق 1

ايضا يمكنك فتح المرفق بالنقر المزدوج على حقل اسم المرفق حيث يتم تشغيل المرفق بالبرنامج المرتبط به

مثلا ملفات الصور يتم تشغيلها بواسطة عارض الصور و هكذا

طبعا المرفقات يجب ان تكون في نفس مسار قاعدة البيانات

207.5.m.salama.rar

شكرا استاذ محمد وكل سنه وحضرتك طيب

 

1 ساعه مضت, jjafferr said:

حياك الله اخوي محمد ، واتشرف بمشاركتك :smile:

 

واصبح لدى اخونا محمد اكثر من حل ، وذلك في السنة التالية لسؤاله :smile:

 

جعفر

شكرا جزيلا استاذ جعفر

هذا كان طمع في بحر خيركم وعطائكم وعدم بخلك علينا في الرد علي استفسارتنا

فبارك الله فيكم جميعا

وجاري المتابعة والاطلاع

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

في 12/14/2016 at 10:31, jjafferr said:

وايش رايك في انه يوجد لكل سنه ملفاتها؟؟

السلام عليكم أخي محمد سلامة:smile:

 

المرفق الاخير تم تعديله ليكون جاهز للخطوة التالية ، خطوة السنة:smile:

انظر في الكود المرفق

272.4.Clipboard01.jpg

.

حاليا نستخدم السطر رقم 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

.

 

جعفر

رابط هذا التعليق
شارك

في ٢‏/١‏/٢٠١٧ at 23:32, jjafferr said:

السلام عليكم أخي محمد سلامة:smile:

 

المرفق الاخير تم تعديله ليكون جاهز للخطوة التالية ، خطوة السنة:smile:

انظر في الكود المرفق

272.4.Clipboard01.jpg

.

حاليا نستخدم السطر رقم 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

.

 

جعفر

جزاك الله خيرا وبارك الله فيك 

مهما احاول ان اشكرك لن اوافيك حقك

شكرا جزيلا فعلا ونعمة الاخ والمعلم 

 

رابط هذا التعليق
شارك

  • 3 months later...
في 1/1/2017 at 21:42, jjafferr said:

السلام عليكم أخي محمد:smile:

 

كل سنه وانت بخير ان شاء الله:smile:

 

انا جربت المرفق ، وحسب تجربتي كُله تمام ،

حيث يحفظ الملفات بالتنسيق التالي ، مثلا:

At_7_1.jpg

At_7_2.doc

ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة).

 

جعفر

207.4.m.salama.accdb.zip

السلام عليكم ورحمة الله تعالى وبركاته
استاذى الجليل ومعلمى القدير  استاذ @jjafferr

عتد استخدام الزر  ادراج مرفقات من الكمبيوتر 
لو اراد المستخدم الرجوع عن هذه الخطوة عند الضغط على الزر  cancel
تظهر تلك الرسالة المزعجة كما فى الصورة الاتية
Untitled.png.926424cce1f0c1e69c5801763e19b93b.png

كيف يمكن الغاء هذة الرسالة المزعجة

رابط هذا التعليق
شارك

وعليكم السلام أخي اباجودي

 

8 ساعات مضت, ابا جودى said:

لو اراد المستخدم الرجوع عن هذه الخطوة عند الضغط على الزر  cancel
تظهر تلك الرسالة المزعجة كما فى الصورة الاتية

 

استبدل هذا السطر
If UBound(strFileNames) = 0 Then

بهذا السطر
If Len(strFileNames & "") = 0 Then

 

7 ساعات مضت, ابا جودى said:

وما هو الخطأ المسبب فى ظهور هذه الرسالة

بسم الله عليك:smile:

ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel 

Laughing-chimp-gif-animation.gif

 

جعفر

207.5.m.salama.accdb.zip

  • Like 3
رابط هذا التعليق
شارك

31 دقائق مضت, jjafferr said:

وعليكم السلام أخي اباجودي

 

 


استبدل هذا السطر
If UBound(strFileNames) = 0 Then

بهذا السطر
If Len(strFileNames & "") = 0 Then

 

بسم الله عليك:smile:

ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel 

Laughing-chimp-gif-animation.gif

 

جعفر

207.5.m.salama.accdb.zip

هههههههههههه
اقصد المسبب داخل الكود يا استاذى الحبيب

  • Like 1
رابط هذا التعليق
شارك

31 دقائق مضت, محمد سلامة said:

حمدالله علي السلامة استاذ @jjafferr

يا @ابا جودى ايه رايك في الموضوع ده؟:biggrin:

 

 

الموضوع اكثر من رائع وللعلم انا استفدت منه واخذت منه افكار واكواد وعدلت عليها بما يتناسب مع فكرتى والمخرج موجود فى برنامج المسح الضوئى الاخير اللى انا ارفقته فى رابط خارجى فى موضوع الاستاذ @حسين العربى 
فى هذه المشاركة

 
 
 
  • Like 1
رابط هذا التعليق
شارك

7 ساعات مضت, ابا جودى said:

هههههههههههه
اقصد المسبب داخل الكود يا استاذى الحبيب

 

الكود السابق:

UBound(strFileNames)

UBound معناه العدد الاكبر من strFileName ،

ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ،

بينما الامر

If Len(strFileNames & "") = 0 Then

فيقوم محل امرين وهما:

If isNull(strFileNames)=true or  strFileNames= 0 Then

 

جعفر

1 ساعه مضت, محمد سلامة said:

حمدالله علي السلامة استاذ @jjafferr

 

الله يسلمك ويعافيك ان شاء الله اخوي محمد:smile:

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

 

حياك الله أخوي حسين:smile:

 

هل في شيء معين تريدني انظر فيه؟

 

جعفر

يسعدني جدا ويشرفني  استاذي الفاضل ان ترد علي 

طبعا في البدايه ان مش عاوز زر سحب سكان من البرنامج 

انا سوف اسحب من الاسكان عن طريق الكمبيوتر. واخفظ في فولدر مؤقت. واذهب الي البرنامج واضغط علي زر ادراج صوره من ملف الاسكان المؤقت. فياخذ قص من الصور. ويدرجها في الفولدر المحدد مساره في مربع النص مسار الفولد ويدرج مسار الصور الجديد في النموذ الفرعي 

طبعا ده كله اتعمل وشغال تمام 

هنا مشكله 

هي لو في صوره بها نفس الاسم الموجود في فولدر الموظف. يقوم باستبدالها 

انا طبعا للتوضيح.برنامجي عامله لشئون موظفين وليس صادر واوارد. وطبعا يوجد لكل موظف فلودر علي السرفر به كل صوره. ارجو ان اكون طلبي واضح 

كيف نتفادي هذه المشكله

تم تعديل بواسطه حسين العربى
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information