تعديل في برنامج بيانات الافراد

[عبدالله المجرب]

اتمنى منكم اخواني الكرام ان تساعدوني في تطوير هذا البرنامج (نسخة معدلة حسب احتاجاتي لها في العمل وهي من برنامج الاخ العزيز المايسترو)

ولكم جزيل الشكر والامتنان

Employs v1.1.rar

[طارق محمود]

السلام عليكم

أخي الكريم

أول نقطة

تريد

البحث يكون بتطابق الرقم وليس بتطابق جزء من الرقم

في أوائل الكود iFind()

وبعد سطر

End If

بسطرين ستجد السطر

If (Sheets(MySheets).Cells(F, "B") Like "*" & [D7] & "*") Then

بدله بـ

If Sheets(MySheets).Cells(F, "B") = [D7].Value Then

تم تعديل الكود

ثاني نقطة

و

ثالث نقطة

أنظر المرفق - الزرين الأصفرين

Employs v2.rar

[عبدالله المجرب]

اخي العزيز طارق

اشكرك من كل قلبي على سرعة الاستجابةوهذا هو المطلوب

ولكن لي طلب ( اتمنى ان لا اثقل على حضرتك)

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

وشكراً للمرة الثانية

ابو احمد

[عبدالله المجرب]

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

تم تعديل نوفمبر 29, 2010 بواسطه ولد المجرب

[عبدالله المجرب]

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

ارجوكم اخوان ان تساعدوني في حل هذه المعضلة ((اضافة الخانات)) حيث انه هناك حاجة ماسة لاضافة بيانات اكثر عن الشخص (مثل تاريخ الميلاد والمؤهل العلمي وتاريخ اخر اجازة ونوعها وغيرها من البيانات الهامة )

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