اضافة زر لتحديد صورة المختارة

[alawiz2012]

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

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

انا مبتدئ في الأكسس ،، ياريت تفيدوني ، بحث كثير ومالقيت شرح بالتفصيل ..

وشكراً

[محمدنجار]

::: عليكم السلام اخي الكريم ..

تفضل .. هل هذا طلبك ؟ على اوفيس 2013 . حظا طيبا .

ارفاق صورة الموظف.rar

[alawiz2012]

هكذا اخي الكريم

بحيث اني اذا اضفت عامل جديد اقدر اضيف صورة 

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

 

[محمدنجار]

:::اخي لو ضغطت مرة واحدة على الصورة سوف يظهر لك مربع ازرار ..كما يلي ::

[محمد ايمن]

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

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

المثال التالي يرتبط بالصورة دون تخزينها في قاعدة البيانات

pictest.rar

[alawiz2012]

شكراً على الأمثلة ،، اخواني كما قلت سابقاً انا مجرد مبتدئ ولم عرف كيف افعل ذلك ، حبذا شرح مفصل خطوة بخطوة بكيفية اضيف الزر بوظيفة فقط اضافة الصورة ،، قرأت سابقاً انه من الضروري عمل حقل جديد في نفس الجدول ،،، ارجو منكم مساعدتي وشكراً ^__^

[محمدنجار]

9 ساعات مضت, محمد ايمن said:

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

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

:: نعم اخي الكريم هذا صحيح طريقتي تصلح لاضافة شعار او ماشابه ليظهر في التقارير .... شكرا لك وكل عام وانت بخير .

تم تعديل سبتمبر 13, 2016 بواسطه محمدنجار

[عبد الله قدور]

58 دقائق مضت, alawiz2012 said:

شكراً على الأمثلة ،، اخواني كما قلت سابقاً انا مجرد مبتدئ ولم عرف كيف افعل ذلك ، حبذا شرح مفصل خطوة بخطوة بكيفية اضيف الزر بوظيفة فقط اضافة الصورة ،، قرأت سابقاً انه من الضروري عمل حقل جديد في نفس الجدول ،،، ارجو منكم مساعدتي وشكراً ^__^

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

1- يجب عليك كما قلت اضافة حقل جديد تخزن فيه مسار الصورة وليكون اسمه img

2- في النموذج اضف عنصر التحكم "صورة" لعرض الصورة بداخله كما هو موضح في الصورة

3-بعد اضافة العناصر الى النموذج من خاصية مصدر عنصر التحكم للصورة اكتب اسم الحقل الجديد على هذا الشكل = كما في الصورة

4- اضف زر جديد لاضافة الصورة وضع الكود التالي في حدث عند النقر

 

On Error Resume Next
Kill img
Me.img = ""
Dim FDialog As Office.FileDialog
Dim varfile As Variant
Set FDialog = Application.FileDialog(msoFileDialogFilePicker)
FDialog.AllowMultiSelect = False
FDialog.Title = " من فضلك حدد مكان الصورة "
FDialog.ButtonName = "موافق"
FDialog.Filters.Clear
FDialog.Filters.add "  صـــور مــن نـــوع  JPG  ", "*.JPG"
If FDialog.show = True Then
For Each varfile In FDialog.SelectedItems
Dim newfile, copymydb
newfile = Me.Application.CurrentProject.Path & "\photo\" & Me.code & "-" & Me.namee & ".jpg"
FileCopy varfile, newfile
Me.img = newfile
Next
End If

لاحظ انه في سطر تحديد المسار الجديد للحفظ انه يجب ان يكون هناك مجلد جديد اسمه photo موجود جانب البرنامج مباشرة سيتم تخزين الصورة بداخله باسم جديد ايضا يأخذ الاسم الجديد من مربعي نص منالنموذج هم code - namee  

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

تم تعديل سبتمبر 13, 2016 بواسطه عبد الله قدور

[قلم-الاكسل(عبدالعزيز)]

شكرا لمحمد نجار ومعلومه مفيدة من محمد ايمن وشكرا لعبدالله قدور

[alawiz2012]

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

 

تم تعديل سبتمبر 13, 2016 بواسطه alawiz2012

[عبد الله قدور]

السلام عليكم

اخي الكريم سامحني لم افهم قصدك 

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

 

[alawiz2012]

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

للعلم هذا الملف لصديق لي وانا اساعده 

باسورد الداتا بيز 123456
 

دخول الأدارة admin

123

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

testing.rar

[عبد الله قدور]

السلام عليكم

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

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

[alawiz2012]

11 ساعات مضت, عبد الله قدور said:

السلام عليكم

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

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

شكراً لك اخي الكريم المشكلة كانت باضافة عمود المسار ،، بحيث اني اظهر الجدول واسحب العمود عالشاشه ،، وبالنسبة للحضور والأنصراف اريد فقط انه العاملين الا اضفتهم سابقة كل شخص بصورته تظهر ،،، هل اكرر الخطوات الأ بالأعلى فقط ..؟

[alawiz2012]

ما عرفت شلون اربط بحيث اني اخلي صورة العامل تظهر عندي في الحضور والأنصراف اذا حطيت الأيدي 2 فرضاً تطلع معوماته و معاهم الصورة ..؟!! 

تم تعديل سبتمبر 14, 2016 بواسطه alawiz2012

[alawiz2012]

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

[alawiz2012]

حاولت ولم اعرف .. ممكن مساعدتي في ذلك

[ابو جودي]

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

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

الكود المستخدم فى اضافة اللوجو وعرضه من خصائصة الاتى

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

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

demo.rar