كيفية عمل لوب علي تاريخ الاجازات

بدأه a_salah_hasballa في 14 يوليو 2009 · 2 رد · 666 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#114 يوليو 2009 في 13:52 صاحب الموضوع

عندي استفسار في اضافة الاجازات

عندي تاريخ بداية الاجازة وليكن 1/1/2009 وبتنتهي 5/1/2009 عايز اعمل لوب عشان يضيف 5 صفوف في جدول الاجازات يبتدي من 1/1/2009 لغاية 5/1/2009 دي في حالة لو كان الاجازة فترة لكن لو كان الاجازة يوم واحد 1/1/2009 وبتنتهي 1/1/2009 اريد ايد كيف يتم عمل ذلك في الحالتين سواء كان يوم واحد او فترة

Dim SQL2 As String

If rs2.State = adStateOpen Then rs2.Close

SQL2 = "SELECT * FROM PersonsInOut"

rs2.Open SQL2, db, adOpenStatic, adLockPessimistic

rs2.AddNew

With rs2

![PersonId] = Text2.Text

![shiftDate] = Text4.Text

End With

rs2.Update

حقل ShiftDate هذا هو الحقل اللي بضيف فية التاريخ سواء كان يوم واحد او فترة لو فترة يضاف 5 مرات بتسلسل التاريخ

لكن لو يوم يضاف صف واحد

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

لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية

#214 يوليو 2009 في 14:11

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

استخدم DateDiff للحصول على الفرق بين التاريخين بالأيام ثم ابدأ اللوب بناء على الفرق الذى حصلت عليه

Dim d1, d2 As Date
d1 = #1/1/2009#
d2 = #1/5/2009#
Dim days As Integer
days = DateDiff("d", d1, d2) + 1
Dim i As Integer
For i = 1 To days
'Do Something
Next

ملحوظة: التاريخ فى الكود بصيغة MM/dd/yyyy

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

#314 يوليو 2009 في 17:19

هذا هو الكود بتاع الاضافة كيف عمل الوب فية

Dim SQL2 As String

If rs2.State = adStateOpen Then rs2.Close

SQL2 = "SELECT * FROM PersonsInOut"

rs2.Open SQL2, db, adOpenStatic, adLockPessimistic

rs2.AddNew

With rs2

![PersonId] = Text2.Text

![shiftDate] = Text4.Text

![DefaultTimeIn] = Text10.Text

![TimeIn] = "ÇÌÇÒÉ"

![DefaultTimeOut] = Text12.Text

![TimeOut] = "ÇÌÇÒÉ"

![VacationId] = Text3.Text