طلب مساعدة في شيت معلمين

[أحمد عربى]

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

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

^{واعتذر عن الاطالة عليكم} 

 

[أحمد عربى]

ارجو الرد من أساتذة المنتدى الأفاضل والأخوة الاعزاء

[أحمد عربى]

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

[الشهابي]

أخي العزيز / أحمد عربي

تم تطبيق فورم الأساتاذ الكبير عبد اللله باقشير على الشيت تبعك

مأخوذ من الموضوع التالي 

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

وهو فورم يصلح لأي ملف معتمداً على عناوين الأعمدة 

 

الشيت.rar

[أحمد عربى]

جزاك الله خيرا اخى / الشهابي على ما قدمته من مساعدة

ولكن اريد التعديل في شكل صفحة الطباعة بحيث يأخذ شكل أخر غير المتاح في الفورم 

[الشهابي]

أخي العزيز / أحمد عربي

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

انظر للموضوع التالي : أيضاً من أعمال أستاذنا الكبير عبد الله باقشير

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

[أ محمد عبد الصمد]

العمل جميل ولكن دائما تظهر رسالة فى " ملف الصور غير موجود " وبعدين لا يدرح صورة للموظف يا ريت يتعدل 

[الشهابي]

أخي العزيز / محمد عبد الصمد 

فعلا تم حذف مجلد الصور 

قلت ربما لا يحتاجه أخينا في ملفه 

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

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

الكود هو : 

Option Explicit
'======================================================
'======================================================
'  kh_SetAddrss متغيرات
' ( اولا : اسم ورقة البيانات (افتراضي
' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي
'''''''''''''''''''''''''''''''''''''''''''''''''
' ( ثالثا : عمود التسلسل  (اختياري
'   اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم
'   تلقائيا في عمود معين سجل عنوان راس  العمود
'======================================================
'======================================================
Sub kh_Show_UFormChang1()
On Error GoTo 1
With UFormChang
    .kh_SetAddrss "ورقة1", "a1:o1"
    .kh_SetPicture "PH", "U1"
    .Show
End With
1:
If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"
On Error GoTo 0
End Sub

 .kh_SetPicture "PH", "U1" 

في الكود السابق اسم المجلد هو (PH) غير اسم المجلد حسب التسمية عندك بس لا تنس أن يكون في نفس مجلد الملف 

وهذا الملف  أرفعه لك مع إضافة مجلد الصور 

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

 

 

الشيت.rar

[أحمد عربى]

اخى الفاضل سأقوم بإذن الله بعمل نموذج للطباعة ورفعة للتعديل عليه

ولكن اريد اضافة للفورم بأن يقوم :

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

2- امكانية التعديل لهؤلاء المعلمين دفعة واحدة وتصديرهم في ملف منفصل لطباعتهم . 

وآسف على الاطالة.

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

[أحمد عربى]

ياريت يكون فيه رد من الأخوة وذلك لعدم خبرتى الكاملة بها

[أحمد عربى]

هل من أحد يرد على طلبى

فأنا لم اتعود على عدم الرد من اخواننا الكرماء بالمنتدى
 

[أحمد عربى]

اخوانى

اسف على الاطالة

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

للرفع

[الشهابي]

أخي العزيز / أحمد عربي

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

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

هذا والله أعلم