ابو جودي

ههههههههههههههههههههه احيانا الواحد بيمر باشياء بتطير العقل

انشئ موديول جديد وضع هذا الكود به Public Function db_path() db_path = CurrentProject.Path & "\" End Function وعلى زر الامر انشاء المجلد ضع الكود الاتى On Error Resume Next 'انشاء مجلدات البرنامج فى نفس مسار قاعدة البيانات Dim Dir_archives, Dir_sader, Dir_wared, Dir_current_year_wared, Dir_id Dir_archives = db_path() & "archives\" Dir_wared = db_path() & "archives" & "\wared\" Dir_current_year_wared = db_path() & "archives" & "\wared\" & format(date(),"yyyy" & "\" Dir_id = db_path() & "archives" & "\wared\" & format(date(),"yyyy" & "\" & [id_wared] If Dir(Dir_archives, vbDirectory) = "" Then MkDir Dir_archives MkDir Dir_wared MkDir Dir_current_year_wared MkDir Dir_id End If انا كان يهمنى اعمل المجلد بالسنه على اعتبار ان كل سنه يتم انشاء مجلد خاص بها وذلك لان كل سنه يتم بدء الترقيم من الرقم 1 مجددا لك حرية التغيير على الكود بما يتماشى ويتناسب مع افكارك ملاحظة [id_wared] يعنى اسم مربع النص على النموذج والذى به قيمه رقم الوارد والهدف من الموديول الاول هو استدعاء المسار تلقائيا من خلال db_path() كما تم انشائه فى الموديول

بناء على طلب احد الاخوة الكرام شرح تفصيلى لطريقة ربط وضبط برنامج IrfanView تركيب وضبط برنامج irfanview.rar

ممكن المرفق

السلام عليكم وحمة الله تعالى وبركاته اساتذتى الكرام من فضلكم هل يوجد كود او طريقة لتحويل اى عدد من الصور مهما كان داخل مسا محدد الى ملف pdf من خلال بحثى على الانترنت وجد هذه الطريقة ولكن لم تعمل معى Convert image directly to PDF https://examples.activepdf.com/Toolkit/2017/Convert_image_directly_to_PDF.vbs

جزاااااااااااااااااكم الله خيرا استاذى الجليل ومعلمى القدير ووالدى الحبيب @jjafferr اسأل الله تعالى لكم البركة فى العمر والعلم والعمل ان شاء الله غفر الله لكم ولوالديكم ومن تحبون

الاكس الاخيرة فقط

الف مبروووووك استاذ @Shivan Rekany انت انسان رائع وتستاهل كل خير

اريد الرقم C20626200 xxxxxx يكون C20626200 C202111xx يكون C202111 90000582-Series يكون 90000582 S-11xxx-( ) يكون S-11 BA21741xxx-x يكون BA21741xxx-x 3A258-xxxx-xx-x يكون 3A258 هل هناك حل طبعا دى الشواذ التى اريد تعديلها اما باقى الارقام اريدها تظهر كما هى qs 2003.rar

للاسف فى مشكله لو الرقم كده 2510112-x5-xx المفروض يكون كده 2510112 والشكل ده اتحقق مع كود الاستاذ @ابوخليل لكن لما عملنا داله الاستبدال طبعا لا معلش انا اسف استاذ @Shivan Rekany انا مكنتش مركز فى الارقام شويه لانى كنت مشغول حبة فى الشغل وبصيت على اول صفحة فقط فى الكويريى وبصراحة انا اخدت الكود نسخ ولصق دون النظر اليه وماخدتش بالى انه دالة الاستبدال لانى لو تفتكر من قبل قلت لك عارفها ومش حتنفع معايا up

فتح الله عليكم وزادكم علما وبارك لكم فى علمكم واسال الله تعالى ان ينفكم بما علمكم جزاااااااااااكم الله تعالى خيرا استاذ @Shivan Rekany انت لا تدرى حجم الكرب الذى فرجته عنى اسأل الله العلى القدير لكم خير الدارين الله يرضى عليك وعلى والديك يارب

نعم نعم الله يفتح عليك معلش انا اتأخر فى الرد عليك لانى فى الشغل

لا لا لا انا عاوزفصل لما يكون الرقم كده 2606671-x يكون 2606671 ولوكا الرقم لا يحتوى على -x مثل 088256-04644 يكون 088256-04644 كما هو موضح هنا فى هذه الصورة

