الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التقاط اكثر من صورة لنفس الموظف وحفظها في مجلد الصور

بدأه Abo_Yossof في 10 أبريل 2010 · 29 رد · 7,669 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخوانى

اقدم لكم اليوم هدية بسيطة

و هى تعديل لمثال للاخت زهرة و هو مثال

التقاط صورة الموظف بالكميرا او بالماسح الضوئي وحفظها في مجلد الصور

الموجود على هذا الرابط

/index.php?showtopic=170595

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

اتمنى ان يكون به الفائدة

ملحوظة :-

يوجد بالمرفق ملف يتم اضافته الى الريجسترى ( اضغط ضغطا مزدوجا عليه ثم موافق )

بعد ذلك ستجد ان قائمة الزر الايمن لملفات ocx ,dll قد اضيف اليها خيارين جديدين ( register , unregister )

لتسجيل الاداة بكل بساطة .

multimage-archive.rar

9

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#2

اخى العزيز الغالى

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

المثال رائع واكثر من ذلك

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

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

واسمحوا ان اناديكم بدون ألقاب لإن الالفه ترفع الكلفه

يوسف احمد - زهره - ايهاب عثمان - مصلح الحريصي - همام ابوعرقوب - اكسيرالحياة - محمد فؤاد تركي -رضا عقيل - محمد ندا - أحمد مبارك الحيقي - محمد وليد علوش- عمانى-روان- فيصل الحربى - احمد الحربى-اشرف خليل - سمير بعلبكى-فهد الدوسرى - عبدالهادي الألمعي -ابن مسقط- خضر ترزي-محمد طاهر-ابوحمود- biskra - nababeer- moh samer ali- وكل المشرفين القدامى والحاليين وكل الاعضاء

واعتذر لكل من لم تساعدنى ذاكرتى لتذكر اسمه

واقول لكم جميعا

والله انى احبكم فى الله من غير سابق معرفه بكم

ولكن تنير طريقنا اليكم اعمالكم

فمن فى هذه الايام نقول انه مثلكم

تساعدوننا واعتبرتمونا اخوه لكم

فزادنا ذلك شرفنا ونتمنى ان نحذو حذوكم

اننا مثلكم نعشق مساعده الاخرين ولكن ليس لدينا علمكم

فنتتبع خطاكم ونتلهف على امثلتكم

والله لدى كثير بداخلى نحوكم

ولكنى اكتفى ها هنا بعد ان تحدث قلبى لكم

واشهد على ذلك الله ربى وربكم

رضى الله عنى وعنكم وجمعنا فى دار الخلد مع نبيكم ( صلى الله عليه وسلم )

واخر دعوانا ان الحمد لله رب العالمين

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

تم تعديل هذه المشاركة بواسطة foxman2wy في 10 أبريل 2010 في 03:05

4

سبحان الله وبحمده سبحان الله العظيم .. سبحان الله . الحمد لله . لا اله الا الله . الله اكبر .. استغفر الله . استغفر الله . استغفر الله

يارب احمى دينى وبلدى من كيد الاعداء والخائنين بحبك يا مصر بحبك يا مصر بحبك يا مصر

 


 


3.gif

#3

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

أخي أبو يوسف ، الله يخليلنا ياك ويحفظك ويديمك يا رب

والله أنت أكثر من أخ عزيز على قلوبنا ، بارك الله فيك ، وجزاك الله كل خير ، عمل رائع . أسأل الله أن يجعله في ميزان حسناتك يوم القيامة . إلى الأمام إن شاء الله تعالى

تقبل فائق إحترامي وإخلاصي لشخصكم الكريم . +1

أخي foxman2ways والله إني لأشكرك من كل قلبي على المحبة ، أحبك الله الذي أحببتنا من أجله +1

اقتباس
والله انى احبكم فى الله من غير سابق معرفه بكم

ولكن تنير طريقنا اليكم اعمالكم

فمن فى هذه الايام نقول انه مثلكم

