ابو جودي

السطر الي معلم باللون الاحمر في عدة سطور

سلامتك الف سلامه ان شاء الله الكود وانت لا اضحك الله سنكم دائما

الحمد لله الذى تتم بنعمته الصالحات ثم انا لست سوى طالب علم

حضرتك تأمر sFolder =[اسم مربع نص المسار]

sFolder = المسار اللى حصرتك عاوزه ممكن مثلا sFolder ="D:\scanner\"

بدون تعليق طبعا ده حال الجميع هههههههههههههههههههه انا بصراحة تعبت شوية وحبيت افصل وحبيت افصلكم شويه معايا

نعم

سهله واسهل من السهوله

اختنا الكريمة @Rawannnna السبب ان حضرتك اضفتى على الازرار فى نموذج مواعيدك هذا السطر بعد كود فتح النموذج DoCmd.Close acForm, "مواعيدك" ولذلك يتم اغلاق هذا النموذج فمن المنطقى بعد ان تظهر الرسالة يغلق النموذج هناك حلان الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما والحل الاخر فى هذا المرفق لو اردتى اغلاق النموذج مواعيدك يتم فتح النموذج مرة اخرى بعد الرسالة | لك مطلق الحرية فى اختيار ما يناسبك طبعا وتم اضافة الكود الخاص بعد سجلات النماذج كما تفضل واشار استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr من فضلك جربى المرفق هذا ووافينا بالنتيجه نظام متابعة مواعيد مرضى السكر .rar

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

مش فاهم قصد حضرتك ؟

جزاكم الله خيرا استاذى القدير ومعلمى الجليل ووالدى الحبيب استاذ @jjafferr تم التعديل على الكود كما تفضلتم اتمنى ان اكون طبقت بالطريقة الصحيحة اختنا الكريمة @Rawannnna السبب ان حضرتك اضفتى على الازرار فى نموذج مواعيدك هذا السطر بعد كود فتح النموذج DoCmd.Close acForm, "مواعيدك" ولذلك يتم اغلاق هذا النموذج فمن المنطقى بعد ان تظهر الرسالة يغلق النموذج هناك حلان الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما والحل الاخر فى هذا المرفق لو اردتى اغلاق النموذج مواعيدك يتم فتح النموذج مرة اخرى بعد الرسالة | لك مطلق الحرية فى اختيار ما يناسبك طبعا وتم اضافة الكود الخاص بعد سجلات النماذج كما تفضل واشار استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr نظام متابعة مواعيد مرضى السكر .rar انا مش عارف ايه المشكله عند حضرتك بصراحة انا شغال عندى تمام قبل التحويل وبعد التحويل

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

اهلا اهلا اخى الحبيب استاذ @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)")

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