ابو جودي

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

الكود موجود والله فى المرفق والبرنامج المستخدم كذلك موجود فى المرفق http://www.mediafire.com/file/d8wi5993u33r8ur/scan.rar وشرح ترركيب واعداد البرنامج موجود هنا تركيب وضبط برنامج irfanview.rar اخوانى الافاضل الاحظ اسئله لا تدل الا على ان السائل الكريم لم يفتح المرفق او يحاول تجربته او يحاول حتى تحليل الاكواد به والله كل سؤال تم وضعه بعد ان قمت بارفاق هذه المرفق فى مشاركتى موجود داخل هذا المرفق وفكرت فى كل تساؤل سلفا مع نفسى ووضعت التصورات والحلول لكل تساؤلاتى قبل ان اقوم بارفاق المرفق وعلى كل حال الكود Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(tempscan,1,1,2,1," & Trim(db_path) & "tempscan,jpg,0)") ومرة اخرى رابط شرح تنصيب البرنامج واعداده للتعامل والربط بين اجهزة المسح الضوئى والاكسس

الشكر والحمد لله سبحانه وتعالى وحده فهو الذى تتم بنعمته الصالحات

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

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

طيب على العموم ده الميل بتاعى

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

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

انشئ موديول جديد وضع هذا الكود به 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 من الجدول تمام