ابو جودي

طيب ثوانى اشوف وارجع لحضرتك تانى النموذج الأساسي حضرتك تقصدى بيه نموذج مواعيدك ؟

اهلا اهلا اخى الحبيب استاذ @sandanet ان المرفق بتنسيق accdb يعنى مفترض انه يفتح على اكسس 2007 على كل حال سأحاول عمل قاعدة جديدة واستورد اليها الكائنات مرة اخرى واعيد ارفاقها جرب كده المرفق ده يا استاذ @sandanet نظام متابعة مواعيد مرضى السكر mdb .rar

اها طبعا طبعا الكود موجود فى كل نموذج من النماذج اللى تخص تخصصات العيادات -مواعيد الجلدية -مواعيد السكرى والغدد الصماء -مواعيد العيون -مواعيد الكلى الكود تم وضعه فى الحدث عند فتح النموذج الكود If Me.RecordsetClone.RecordCount = 0 Then MsgBox "نص الرسالة ", vbInformation, " عنوان الرسالة " DoCmd.Close Else End If وهنا استخدمت قاعدة IF لعدد السجلات فإن كان العدد = صفر اى لا يوجد اى سجل تظهر الرسالة التة نريد ظهورها ونغلق النموذج فلا حاجة لنا بفتح النموذج طالما لن يحتوى على اى سجلات والا لا يحدث اى شئ اى لو عدد السجلات اكبر من صفر لا تظهر اى رسائل ولا يتم اغلاق النموذج اى لا يحدث اى شئ وكاننا لم نستخدم اى اكواد

اختنا الكريمة ان شاء يكون المطلوب فى هذا المرفق نظام متابعة مواعيد مرضى السكر 99.rar

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

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

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

كل الصور فى ملف واحد

نعم جربت ولكن دون جدوى

تم بحمد الله تعالى جمع كل الاوراق فى مل صورة واحد فقط 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