جزاكم الله خيرا

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام من فضلكم انا احتاج الى فصل محتوى مربع النص لاستخلص منه جرء معين مثلا 2606671-x اريد استخلاص كل الحقول بدون -x فتكون النتيجة كالاتى 2606671 استخدمت كود كان قد تفضل به على من قبل بعد رب العزة سبحانه وتعالى استاذى الجليل ومعلمى القدير الاستاذ @ابو خليل ولكن واجهنى مشكله لو لم يحتوى النص داخل الحقل على الجزء الذى اريد فصله يظهر خطأ على شكل #Func! هل هناك طريقة لكى يظهر النص كاملا كما هو طالما انه لا يحتوى على الجزء الذى اريد فصله بدلا من الخطأ الذى ظهر اليكم المرفق وهذه الصورة توضح المطلوب اكثر صورة الخطأ الصورة المطلوب تحقيقها ان امكن ذلك qs.rar

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

طبعا ده على حسب المثال اللى انا عملته وحضرتك تقدر تغير براحتك يعنى انت ممكن تغير المعيار بتاع دالة dlookup

والله كنت أجهزة قبل أن تسأل أستاذى العزيز اتفضل جاااااااهز لعيونك استاذ عبد الفتاح.rar اللى راح يظهر فى الاستعلام لازم يكون = true من الجدول تمام

ايون ينفع انا عملتها قبل كده تقريبا

العفو منك استاذى الجليل ومعلمى القدير ما انا الا طالب علم جزاكم الله خيرا وده الملف مرة اخرى باللمسة الرمهانية AllowAdditions (1).rar

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

بعد التعديل وفقا لما تفضل به الاستاذ القدير والمعلم الجليل @رمهان الملف.zip

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

اخى الحبيب الله يرضى عليك ركز معايا شوية المرفق فى هذه المشاركة مؤقتا حتى اتمم التعديل عليه فيكون الحفظ مباشرة داخل المجلد المطلوب يقوم بعمل ما تريده حضرتك بدون اى مشاكل http://www.mediafire.com/file/d8wi5993u33r8ur/scan.rar لو حضرتك جربت زر الامر على نموذج الوارد او الصادر زر الامر باسم إدراج مرفقات من الكمبيوتر هذا الزر يقوم بارفاق كل المرفقات التى تحددها مرة واحده الى مجلد ينشئه البرنامج من تلقاء نفسه برقم المسلسل ويقوم بعمل اعادة تسمية لو حضرتك ركزت مع كلامى حتلاقى اصلا ده موجود وتم اخذخ فى الحسباااااان قبل ان يفتح باب الحوار حول هذه النقطة ركز فى مميزات المرفق فى الرابط فى هذه المشاركة وهى كالاتى المميزات من وجهة نظرى المتواضعة وبناء على ما لمسته فى حياتى العملية- ادراج الوقت والتاريخ من جهاز السيرفر فى حالة احببت عمل القاعدة مترابطه بقاعدتين امامية وخلفيةفلا يستطيع من يعمل على البرنامج التعديل فى الوقت والتاريخطبعا انا وضعت كود الان واستعلام لكى يربط البرنامج نفسه بالاى بى الحالى للجهاز الحالى لعدم حدوث مشاكل - المفترض وضع الاى بى الخاص بالسيرفر يدويا فى جدول الاى بى المخصص لذلك- الترقيم تلقائى ويتجدد كل عام بطريقة الية- حذ سجل لو بالخطأ لا يضيع رقم من ترتيب السجلات- عدم حفظ البيانات الا باكتمالها ورسالة تفيد ذلك - فى حالة المرفقات يتم انشاء مجلد ارشيف وبداخله مجلد الصادر او الوارد حسب النموذج المستخدم كل باسمه وبداخل كل منهم تاريخ العام الحالى ومجلد خاص لكل سجل برقم المسلسل للسجل وبه كل المرفقات - المرفقات مربوطة داخل النماذج برقم المسلسل ويمكن البحث عنها او استعراضها من النموذج دون الذهاب الى مسارها على الجهاز -المرفقات غير مرتبطه او مضمته داخل القاعدة ولا حتى بمسار محدد - يمكن تصفح المرفقات من على الشبكىة مع الرغم من عدم وجود مسارات محدده او محفوظه وثابته لاى مرفق - طبعا كل مرفق يتم فتحه بالبرنامج المفضل لفتحه لذا يجب تنصيب البرامج الخاصة لكل نوع صور او ورد او اكسل او اكروبات ريدر ..... الخ - يمكن نقل المجلد الرئيسى الذى يحتوى على قاعدة البيانات من اى مكان الى اى مكان وبتم استعراض المرفقات بكل سهوله لعدم ارتباط المرفقات بمسار محدد سلفا وهذا ما ارهقنى كثيرا حتى من الله على تعالى بهذه الفكرة الرااااااااااااااائعةهذه بداية ورشة عمل مشروع ارشفة ملفات ....... اعتذر لم اعدد المميزات لان اصل الموضوع كان يعتمد على ربط الاسكانر خذ من الاكواد ما تريد

جزاكم الله خيرا ولى عظيم الشرف ويسعدنى مرور حضرتك الطيب والادلاء بدلوكم