صور الطلبة

[الخضر]

بسم الله الرحمن الرحيم

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

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

1974.rar

[عادل حنفي]

السلام عليكم

اخي الفاضل

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

ارجو ان يكون المطلوب

جرب الملف و اخبرني النتيجة

تحياتي

sss.rar

[عادل حنفي]

وهذا تعديل بسيط اخر علي الملف

sss1.rar

تم تعديل أبريل 17, 2009 بواسطه aah_aah2008

[الشيباني1]

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

[عادل حنفي]

السلام عليكم

اخي الخضر

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

او البيانات الخاصة بالطالب

و عدة تعديلات اخري

اخي tofimoon4

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

و بالنسبة للشرح لن ابخل ابدا في شرح اي شئ و لكن لا يمكن الشرح المفتوح لعمل ما

لصعوبة ذلك لذا يجب فتح العمل و قرائة اكواده و السؤال يكون محدد في الجزء الغير مفهوم

و لا اقصد هنا ان يكون سؤال فقط فقد يكون عدة اسئله و لكنها تساعدني في الرد بما يفيدك

و بالنسبة لكود اظهار الصوره

يجب اولا ان تدرج image1 داخل الفورم و تدرج CommandButton1 و يكون الكود التالي

الذي يعمل به ال CommandButton1 كما تدرج TextBox و ليكن اسمه TextBox1

Private Sub CommandButton1_Click()
On Error GoTo err
If TextBox1 <> "" Then
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\pic\" & (TextBox1.Text) & ".jpg")
End If
Exit Sub
err:
Image1.Picture = LoadPicture(None)
MsgBox ("لاتوجد صوره")
End Sub

و الكود معناه انه بالضغط علي الزر سيفتح الملف الذي اسمه Pic في مسار ملف الاكسل المفتوح ويفتح الصوره التي اسمها في الTextBox1 و ان لم يكن هناك بيانات او كانت البانات المتعلقه باسم الصوره غير مضبوطه او اسم الصوره غير موجود بال TextBox1 فستظهر رساله تفيد بانه لا توجد صوره

خالص تحياتي و تقديري

sss2.rar

تم تعديل أبريل 17, 2009 بواسطه aah_aah2008