sandanet

@حسين العربى تفضل أخي حسين الارشيف.zip

أخي حسين الحمد لله أولاً وآخراً هو صاحب الفضل في كل شيء فهو الذي سخر لك من يساعدك ويعاونك هذا ان دل على شيء انما يدل على حسن خلقك وطيبة قلبك وما انا الا أداة صغيرة سخرها الله لك ولباقي الأخوة فالحمد لله على ما اعطانا من فضله أخي الكريم حسين اعتذر منك بشدة عن نسياني لموضوع ادراج مسار الصور في النموذج الفرعي لكني سأحاول فيه ان شاء الله تحياتي

عندي اوفيس 2003 و 2007 والجهاز مايتحمل اوفس آخر لكن اتمنى ان ترفق صورة من واجهات البرنامج تحياتي

الشكر لله أخي ابا جودي فمانحن الا تلامذة صغار امامكم .. نسأل الله ان يزيدنا وإياكم من خزائن علمه ورحمته تحياتي لي سؤال بسيط وهو خارج الموضوع .. كيف اضيف توقيع في مشاركاتي؟

اعتقد انه تمت الاجابة على هذه الاشكالية .. ارجو منك بعد التأكد مشاركة الملف مع الاخوة الذين يريدون الاطلاع على المثال تحياتي

تفضل أخي ابا جودي اتمنى ان يكون تعديلي مناسب لك .. طبعاً عند اخذ اكثر من صورة فانه يلزمك دالة تسمية عشوائية لكل صورة .. طبعا انا وضعت دالة تعطيك رقم عشوائي للصورة بالاضافة الى كود الموظف الذي سيكون في بداية تسمية الصورة ليكون بهذا الشكل 1_15.png انظر المرفق تحياتي test scan.zip

اخي الكريم ابا جودي لقد اطلعت على برنامجك الرائع لكن سؤالي هو هل تريد عمل لوب لأخذ اكثر من صورة للموظف الواحد؟

أخي الكريم تم تطبيق الكود هنا في هذه المشاركة https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/ يمكنك تجربة البرنامج نعم استاذي الكريم يمكن ذلك تابع هذا الموضوع https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/?page=2#comment-491907

@حسين العربى تفضل أخي حسين اتمنى ان يكون هو المطلوب .. لقد قمت باحضار سكانر الى المنزل لخاطر برنامجك ملاحظة: لاتنسخ كامل اكواد الصفحة فقد قمت بحذف كود لزر أمر خاص بالفورم الرئيسي لآنه سبب لي مشكلة فقلت خلي استغني عنه .. على العموم انت يمكنك اخذ التعديل الذي قمت به فقط على دالة GetScan ووضعه لديك وبإذن الله أمورك تمام بالنسبة لتسمية الصور بعد اخذها من السكانر فقد وضعت دالة توليد ارقام عشوائية لاسماء الصور لكي لا تفكر بتسمية كل صورة (اختصار للوقت والجهد) ساعة ونصف وانا احاول رفع ملفك اول مرة تحصل عندي في التاريخ .. الابلود على وشك الانهيار تحياتي الارشيف.zip

عفواً أخي king5star شنو طبيعة عمل البرنامج؟ وهل لديك منه اصدار يعمل على اوفيس 2007 ام لا؟

اخي حسين اين زر امر اخذ صورة من السكانر في نموذجك الاصلي الذي يحتوي على مسار المجلد؟

أخي الكريم ابا جودي لم افهم المشكلة بشكل واضح لكن إليك كود اخذ صورة من الماسح الضوئي وتخزينه في مكان محدد مسبقاً على الجهاز Public Function GetScan(strFileName As String) As Boolean Dim intRes As Integer Dim dlg As WIA.CommonDialog Dim mgr As WIA.DeviceManager Dim prc As WIA.ImageProcess Dim dev As WIA.Device Dim img As WIA.ImageFile Dim imgFmt As WIA.ImageFile Dim itm As WIA.Item Dim prp As WIA.Property Dim flis As WIA.FilterInfos Dim strFullPath As String Set dlg = New WIA.CommonDialog Set mgr = New WIA.DeviceManager Set dev = dlg.ShowSelectDevice Set itm = dev.Items(1) intRes = 300 itm.Properties("Current Intent") = 4 itm.Properties("Horizontal Resolution") = intRes itm.Properties("Vertical Resolution") = intRes Set img = dlg.ShowTransfer(itm) Set prc = New WIA.ImageProcess Set flis = prc.FilterInfos prc.Filters.Add flis("Convert").FilterID prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG Set imgFmt = prc.Apply(img) 'imgFmt.SaveFile "C:\test.png" ومن ثم تحت زر امر سكان ضع الكود التالي Dim x, i x = 0 For i = 1 To Nz(Me.Text1, 1) call GetScan x = x + i Next i MsgBox "تمت عملية السكان بنجاح" حيث ان Text1 هو مربع نص غير منتضم في النموذج يتم تحديد عدد مرات اخذ سكان من خلاله تحياتي

