الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]اعطاء تسلسل حسب حقول معينة

بدأه halo all في 30 ديسمبر 2008 · 4 رد · 562 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ارجوا اعطائي الكود الذي يساعدني في ترتيب اسماء المنتسبين حسب حقول معينة مثلا لدي تسلسل طباعة لكل منتسب ويبدأ ترتيبهم حسب الاقسام وحسب الشعب وحسب الدرجة الوظيفية اي اول منتسب في اول قسم واول شعبة يأخذ الرقم واحد وثاني منتسب في هذا القسم ونفس الشعبة يأخذ الرقم اثنان وهكذا.....الى مثلا اخر رقم في هذه الشعبة يكون 25 وبعد ذلك يأخذ 26للشعبة الثانية وتستمر الى ان يأخذ 50لهذا القسم فيبدأ 51بالقسم الثاني وهكذا......

انا قد استعملت الدو وايل لأعطاء رقم لكل منتسب بالتسلسل ولكن اريد ترتيب تسلسل للطبع حسب القسم والشعبة والدرجة الوظيفية

#2

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

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

ومن بعدها عليك أن تملأ مسلسل الطباعة بـ Loop

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#3

اخي العزيز

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

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

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

تسلسل طباعة بحيث كل منتسب يعرف تسلسله

Dim i As Integer

i = 1

If rs.State = adStateOpen Then rs.Close

rs.Open "[master]", db, adOpenStatic, adLockPessimistic

Do While Not rs.EOF()

rs![prnt_seq] = i

i = i + 1

rs.Update

rs.MoveNext

Loop

#4

معلش يابني اصل أنا مش من البلد دي .. هو ايه ده اللى 600 ميجا ؟؟؟

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


i = 1
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [master] ORDER BY [القسم] ASC, [الشعبة] ASC, [الدرجة الوظيفية] ASC", db, adOpenStatic, adLockPessimistic
Do While Not rs.EOF()
rs![prnt_seq] = i
i = i + 1
rs.Update
rs.MoveNext
Loop
	Dim i As Integer

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

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#5

اخي المحترم .......... لك جزيل الشكر والامتنان على الاهتمام بالرد على استفساري وخصوصا ان الرد كان صحيحاً 100% واتمنا دائما ان يكون هناك تواصل بيننا

Thank you very much

مواضيع مشابهة