تساعدوننا واعتبرتمونا اخوه لكم

فزادنا ذلك شرفنا ونتمنى ان نحذو حذوكم

اننا مثلكم نعشق مساعده الاخرين ولكن ليس لدينا علمكم

فنتتبع خطاكم ونتلهف على امثلتكم

والله لدى كثير بداخلى نحوكم

ولكنى اكتفى ها هنا بعد ان تحدث قلبى لكم

واشهد على ذلك الله ربى وربكم

رضى الله عنى وعنكم وجمعنا فى دار الخلد مع نبيكم ( صلى الله عليه وسلم )

واخر دعوانا ان الحمد لله رب العالمين

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

بارك الله فيك ، وجمعنا وإياكم في الفردوس الأعلى إن شاء الله تعالى .

تم تعديل هذه المشاركة بواسطة hamidymom في 10 أبريل 2010 في 03:16

2

post-12787-12741339659298.jpg

ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم

تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .

#4

اخي الفاضل : ابو يوسف

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

ما شاء الله تبارك الله

عمل اكثر من رائع

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

+1

كما نشكر اخونا foxman ونقول له

اللهم أدم الألفة بين قلوبنا جميعا

بالتوفيق لكم جميعا

3
#5

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

والشكر موصول للأستاذة الفاضلة أم عهود بارك الله بها وجزاها الله كل خير على كل ما قدمته لنا ...+1

أخي الكريم foxmane بارك الله بك وجزاك الله كل خير وأحبك الله الذي أحببتنا فيه ...ولك مني ايضا +1 ...

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

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

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

أحوكم أبو عدنان ..

تم تعديل هذه المشاركة بواسطة moh samer ali في 10 أبريل 2010 في 07:56

2
27169617.gif
#6

أخوانى الاعزاء

foxman2ways

محمد وليد

أم عهود

أبو عدنان

كلماتى لا تسعفنى على الرد على

كلماتكم الرائعة و مجاملاتكم الرقيقة

جمعنا الله و اياكم و جميع الاخوة الافاضل فى جنته

فالكل لا يبغى الا وجه الله

و لكم منى جميعا +1

2

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#7
mrnooo2000 كتب:

أخوانى الاعزاء

foxman2ways

محمد وليد

أم عهود

أبو عدنان

كلماتى لا تسعفنى على الرد على

كلماتكم الرائعة و مجاملاتكم الرقيقة

جمعنا الله و اياكم و جميع الاخوة الافاضل فى جنته

فالكل لا يبغى الا وجه الله

و لكم منى جميعا +1

هذا الشعور ليس غريب عليك أخي الحبيب أبو يوسف بارك الله بك ..

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

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

تقبلوا مني جميعا مزيدا من الاحترام والتقدير ..

تم تعديل هذه المشاركة بواسطة moh samer ali في 10 أبريل 2010 في 09:54

27169617.gif
#8

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

بارك الله فيكم أساتذتنا الأفاضل

** رجاءً ..

ـ عند فتح التقرير ولا توجد صورة .. فإنه يظهر رسالة مفادها إنه لا يوجد صورة بالمجلد archive.. فهل من الممكن تفادى هذه الرسالة..

ـ وإذا أردنا إلغاء بيان موظف له صورة فهل من الممكن إلغاء الصورة كذلك أو تحويلها إلى مجلد أخر..

بارك الله فيكم ولكم جزيل الشكر..

اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين

#9

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

الله يعطيك الصحة والعافيه

وفقك الله

اتق الله حيث ماكنت

#10
omar19-3 كتب:

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

بارك الله فيكم أساتذتنا الأفاضل

** رجاءً ..

ـ عند فتح التقرير ولا توجد صورة .. فإنه يظهر رسالة مفادها إنه لا يوجد صورة بالمجلد archive.. فهل من الممكن تفادى هذه الرسالة..

ـ وإذا أردنا إلغاء بيان موظف له صورة فهل من الممكن إلغاء الصورة كذلك أو تحويلها إلى مجلد أخر..

