ماجدجلال قام بنشر نوفمبر 13, 2019 مشاركة قام بنشر نوفمبر 13, 2019 السلام عليكم و رحمة الله وبركاته استفدت كثيرا من مشاركات الاخوة الاعزاء قبلي و لكن احيانا اعجز عن تعديل الكود ليناسب عملي , ارجو منكم المساعدة ,,, في الملف المرفق , المستخدم للبرنامج يشكو من الاخطاء التي تحدث عند كتابة اسماء الصور الي معالج الماسح الضوئي , و كذلك المسار لمجلد الحفظ ( حيث ان طلبة يتم حفظ الوثائق علي شكل صور JPEG في مجلد عادي ) ,, فهل نستطيع ان نجعل الكود يقوم تلقائيا بنسخ اسم الصور من النموذج العلوي الي نموذج معالح الماسح الضوئي ,,, وجدت في المنتدي مشاركة للاستاذ احمد زمان , و لكني عجزت عن تعديل الكود ليناسب المستخدم و يلبي طلبة , كما انني وجدت كود للاستاذ المبدع ابو هادي في قسم الاكسيس لكنة لم يعمل في الاكسيل ارجو المساعدة ولكم جزيل الشكر majeed.xls 1 رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 15, 2019 الكاتب مشاركة قام بنشر نوفمبر 15, 2019 السلام عليكم ورحمة الله وبركاته هذة وصلة لنفس الموضوع ولكن في قسم الاكسيس , و هو للاستاذ المبدع ابوهادي , و البرنامج يعمل بشكل صحيح 100% و اذا كانت الاكواد تعمل في الاكسيس فاعتقد اننا يمكنها ان تعمل في الاكسيل حاولت نقلها و لكني فشلت ,,, الملف المرفق به برنامج اكسيس للتعامل مع الماسح الضوئي Scanner_20050524.rar رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 17, 2019 الكاتب مشاركة قام بنشر نوفمبر 17, 2019 السلام عليكم ورحمة الله وبركاته وضعت الكود السابقة في برنامج الاكسيل و ظهر لي خطاء في السطر التالي Ret = TWAIN_AcquireToFilename(Me.Hwnd, PictureFile) بحث عنه في جوجل و لم اجد حلا حاولت حذفت كلمة ME فقد تكون غير مناسبة ل VBA الاكسيل و لم يتم حل المشكلة و ما زلت ابحث , وان شاء الله نجد حلا , ومن يستطيع من الاساتذة المساعدة فارجوكم كرما ان يساعدنا و شكرا لكم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 17, 2019 مشاركة قام بنشر نوفمبر 17, 2019 (معدل) السلام عليكم جرب المرفق Cy_Scan_Ali.xlsm تم تعديل نوفمبر 18, 2019 بواسطه الـعيدروس 1 رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 18, 2019 الكاتب مشاركة قام بنشر نوفمبر 18, 2019 السلام عليكم ورحمة الله وبركاتة شكرا لك استاذ / العيدروس الف شكرا وجهتني مشكلة بسيط ,,, الصورة غير واضحة جدا هل من الممكن اضافة زر لتحديد نوع المساح الضوئي ؟؟؟؟؟ في حالة وجود اكثر من ماسح ضوئي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 18, 2019 مشاركة قام بنشر نوفمبر 18, 2019 هل لديك اكثر من جهاز ماسح ضوئي على نفس الجهاز جرب اشبك واحد فقط واتمنى ترفق صورة من تجربة الكود رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 18, 2019 الكاتب مشاركة قام بنشر نوفمبر 18, 2019 (معدل) بارك الله فيك استاذ العيدروس ... لدي واحد فقط و لكن استعرت من صديق لي , لعل عدم وضوح الصورة هو من الماسح الضوئي ولكن عند تجرب الكود التالي كانت الصورة واضحة جدا On Error GoTo err_command30_cilck Dim stappname As String stappname = "C:\WINDOWS\System32\wiaacmgr.exe" Call Shell(stappname, 1) exit_command30_click: Exit Sub err_command30_cilck: MsgBox Err.Description Resume exit_command30_click فهل من الممكن تطبيق الكود السابق علي نفس النموذج الذي صممته , يعني بنفس الفكرة وهي ادخال رقم الصورة وعدد المرفقات و مسار الحفظ ,,, اي ان اسم الصورة يوضع فقط في الفورم مع بقية البيانات الاخري ( عدد المرفقات و المسار ) و الماسح الضوئي يقوم بالحفظ و اخذ البيانات من الفورم وان شاء الله بارفق لك مثلا للصورتين و ربنا يسعدك و يوفقك ,,,, تم تعديل نوفمبر 18, 2019 بواسطه ماجدجلال اضافة معلومة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 18, 2019 مشاركة قام بنشر نوفمبر 18, 2019 الكود الذي لديك لم اعمل عليه من سابق اجهل استخدامه جرب هذا التعديل او استبدل هذه الاسطر بعد تعديلها بالملف الذي لديك With WS_A.Items(1) .Properties("6146").Value = 1 '4 .Properties("6147").Value = 200 '100 .Properties("6148").Value = 200 '100 .Properties("6149").Value = 0 .Properties("6150").Value = 0 .Properties("6151").Value = 830 .Properties("6152").Value = 1167 .Properties("6155").Value = 0 ' Set W_A = .Transfer(wiaFormatJPEG) End With Cy_Scan_Ali1.xlsm رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 18, 2019 الكاتب مشاركة قام بنشر نوفمبر 18, 2019 شكرا لك اخي علي تحملي , و سعة صدرك ظهر خطاء في السطر التالي Set W_A = WS_A.Items(1).Transfer(WIA.FormatID.wiaFormatBMP) و ذلك بعد تحميل الملف الاخير ,, ايضا بعد اضافة التعديل الاخير في الكود ( في مشاركتك الاخيرة ) ظهرت رسالة خطاء بالعنص التالي Object required و شكرا لك ,,, رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 18, 2019 مشاركة قام بنشر نوفمبر 18, 2019 التعديل الاخير فياي سطر ظهر الخطأ Object required رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 19, 2019 الكاتب مشاركة قام بنشر نوفمبر 19, 2019 السلام عليكم ورحمة الله هذة الصورة مؤخوذة من الكود في ملف الاكسيل الذي يحمل الاسم majeed في المشاركة الاولي رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 19, 2019 الكاتب مشاركة قام بنشر نوفمبر 19, 2019 وهذة نفس الصورة و لكن مؤخوذة من الكود في الملف الذي يحمل الاسم cy_scan_ali الصورة لم يتم رفها الي هنا , دوما تظهر رسالة خطاء ( لم يتم رفع الملف بشكل صحيح ) فوظعتها في ملف الاكسيل الذي فية التعديل في الكود مع رسالة الخطاء التي طلبتها مني استاذ العيدروس ,, ستلاحظ كيف ظهرت الصورة غير واضحة كذلك ابيض و اسود , رغم انها تم نسخها من نفس الجهاز , اشكرك من اعماق قلبي علي مساعدتك لي واذا في تعديل مناسب او حل افضل فانا انتظر Cy_Scan_Ali1.xlsm رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 19, 2019 مشاركة قام بنشر نوفمبر 19, 2019 مانوع الاسكنار الذي تستخدمة والموديل رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 20, 2019 الكاتب مشاركة قام بنشر نوفمبر 20, 2019 مسكم الله بكل الخير استاذي العزيز العيدروس شكرا جزيل لك , مدخلاتك دوما تحسسني ان هناك امل لحل هذة المشكلة , نوع الاسكنر هو HP Deskjet 2050A و نحن في المؤسسة نستخدم هذا الملف في العمل و دوما نسخ الاوراق و قيام المستخدم بادخال اسم الصور و رابط مجلد الحفظ يسبب ارباك و غالبا ينتج عنه اخطاء اكرر شكرا لك و دعواتي لك دوما رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 21, 2019 مشاركة قام بنشر نوفمبر 21, 2019 السلام عليكم الظاهر سهوت عن موضوعك جرب هذا التعديل واتمنى من الاخوة من لدية اسكنار يجرب الكود احتمال الاشكالية تكون في نسخة الويندوز لديك Cy_Scan_Ali_2.xlsm 1 رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر نوفمبر 22, 2019 الكاتب مشاركة قام بنشر نوفمبر 22, 2019 و عليكم السلام ورحمة الله وبركاتة الاستاذ الغالي العيدروس الف الف شكرا علي مساعدتك لي ,, و الف الف شكرا علي روح الطيبة و اخلاقك العالية , فانت الي الان ما زلت معي و تساعدني مع انني احس ان الموضوع قد يكون مستحيل , و ربما يجب ان يكمل العمل بالادخال الايدوي , جربت ملفك الاخير في الاعلي علي جهزين بونيدوز مختلف و كانت النتيجة علي النحو التالي : الاول حصل خطاء و ظهرت رسالة تقول : المعلمة غير صحيحة و وقف الماشر عند السطر التالي .Properties("6148").Value = VerticalResolutionVar و التجربة الثاني علي الجهاز الثاني : حصل خطاء و ظهرت الرسالة التالية : complie error user_defined type not defined ووقف الماشر عند السطر التالي : Dim WD_A As New WIA.CommonDialog لست ادري ماذا افعل اتمني من الاخوان و الزملاء تجربت الملف , و الاستفادة من التجربة للعل الخطاء عندي , و شكرك من اعماق قلبي استاذ العيدروس وبصراحة اتعبتك معي , اذا تراي انه يجب اغلاق الموضوع و رفع الراية البيضاء و انه من المستحيل نجاح الفكرة فلا مانع لدي فانا علي وشك الاستسلام وشكرا لك خاص الف الف شكرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 22, 2019 مشاركة قام بنشر نوفمبر 22, 2019 هون يارجل لامشكلة الا ولها حل مانوع الويندوز الذي لديك 7 او 10 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها