jjafferr

كذلك اعتذر منك ، اعطيتك امر اول حرف ، ونسيت الباقي !! [m_name] = Replace(Mid([m_name],1,1), "أ", "ا") & Mid([m_name],2) او [m_name] = Replace(left([m_name],1), "أ", "ا") & Mid([m_name],2) جعفر

اذا بكره الله سبحانه وتعالى اعطانا عمر ، فأشوف الموضوع ان شاء الله 🙂 جعفر

جرب ShellWait (ولكن استعمل النسخة اللي استعملناها في برنامج QR https://www.officena.net/ib/topic/90906-كارنيهات-باستخدام-باركود-ماتركس-qr-code/ )

وعليكم السلام باشمهندس 🙂 لك وحشه يا راجل 🙂 الامر ShellWait يعمل تماما مثل Shell ، فقط تغير اسم الامر ، وخلاص 🙂 جعفر

وعليكم السلام 🙂 اللي تريده اسمه تنسيق شرطي ، وهذه الروابط تفيدك . . . . . جعفر

العفو [m_name] = Replace(Mid([m_name],1,1), "أ", "ا") او [m_name] = Replace(left([m_name],1), "أ", "ا") جعفر

حياك الله اخوي سلمان 🙂 وشكرا على سعة صدرك وتجاربك 🙂 جعفر

همممم اعتذر منك اخي حسين ، فانا وكما اخبرتك : .لازم تشوف ملف SDK الجهاز ، او ملف التحكم او اوامر الجهاز ، وبعدين ممكن نخطو للخطوة التالية 🙂 جعفر

همممم احنا نتكلم عن موضوعين مختلفين !! انا قلت اجعل المستخدم يضغط على الزر اللي على جهاز السكانر : . بينما انت تريد : . وانا رديت عليك مسبقا وقلت : جعفر

رحم الله والديك دنيا وآخرة ، و زاد الله فضله عليك 🙂 في هذه الحالة ، بالاضافة الى مشاركتي السابقة مع المرفق ، عندك طريقة اخرى ، وبدون الوحدة النمطية الثانية : Public Function Make_File() Dim BE_Path, PauseTime, Start 'get the server path BE_Path = DLookup("[Database]", "MSysObjects", "[Database] Is Not Null") 'Path and BE name BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\")) BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path End Function جعفر

جرب هذا الكود : [m_name] = Replace(left([m_name],1,1), "أ", "ا") جعفر

الظاهر انك ما فهمت مشاركتي الاخيرة !! كلامي كان ، بعد ان تعمل اعدادات الاسكانر يدويا : - حفظ الملفات في مجلد خاص بالسكانر (لا مو مجلد Downloads طبعا) ، - اذا كانت صيغة الحفظ jpg فيجب ان تكون النقاوة 100% وبدون ضغط ، - دقة الصورة على الاقل 300dpi ، اما اذا اردت تحويل الصورة الى نص عن طريق برامج OCR فيوصى برفع الدقة الى 600dpi ، - او حفظ الملف بصيغة pdf ، مع مراعاة نقطتي النقاوة والدقة اعلاه . وكل مرة ، وبعد ان يتم المسح الضوئي يدويا : وبرامج التحويل هذه ، بعمل لها موضوع مستقل في المنتدى ، بحيث تقدر تستفيد منه مباشرة ، وبدون أجر 🙂 جعفر

وكذلك تجربة اخيرة لوسمحت ، جرب هذا الكود في نافذة immediate : ?DLookup("[Database]", "MSysObjects", "[Database] Is Not Null") جعفر

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

شكرا جزيلا 🙂 اذن ، مافي داعي للتعديل اليدوي على كل برنامج ، فرجاء تعديل الوحدة النمطية الى : Public Function Make_File() Dim BE_Path, PauseTime, Start 'get the server path 'BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name BE_Path = Get_DB_Path_2 'Path and BE name BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\")) BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path End Function Public Function Get_DB_Path_2() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT Database FROM MSysObjects WHERE (MSysObjects.Database) Is Not Null") Get_DB_Path_2 = rst(0) rst.Close: Set rst = Nothing End Function جعفر my_FE.mdb.zip

وعليكم السلام 🙂 انا تجربتي ومشاركاتي في موضوع الماسح الضوئي (السكانر) تكاد تكون معدومة ، فأنا لست الشخص الصحيح في مساعدتك 🙂 والشيء الذي الزم به جميع مستخدمي برامجي ، هو : - ان يجعل الماسح الضوئي يقوم بعمله ، - فبمجرد الضغط على الزر على الجهاز ، يقوم الجهاز بعمله بأفضل وجه ، ويحفظ الملف في مجلد معين ، - وهنا تأتي الى زر استدعاء صورة او ملف pdf في برنامجك ، ونستطيع ان نجعله يفتح النافذة على مجلد السكانر مباشرة ، ويختار المستخدم الملف المطلوب. انا متابع عشرات المواضيع في المنتدى ، عن موضوع التحكم في السكانر من البرنامج ، وكل واحد فيه مشكلة او اخرى !! وخصوصا سحب مجموعة اوراق وحفظها بصيغة pdf !! ومثل ما يقول المثل العماني: الباب اللي يجيك منه ريح ، سدّه واستريح 🙂 جعفر

السلام عليكم اخوي سلمان 🙂 الحمدلله 🙂 بس الآن خلينا نجرب نعمل الكود تلقائي ، لوسمحت تجرب هذا الكود في البيئة اللي عندك ، علشان يكون مرجع لبقية الاعضاء 🙂 ضع هذا الكود في وحدة نمطية : Public Function Get_DB_Path_2() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT Database FROM MSysObjects WHERE (MSysObjects.Database) Is Not Null") Get_DB_Path_2 = rst(0) rst.Close: Set rst = Nothing End Function . وبعدين في النافذة اللي تحت (immediate) اكتب التالي (تأكد ان الكيبورد انجليزي ، وعلامة الاستفهام بالانجليزي) ، وارفق لنا صورة بالنتيجة : ?Get_DB_Path_2 . هذه نتيجة العمل على كمبيوتري : . جعفر

السلام عليكم 🙂 - كود البرنامج تم تغييره بالكامل ، - رجاء حذف الصور والمجلدات اللي عندك ، واستدعي الصور وملفات pdf من جديد ، - يجب ادخال "تبويب القسم" ، والذي يتم حفظه في الجدول ، - البرنامج يصنع مجلد السنة ، وبداخله مجلدات "تبويب القسم" (لأن السنوات القادمة سيكون لها نفس تسلسل هذه السنة ، وكذلك لترتيب المجلدات والملفات) ، - داخل مجلدات "تبويب القسم" ، يتم حفظ الصور او ملفات pdf ، بإسم التسلسل ، - الخطأ في برنامجك السابق ، انك كنت تعمل نسخة من الصور/pdf ، فتكون عندك نسختان من كل ملف ، بينما الآن فيتم حذفه من المكان الاصل انشاء الملف في المجلد الصحيح ، جعفر 1192.ProgSccaner20.mdb.zip

سهله 🙂 بدل ما نأخذ اسم ملف الجداول ومساره من BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name انت اكتبه يدويا، هكذا BE_Path = "D:\myDB\my_BE.mdb" 'Path and BE name او BE_Path = application.currentdb.path & "\myDB\my_BE.mdb" 'Path and BE name جعفر

ممتاز 🙂 اروح آخذ غفوة الظهيرة ، والليلة خير ان شاء الله 🙂 جعفر

1. هل طابعتك ملونه ؟ 2. ادخل في اعدادات الطابعة ، ابحث عن نقاوة الطباعة ، واختار Normal او Best (قد يكون بمسمى آخر) . او قد تكون اعدادات الطابعة كالصورة في اسفل ، فلا تختار المربع . رجاء تجرب الطباعة بعد هذه التعديلات. جعفر

سؤال أخير: كم سجل عندك في الجدول Imagetable ؟

اخي محمد ، رجاء انزل المرفق الجديد ، شغل البرنامج ، وشغل التقرير ، اريدك لوسمحت تعمل صورة من الشاشة ، واطبع التقرير ، واريد صورة من الورقة المطبوعة 🙂 هذه آخر افكار على بالي ، فرجاء تنفيذها 🙂 جعفر 1186.1.accdb

يا باشمهندس ، عندي طلب لوسمحت (غير الكاهي والباقلة والدهن 🙂 ) ، علشان اعرف ان تفكيري صح او خطأ !! انسخ مجلد البرنامج ، واللي فيه البرنامج ومجلد الصور ، وخليه في كمبيوتر ثاني (يجب ان يكون كمبيوتر او لابتوب آخر غير اللي الموجود عليه البرنامج) ، شغل البرنامج هناك ، واعمل بحث لسجل فيه صورة jpg موجودة في المجلد ، المفروض انك ما تشوف اي من الصور ، في اي من السجلات !! اذا كان تفكيري صحيح ، رجاء تخبرني علشان ننتقل للخطوة التالية ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 انا لا تجربة لي في هذا الموضوع ، ولكني اعتقد عمله يكون بنفس طريقة ميزان السيارات 🙂 قد نستفيد من هذه الروابط : . . . الفكرة هي ، خلي التخاطب يصير بين الجهاز والكمبيوتر ، ومنها نحصل على طرف الخيط 🙂 وطبعا كل جهاز يكون معاه برامجه ، وخصوصا SDK الجهاز ، واللي فيه جميع الاوامر اللي يقبلها الجهاز ، لذا ، شوف شو هي البرامج والملفات اللي تيجي مع الجهاز ، ومنها ننطلق 🙂 جعفر