بارك الله فيكم ولكم جزيل الشكر..

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

تفضل اخى

فى المرفق ما طلبت

مع امكانية

حذف او فتح او طباعة كل صورة على حده

at_aziz كتب:

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

الله يعطيك الصحة والعافيه

وفقك الله

و لك مثله أخى

archive.rar

تم تعديل هذه المشاركة بواسطة mrnooo2000 في 13 أبريل 2010 في 16:42

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#11

شكرا لك أخى Mrnooo2000 وزادك الله علما ..

ـ لقد تم حل مشكلة حذف الصورة إذا حذف السجل ..

ـ لكن فى حال كان السجل اساساً بلا صورة (عند فتح التقرير ) .. هل يمكن تفادى الرسالة التى تظهر كما بالصورة التالية ...

post-79899-12714357155529_thumb.jpg

اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين

#12

اخى

المرفق الاخير فى المشاركة رقم 10به ما تريد

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#13

مشكور اخي على التعديلات الي قمت فيها

الصراحه اني لم استطع على حلها ،

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

وايضا عزيزي هناك خطا اخر ، اثناء عملية البحث ، يجد السجل لو كان موجودا ولكنه لا يظهر الصور الخاصه به

ارجو الرد بسرعه

لاني والله عمل على بناء قاعدة بيانات مطلوبه مني

وشكرا

مشكور اخي على التعديلات الي قمت فيها

الصراحه اني لم استطع على حلها ،

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

وايضا عزيزي هناك خطا اخر ، اثناء عملية البحث ، يجد السجل لو كان موجودا ولكنه لا يظهر الصور الخاصه به

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

لو ممكن مرفق يكون فيه التعديلت الي قمت بها على مثال الاخت زهره ، بدون ان ياخد اكتر من صوره ، يكفي صوره واحده

اسف اطلت عليك ، لكن ايضا عندما احذف سجل الترقيم التلقائي يعطيني رقم بعد المحذوف ولا يكمل 1.2.3.4.5 وهكذا

ارجو الرد بسرعه

لاني والله عمل على بناء قاعدة بيانات مطلوبه مني

وشكرا

post-99629-12734754870589_thumb.jpg

سبحان الله وبحمده سبحان الله العظيم

سبحان الله . الحمد لله . لا اله الا الله . الله اكبر

استغفر الله . استغفر الله . استغفر الله

#14

بارك الله فيك وجزاك الله خير اخي الفاضل ابا يوسف

وفقك الله ونفع بعلمك

وكل عام وانت بخير

خي ابو يوسف سلمك الله

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

لكن اخي حدثت معي مشكله

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

المشكله اني لما ادخل على الصور من الاجهزه الاخرة المرتبطه بالشبكه ماتظهر الصور ويقوم البرنامج وبنشي مجلد جديد للصور بجنب الواجهه

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

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

وبحيث لو اضفت صوره من اي جهاز تحفظ في الجهاز السيرفر اللي به قاعدة البيانات الجداول ومجلدات الصور

هل بالامكان التعديل على المثال ويكون نظام الارشفه فيه يكون صالح للشبكه

ارجو ان يكون تعبيري واضح اخي

وفقك الله ورعاك

احترامي وتقديري

اتق الله حيث ماكنت

#15

اخي ابو يوسف

ياليت تطلع على الموضوع

وتعطيني رأيك

اتق الله حيث ماكنت

#16

يمكن تغيير امتداد الملف فى الكود

الى امتداد قاعدة بيانات الخلفية

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#17

بارك الله فيك وجزاك الله خير اخي الكريم ابو يوسف

حفظك الله ورعاك

اخي حاول ت اغير في الكود لكن باءت المحاولات في الفشل

اخي اذا تكرمت تتفضل علي وتعدل الكود في المثال الموجود في المشاركة رقم 10

المعذره اخي والله العظيم خبرتي قليله جدا في الاكواد

وفقك الله

احترامي وتقديري

اتق الله حيث ماكنت