اخي حسن برنامجك غير واضح لي لا اعرف كيفية اضافة بيانات جديدة او التعديل على بيانات موجودة وعمل سكان ولا ارى مكان كود عمل السكان الذي زودتك به في برنامجك!!

جميل جدا .. بالنسبة لموضوع سحب اكثر من صورة دفعة واحدة من السكانر فيكفي انك تعمل لوب "حلقة تكرارية" لكود السكانر يتم اخذ قيمة الحلقة التكرارية من مربع نص في النموذج حيث يقوم المستخدم بوضع عدد مرات عملية السكان التي يريد عملها على حسب عدد الصور لديه تحياتي

اخي حسين ارجو ان ترفق اخر تعديل قمت به او قم بوضع الأمر Me.pate \ test.png بدلاً من "c:\test.png

اخي الفاضل حسين سأحاول تطبيقه على مثالك غداً بإذن الله لاني حالياً اعمل على ملف احد الاخوة الافاضل في هذا المنتدى .. بالنسبة للكود لو دققت النظر في الاسطر الاخيرة منه لوجدت هذا الامر imgFmt.SaveFile "c:\test.png" بامكانك استبداله بأمر حفظ الملف الى اي مكان انت تحدده .. سأحاول تنفيذه غداً ان شاء الله بالنسبة لـ "جلب مسار الصوره الي النموذج الفرعي المرتبط ببيانات الموظف" فهذه ليست بالمشكلة الكبيرة لانه يمكنك تخزين المسار في متغير واخذ قيمته الى النموذج الفرعي حالياً لا أملك جهاز سكانر للتجربة في المنزل لكن يمكنك تجربة الملف المرفق التجريبي لكود السكانر واخباري بالنتيجة كود اخذ صورة من السكانر.zip

أخي عيسى هل تقصد عمل تصفية بناءاً على الاختيارات الموجودة في النموذج؟

اخي حسين الكود الذي ارفقته لك يفي بالغرض كل ماعليك فعله هو اضافة حلقة تكرارية لتحدد عدد مرات عمل السكانر من خلال مربع نص في النموذج

اخي حسين هذا كود السحب من السكانر Public Function GetScan() Dim intRes As Integer Dim dlg As WIA.CommonDialog Dim mgr As WIA.DeviceManager Dim prc As WIA.ImageProcess Dim dev As WIA.Device Dim img As WIA.ImageFile Dim imgFmt As WIA.ImageFile Dim itm As WIA.Item Dim prp As WIA.Property Dim flis As WIA.FilterInfos Set dlg = New WIA.CommonDialog Set mgr = New WIA.DeviceManager Set dev = dlg.ShowSelectDevice Set itm = dev.Items(1) intRes = 300 itm.Properties("Current Intent") = 4 itm.Properties("Horizontal Resolution") = intRes itm.Properties("Vertical Resolution") = intRes Set img = dlg.ShowTransfer(itm) Set prc = New WIA.ImageProcess Set flis = prc.FilterInfos prc.Filters.Add flis("Convert").FilterID prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG Set imgFmt = prc.Apply(img) imgFmt.SaveFile "c:\test.png" End Function Private Sub Command1_Click() On Error Resume Next Call GetScan End Sub

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

هذا مثال في البحث للأخ منتصر الانسي ارجو ان تستفادوا منه بحث.rar

اخي الفالح غير اسماء الجداول الى الاحرف الانجليزية مع اسماء الحقول كذلك في القاعدة الاصلية ومن ثم اعمل استيراد تحياتي

بارك الله فيك أخي المشرف صالح .. هذا بالضبط ماكنا نبحث عنه

ارجو تحويله لصيغة 2003 او 2007 وشكراً ارجو تحويله ايضاً واسف على ازعاجك بذلك تحياتي