اذهب الي المحتوي
أوفيسنا

سحب صورة من الاسكنر بسطر واحد من الكود


رمهان

الردود الموصى بها

ايش الحلاوة هذي ! والله خجلتنا ونحن لم نقدم مايستحق هذا الاطراء والهدية القيمة !

سأطبعها واضع لها اطار وستكون من اغلى الهدايا لانها مفاجأه والله اخ بكري . بعض الاعضاء لا يرجع لك حتى لو بان الحل نجح .

اقدم لك شكري وخالص تحياتي

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

مرحبا بك اخي جعفر !! شفت كيف حظي مع اعضاء مميزين !! 

بس انا والله ودي تحت النخل !! في الظل واكل تمرا او رطبا !! 

تحياتي

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

تستاهل أخي رمهان كل خير ..

وصدقني كل كلمة كتبتها لك .. أعنيها تماماً ..

فقد كنت نعم المعلم العارف ...

لديك من الصبر في العطاء الكثير نسأل الله أن يعظم أجرك ويرفع شأنك ..

ونحن لا نملك إلا نقدر لك ذلك وأن نشكرك .. شكراً جزيلاً ..

بارك الله فيك أخي رمهان ..

رابط هذا التعليق
شارك

  • 3 months later...

السلام عليكم

جربت الكود عندي ولكنه لا يعمل لدي بالشكل الصحيح مع العلم بأنني اعمل علي اوفيس 2003واحيانا اوفيس 2000

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

مع العلم بأن الموظف له اكثر من مستند

 

MM.rar

رابط هذا التعليق
شارك

  • 2 months later...

ارجو من احبائي وضع الكود في مثال خارجي حيث انني حاولت تنفيذه ولم استطع مع العلم انني استخدم اوفيس 2003

وتقبلوا تحياتي

 

تم تعديل بواسطه محمود _ المصري
رابط هذا التعليق
شارك

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

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

ولكم مني جزيل الشكر والتقدير 

 

تم تعديل بواسطه محمود _ المصري
رابط هذا التعليق
شارك

السلام عليكم اخي العزيز رمهان هل من الممكن إضافة هذا الكود في قاعدة بيانات عندي لو وافقت ارفقتها لك هنا شكرا لك مقدما

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

ماشاء الله اسم على مسمى

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

بالتوفيق

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

شكرا جزيلاً وجزاك الله خيرا ً عن كل أعمالك

 

وجزيتم بالمثل واكثر استاذ علي ! والعفو لسا شايف مرورك الكريم !

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

اخي العزيز

شكرا لك على سرعة الإجابة وطيب الخلق والأخلاق

  البرنامج هو نتيجة لمساعدة عضو في المنتدى ولا مانع من الاستفادة منه لكل الأعضاء

موجود بالمرفقات

شكرا لك

 

 

 

 

 

 

 

 

 

 

 

 

 

Dat.rar

تم تعديل بواسطه قمة الاخلاق
رابط هذا التعليق
شارك

اخي العزيز

شكرا لك على سرعة الإجابة وطيب الخلق والأخلاق

  البرنامج هو نتيجة لمساعدة عضو في المنتدى ولا مانع من الاستفادة منه لكل الأعضاء

موجود بالمرفقات

شكرا لك

Dat.rar

اخي الكريم

ارجو توضيح موضع سحب من الاسكنر ! والية السحب كيف ستتم ! اشرح كيف خطوات السحب وكيفية الحفظ !

رابط هذا التعليق
شارك

السلام عليكم

اخي الفاضل

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

2015-10-11_222750.jpg

رابط هذا التعليق
شارك

تمام اخي الكريم

طريقتك الان في حفظ الصورة هي حفظها داخل قاعدة البيانات وعن طريق حقل من نوع مرفق ! هذه الطريقة تجعل قاعدة البيانات تتضخم عند كثرة الصور داخلها !

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

هنا لا تتم تخزين الصور داخل القاعدة وعليك عند نقل القاعدة الى جهاز اخر تنقل مجلد الصور معها وفي الجهاز الاخر !

فهمت ؟ فاي الطرق تريد ؟ 

بالتوفيق

رابط هذا التعليق
شارك

السلام عليكم

اعتقد الأفضل ان تكون في مجلد منفصل

طلب صغير

هل من الممكن ان اراسلك خاص لو سمحت

 

صحيح الافضل في مجلد منفصل !

ويمكن تواصلك على الخاص او على الايميل الذي بالتوقيع ويشرفني ذلك !

رابط هذا التعليق
شارك

  • 3 weeks later...

اشكرك استاذ رمهان

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

رابط هذا التعليق
شارك

  • 3 weeks later...

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

والمسألة ماعليكم الا لصق الكود خلف زر امر ويكون الويندوز من الاصدار 7 واحدث ولن يحصل مشكلة باذن الله والله اعلم !

تحياتي

رابط هذا التعليق
شارك

  • 3 years later...

يجب تعريف المتغير img والا ستظهر رسالة خطأ

Dim img As Object

قبل السطر الاول بحيث يصبح هكذا..

Dim img As Object
Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ÇÏÎá ÇÓã ÇáÕæÑÉ") & ".jpg")

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information