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

[رمهان]

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

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

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

تم تعديل أبريل 20, 2015 بواسطه رمهان

[محمد سلامة]

انت تستاهل كل خير استاذ رمهان

بارة الله فيك

[yms12]

بارك الله في علملك اخي رمهان

[jjafferr]

من قدّك يا رمهان 

 

ومثل ما نحن العمانيين نقول: صرت فوق النخل 

 

 

جعفر

[رمهان]

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

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

تحياتي

تم تعديل أبريل 21, 2015 بواسطه رمهان

[bakry kassala]

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

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

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

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

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

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

[محمود _ المصري]

السلام عليكم

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

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

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

 

MM.rar

[محمود _ المصري]

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

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

 

تم تعديل أكتوبر 4, 2015 بواسطه محمود _ المصري

[علي المصري]

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

 

تم تعديل أكتوبر 4, 2015 بواسطه علي المصري

[محمود _ المصري]

ارجو تطبيق الكود علي مثال 2003  حيث انني لم انجح في تطبيقه ولكم مني جزيل الشكر 

[محمود _ المصري]

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

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

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

 

تم تعديل أكتوبر 9, 2015 بواسطه محمود _ المصري

[قمة الاخلاق]

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

 

 

 

 

 

 

[رمهان]

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

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

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

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

بالتوفيق

تم تعديل أكتوبر 10, 2015 بواسطه رمهان

[رمهان]

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

 

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

تم تعديل أكتوبر 10, 2015 بواسطه رمهان

[قمة الاخلاق]

اخي العزيز

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

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

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

شكرا لك

 

 

 

 

 

 

 

 

 

 

 

 

 

Dat.rar

تم تعديل أكتوبر 10, 2015 بواسطه قمة الاخلاق

[رمهان]

اخي العزيز

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

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

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

شكرا لك

Dat.rar

اخي الكريم

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

[قمة الاخلاق]

السلام عليكم

اخي الفاضل

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

[رمهان]

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

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

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

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

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

بالتوفيق

[قمة الاخلاق]

السلام عليكم

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

طلب صغير

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

 

[رمهان]

السلام عليكم

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

طلب صغير

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

 

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

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

[قمة الاخلاق]

السلام عليكم

 بعد اذن إدارة المنتدى أرسلت لك رسالة خاصة

شكرا لك

 

[عدي الزرفي]

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

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

[almizjaji]

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

[رمهان]

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

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

تحياتي

[SEMO.Pa3x]

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

Dim img As Object

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

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