وضع صورة للطالب

[ابو حجون]

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

 

مع الشكر الجزيل.

 

مدرسة.zip

[jjafferr]

وعليكم السلام اخي 

 

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

 

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

وتعطي كل صورة رقم الطالب 

 

في المثال ، خلي مجلد الصور وقاعدة البيانات في نفس المجلد (ما يهم وين يكون هالمجلد) ، وشغل البرنامج 

 

هذا هو الكود اللي يجلب الصور ، المرتبطة بكائن الصور في النموذج:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Me.Student_Img.Picture = Application.CurrentProject.Path & "\Studnet_Images\" & Me.na & ".jpg"
    
Exit Sub
err_Form_Current:

    If Err.Number = 2220 Then
        'image not found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

15.School.zip

[ابو الآء]

تسلم الايادى استاذى الكبير 

     

رووعه

بس ياريت اذار للتحكم فى الصوره وتغييرها وحفها ضمن الكود

[ابو حجون]

جميل جدا عاشت ايدك اخ جعفر

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

المهم انها ضبطت .. تسلم

[ابو حجون]

جميل جدا عاشت ايدك اخ جعفر

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

المهم انها ضبطت .. تسلم

[jjafferr]

تسلم الايادى استاذى الكبير 

     

رووعه

بس ياريت اذار للتحكم فى الصوره وتغييرها وحفها ضمن الكود

 

حياك الله أخي ابولآء

انا انسان بسيط واحب البساطة ، المسألة جدا سهلة ، خلي الصورة بالحجم المطلوب ، وبالاسم المطلوب ، وكله عال العال ، وبدون أكسس 

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

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

 

 

جميل جدا عاشت ايدك اخ جعفر

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

المهم انها ضبطت .. تسلم

 

أخي ابو حجون 

نعم ممكن عمل هذا ، ولكنك لم تطلبه ، وانا نفذت بجلدي من الشغل الزائد 

لكن ، لا انصح بهذه الطريقة ، إلا اذا كانت جميع الصور بالحجم الصحيح 

 

 

جعفر

[ابو حجون]

شكرا لك ايها الخبير الجميل ( ردودك رائعة ورائقة) بوركت    

ساعمل على هذا البسيط ليكون برنامج يناسب العمل المنشود منه:

ساضيف عليه:

1- جدول المدرسين مع نماذجه 

2- ساعمل استعلاماتللبحث عن:
أ/ اسم الطالب
ب/ الصف
ج/الناجحون

 

وبانتظار المقترحات والتوجيهات  

[ابو حجون]

شكرا لك ايها الخبير الجميل ( ردودك رائعة ورائقة) بوركت    

ساعمل على هذا البسيط ليكون برنامج يناسب العمل المنشود منه:

ساضيف عليه:

1- جدول المدرسين مع نماذجه 

2- ساعمل استعلامات للبحث عن:
أ/ اسم الطالب
ب/ الصف
ج/الناجحون

 

وبانتظار المقترحات والتوجيهات  

[hussein arby]

وعليكم السلام اخي 

 

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

 

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

وتعطي كل صورة رقم الطالب 

 

في المثال ، خلي مجلد الصور وقاعدة البيانات في نفس المجلد (ما يهم وين يكون هالمجلد) ، وشغل البرنامج 

 

هذا هو الكود اللي يجلب الصور ، المرتبطة بكائن الصور في النموذج:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Me.Student_Img.Picture = Application.CurrentProject.Path & "\Studnet_Images\" & Me.na & ".jpg"
    
Exit Sub
err_Form_Current:

    If Err.Number = 2220 Then
        'image not found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

اخي الفاضل ممكن لو تكرمت وضع المر فق  ليعمل مع 2007 او 2003  بعد اذنك

[jjafferr]

وعليكم السلام أخي حسسين

 

في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز 

 

 

جعفر

[ابو حجون]

اجريت عليه بعض الاضافات الجمالية في التصميم وكذلك اضفت

سجل للمدرسين:

 وهذا رابط تحميله :

 

http://enmaacenter.net/q.zip

[hussein arby]

وعليكم السلام أخي حسسين

 

في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز 

 

 

جعفر

 شكرا لك اخي الفاضل وانا في الانتظار

[yms12]

ونحن في انتظار ابداع اخونا جعفر

[jjafferr]

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

 

ولكم هذا الرابط كما وعدتكم 

http://www.officena.net/ib/index.php?showtopic=60235

 

 

جعفر