سحب الصور

السلام عليكم ورحمة الله وبركاته

من بعد إذن أستاذي وحبيبي أبو يوسف ومعلمتي زهرة

عزيزي على عيني أنت وطلبك وأنا " مقدرش أنساك " :cool:

تفضل في المرفقات طلبك بإذن الله تعالى :)

zaCaptureWebCamAndScanner.rar

يسلموا ايدك اخي محمد

بس بردو عندك اخطاء انا زبطوا البرنامج كلوا والفضل لله ثم اليك

انا برنامجي والحمدلله ما فيه اخطاء

بس المشكله انه شوف يذهب هباءا لو لم تجد لي اداه غير DBpix2.ocx

لانها تعطي ريزليوشن ضعيف جدا من السكانر او حتى من الصور المخزنه

ارجوك ارجوك

ان تجد لي حلا لهذه الجزئيه وبارك الله فيك وفي الجمييع

ف والله لولاكم لما عرفت انا ابدا بالبرنامج

اخ محمد بالله عليك تساعدني ، والله امس الكهربا كانت مقطوعة ، والوقت ليس ملكي

وشكرا

m2drsh_ansaak كتب:

يسلموا ايدك اخي محمد

بس بردو عندك اخطاء انا زبطوا البرنامج كلوا والفضل لله ثم اليك

انا برنامجي والحمدلله ما فيه اخطاء

بس المشكله انه شوف يذهب هباءا لو لم تجد لي اداه غير DBpix2.ocx

لانها تعطي ريزليوشن ضعيف جدا من السكانر او حتى من الصور المخزنه

ارجوك ارجوك

ان تجد لي حلا لهذه الجزئيه وبارك الله فيك وفي الجمييع

ف والله لولاكم لما عرفت انا ابدا بالبرنامج

اخ محمد بالله عليك تساعدني ، والله امس الكهربا كانت مقطوعة ، والوقت ليس ملكي

وشكرا

أولا مشكور أخي الغالي محمد وبارك الله بك على المساعدة ..

أخي الكريم حاول من خصائص الاداة حسب الشكل الموضح المرفق وربما أخي محمد له رأي آخر فانتظر وان شاء الله خير ..

وبالتوفيق ..

شكرا كتير الك اخ محمد سامر علي

الله يبارك فيك يارب

شكراااااااااا شكرا

جزاك الله كل خير

اذا مسموحلي بدي اعطي +1 للاخ moh samer ali

+1 للاخ hamidymom

الله يبارك فيك ويجزيك كل خير أخي أبو عدنان

فعلاً هناك حلّ آخر أخي أبو عدنان ، دقائق وأرفع للأخ السائل الصور بالطريقة الثانية من بعد إذنك أستاذي أبو عدنان .

اقتباس

بس بردو عندك اخطاء انا زبطوا البرنامج كلوا والفضل لله ثم اليك

انا برنامجي والحمدلله ما فيه اخطاء

ولكن أخي " مأدرش أنساك " ما هي الأخطاء التي واجهتك حتى يستفيد منها الآخرون .

اولا ومع احترامي لكل اعضاء ومشرفين المنتدى

انا اوجه الشكر وكل الاحترام لشخصك الكريم اخ محمد haimdmom

ثانيا الخطا انتا فقط تنساه او ما تاخد بالك منو وهو عندما تضغط على زر معاينة ويكون السجل فارغ او ليس به صوره

وحلي البسيط هو كالتالي

Dim stLinkCriteria As String

stLinkCriteria = "[DocID] =" & Me![DocID]

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

If Me.DocID <> "" And Not IsNull(Me.DocID) Then

DoCmd.OpenReport "Report", acViewPreview, , stLinkCriteria, acDialog

Else

MsgBox " عذرا .. لا يوجد مستند للمعاينة : " & " حاول مرة أخرى ", , "مع الإعتذار"

End If

الحل بالجملة الشرطيه ونفس الشيء نضعه لزر الطباعه وشكرا

يمكنك حفظ الصورة واستعراضها بحجمها الأصلي بدلاً من الضغط ،

والضغط كان مستخدما سابقا لتقليل المساحة على الهارد إذا كانت الصور كبيرة ،

لذا أخي من سيئات هذه الخاصية " أقصد الحفظ بالحجم الطبيعي " أنها تأخذ مساحة كبيرة على الهارد ، وأولا وأخيراً الحجم يعود لحسب ال dpi المستخدم عند ال Scan

أنظر طريقة حفظ الصورة بحجمها الطبيعي في الصور التالية

اقتباس

ثانيا الخطا انتا فقط تنساه او ما تاخد بالك منو وهو عندما تضغط على زر معاينة ويكون السجل فارغ او ليس به صوره

أخي يللي حانساك ، عفواً مقدرش أنساك :) وما هي مهمة هذا الكود إذا ؟؟

If Me.EmpPIC <> "" And Not IsNull(Me.EmpPIC) Then
 ExecuteFile GetImageFolder & Me.EmpPIC, OpenFile
Else
    MsgBox "حدد الصورة المراد فتحها أولا "
End If

أنظر إليه ، موجود عند النقر على زر المعاينة للصورة !!

يسلموا كتير اخي محمد طريقه رائعه وممتازه

بالنسبه للخطا الكود صحيح بس مكانه غلط ، هذه الرساله لما تكون عند سجل ولم تحدد صوره

جرب اعمل سجل جديد واضغط على زر المعاينه سيظهرلك الخطا

شكر كتير الك اخي محمد وفرصه سعيده والله اني تعرفت عليك

واكيد هضل اغلبك معي عند اي مشكله :)

+1

تكرم عزيزي ، m2drsh_ansaak

كل يوم تعال :)

مشكور يالغالي ...محمد باشا

جزاك الله خير وبارك الله بك ..

تحياتي ..