#18

تفضل اخى

فقط اضف هذه الدالة الى كود النموذج

و هى تقوم بتحديد مسار قاعدة البيانات

Function GetLinkedDBName(TableName As String)
   Dim db As DAO.Database, Ret
   On Error GoTo DBNameErr
   Set db = CurrentDb()
   Ret = db.TableDefs(TableName).Connect
   GetLinkedDBName = Right(Ret, Len(Ret) - (InStr _
      (1, Ret, "DATABASE=") + 8))
   Exit Function
DBNameErr:
   GetLinkedDBName = 0
End Function

و غير هذا السطر فى الدالة GetImageFolder

و ستجده السطر الثالث فى كود الدالة

DBFullPath = CurrentDb().Name

الى هذا السطر

    DBFullPath = GetLinkedDBName("tblpics")

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#19

بارك الله فيك وجزاك الله خير اخي الفاضل ابو يوسف

الله يعطيك الصحة والعافيه

المعذره اخي اتعبتك معي وثقلت عليك الاسئله

سامحني حفظك الله

اخي طبقت ماذكرته لي على المثال المرفق لكن تظهر لي رساله خطأ

ماني عارف كيف احلها

ارجو اخي اذا تكرمت تشوف المثال المرفق

وفقك الله ورعاك

شكرا لك

archive_2.rar

اتق الله حيث ماكنت

#20

اخى الكريم

على اى ملف قمت بالتطبيق

على المرفق ام على الملف الموجود على الشبكة لديك

ما طبقته انت صحيح و لكن لابد ان تكون الجداول مرتبطة

لان الكود يحتاج الى ذلك

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 24 نوفمبر 2010 في 11:05

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#21

بارك الله فيك وجزاك الله خير اخي الكريم ابا يوسف

الله يعطيك الصحة والعافيه

وفقك الله ورعاك

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

فعلا كان الخطاء من عندي

الان قسمت القاعدة واشتغل الكود تمام

اشكرك اخي الكريم ماقصرت

الله يكتب لك الاجر والمثوبه

احترامي وتقديري

اتق الله حيث ماكنت

#22

الاخت المبدعة زهرة

الاخوة الكرام الاعزاء.... سؤال

هل ممكن التقط الصورة بواسطة هذه الاداة

بمعنى ""مكان الصورة فى النموذج"" بظهر صورة الكاميرا المتحركة او ممكن بدل الكاميرا يكون tv kard عن طريقه اعمل زر التقاط صورة و حفظها فى فولدر معين

ارجو الرد فهذا سؤال محير وشوفته فى العديد من البرامج ولكن لم استطيع ان افعله

شكرا للاطالة

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

#23

الاخت المبدعة زهرة

الاخوة الكرام الاعزاء.... سؤال

هل ممكن التقط الصورة بواسطة هذه الاداة

بمعنى ""مكان الصورة فى النموذج"" بظهر صورة الكاميرا المتحركة او ممكن بدل الكاميرا يكون tv kard عن طريقه اعمل زر التقاط صورة و حفظها فى فولدر معين

ارجو الرد فهذا سؤال محير وشوفته فى العديد من البرامج ولكن لم استطيع ان افعله

شكرا للاطالة

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

مرفق صورة لاداة التقاط صورة و اظن انها فيجوال - شكرا

post-81180-085339300 1293285719_thumb.jp

المرفقات
gogo_webcam_capture_activex_control_development_components___libraries-136631.jpeg
#24

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

فهل من الممكن تعمل لة تحديث لكي يعمل على السكنر الذي يسحب اكثر من وثيقة في وقت واحد اي ما يسمى batch scanner

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

مع جزيل الشكر مع جزيل الشكر[/size]

#25

[quote

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

فهل من الممكن تعمل لة تحديث لكي يعمل على السكنر الذي يسحب اكثر من وثيقة في وقت واحد اي ما يسمى batch scanner

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

مع جزيل الشكر مع جزيل الشكر[/

مواضيع مشابهة