ابو جودي

تم بحمد الله تعالى جمع كل الاوراق فى مل صورة واحد فقط TIF باستخدام الكود الاتى Dim temp_scan_path temp_scan_path = db_path() & "tempscan" If Dir(temp_scan_path, vbDirectory) = "" Then MkDir temp_scan_path End If Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0," & Trim(db_path) & "tempscan,tif,1) /scanhidden") ولكن مشكلتى مع كود التحويل الى PDF اطمع فى المساعده بخصوص هذا الشأن

استاذى الجليل انا جربت الاكواد فى المشاركة او بالاحرى جربت هذا الكود Shell "c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden ولكن لم يتم قبول الكود على هذا النحو فعدلت الى الاتى Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1)") وقمت بعمل مجلد على القطاع C وقمت بتسميته temp وبعد التجربة يتم مسح الاوراق داخل الماس الضوئى ولا اجد لها اى اثر هلى جهاز الكمبيوتر ما سبب ذلك على الرغم من ان هذا السطر يعمل بكفاءه دون حدوث اى مشاكل ولكن الناتخ عدد الملفات يساوى عدد الورق الذى تم مسحه بالماسح الضوئى بامتداد JPG Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,1," & Trim(db_path) & "tempscan,jpg,0)")

اهاااااااااااااا اسف اختلط على الامر انا فكرتك حضرتك تقصد انه مش ممكن انشاء اكثر من مجلد وكلهم داخل بعضم بكود واحد اسف جدا جدا

استاذ @سلمان الشهراني تحيبة طيبة ان شاء الله انا ممكن اساعد حضرتك ممكن تراسلنى على الخاص

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

الكود موجود والله فى المرفق والبرنامج المستخدم كذلك موجود فى المرفق 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 كما هو موضح هنا فى هذه الصورة

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