jjafferr

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

همممم اعتذر منك اخي حسين ، فانا وكما اخبرتك : .لازم تشوف ملف 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 الجهاز ، واللي فيه جميع الاوامر اللي يقبلها الجهاز ، لذا ، شوف شو هي البرامج والملفات اللي تيجي مع الجهاز ، ومنها ننطلق 🙂 جعفر

العفو ، وضعك المصدر كان كافي ، ولكنه كان لازم نبحث فيه ، وسط بقية الاكواد ، بينما وضع الكود مباشرة ، يسهل الامر على القارئ 🙂 جعفر

السلام عليكم 🙂 عملت بعض الاضافات في مشاركتي السابقة ، وهذه هي الجزئية التي تتأكد ان الحقول مليانة : Private Sub cmd_Update_Click() If (Len(Forms!الرئيسية![44 form]![التسلسل] & "")) = 0 Then MsgBox "حقل التسلسل فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![التسلسل].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![44 form]![named] & "")) = 0 Then MsgBox "حقل الاسم فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![named].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![5 form]![تاريخ التولد] & "")) = 0 Then MsgBox "حقل تاريخ التولد فارغ" Forms!الرئيسية.Form![5 form].SetFocus Forms!الرئيسية![5 form]![تاريخ التولد].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![8 form]![العمر] & "")) = 0 Then MsgBox "حقل العمر فارغ" Forms!الرئيسية.Form![8 form].SetFocus Forms!الرئيسية![8 form]![العمر].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![المهنة] & "")) = 0 Then MsgBox "حقل المهنة فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![المهنة].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![رقم الموظف] & "")) = 0 Then MsgBox "حقل رقم الموظف فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![رقم الموظف].SetFocus Exit Sub End If ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning ' ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning End Sub جعفر 1191.1.222.accdb.zip

كيف تبحث عن ملف pdf ، اعطني مثال ؟ وهل بيانات الحقل ImagePath دائما فاضية ؟ ولما تبحث عن ملف jpg ، كيف تبحث ، اريد مثال ؟ واريد صورة شاشة من احد المجلدات اللي فيها ملفات الـ pdf ، وصورة شاشة من احد المجلدات اللي فيها ملفات الـ jpg . جعفر

وعليكم السلام 🙂 الكود يحفظ ملفات jpg و pdf بنفس الطريقة : . والمسار يصير: مجلد قاعدة البيانات / comp1 / ثم E_ID هذه اختيارات comp1 : . وهذا نوع الحقل E_ID . في هذا الرابط انت سألت عن كيف عرض ملف pdf في النموذج : وبالاضافة الى تغيير الكائن في النموذج ، جواب الكود كان: web.Navigate Me![ImagePath] . بينما الكود عندك : Private Sub PicFile_AfterUpdate() On Error Resume Next Me![objIE].Object = Me![PicFile] '<----- End Sub . وقيمة الحقل PicFile . واللي اصلا غير عن: . وكذلك حقل ImagePath في الجدول فارغ !! . لذا ، وبإختصار شديد: شليله و ضايع راسها !! جعفر

وعليكم السلام 🙂 يا ريت تعرض لنا الجواب هنا 🙂 القوائم اعلى النوافذ ، تتحكم في اظهارها / اخفائها بالامر الذي وضعته انت في مشاركتك الاولى ، بينما التحكم في الاطار اسفل النافذة (وهو طلبك) ، فالامر هو : إخفاء Application.SetOption "Show Status Bar", False إظهار Application.SetOption "Show Status Bar", True . ويمكن استعمال هذا الكود اول ما يعمل البرنامج ، فلا يظهر في البرنامج ككل ، واذا اردنا إظهاره في نموذج معين ، ثم اخفائه في بقية النماذج ، فنستعمل كود الاظهار عند فتح النموذج (او عند تنفيذ امر معين) ، ونخفيه عند اغلاق النموذج (او عند الانتهاء من الامر المطلوب) 🙂 جعفر

طريقة العمل: . 1. من برنامجك ، تستورد الوحدتين النمطية ، BalloonTooltip و basBalloonTooltip ، من البرنامج BalloonToolTipSample.mdb ، واذا اردت ان تعمل نسخ ولصق للوحدتين النمطية ، تأكد بأنك تلصق كل وحدة نمطية في مكانها الصحيح : basBalloonTooltip في Module BalloonTooltip في Class Module 2. تشغل برنامج اللي في رابط مشاركتي اعلاه : BalloonToolTipSample.mdb ، ثم تضع النص اللي تريده ، 3. اختار احد الاختيارات ، 4. جربه ، وشوف نتيجته ، 5. ولما تختار من رقم 3 ، انقر على الرقم 5 حتى يعطينا البرنامج الكود الذي نستعمله ، 6. ننسخ الكود في الذاكرة ، ثم نلصقه في برنامجنا : Private Sub cmd_Update_Click() ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning End Sub . . وانواع الايقونات هي : btNone btInformation btWarning btCritical . ونستطيع التوسع ، وجعل بيانات معينة تظهر ، مثل: . والذي عملناه بهذا الكود : ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning . وهناك كمية معينة من البيانات التي ممكن اظهارها ، وإلا ، فلن يظهر إلا الكم المسموح به فقط 🙂 . الى هنا وينتهي العمل . ---------------------------------------------------------------- اذا عملنا ايقونه خاصه لبرنامجنا ، انا عملت حرف J باللون الازرق : . ومن اعدادات البرنامج ، نختار صورة الايقونه للبرنامج : . فنلاحظ انه تظهر في اعلى يسار الشاشة : . وكذلك ستظهر الايقونه مع الرسالة : . جعفر 1191.222.zip