فيديو كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس

[عبد الفتاح كيرة]

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
باستخدام
دالة dateserial
دالة mod
حلقة التكرار for...next
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing

الكود
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo 1
Dim i As Integer

For i = 1 To 31
Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd")

Next i

For i = 1 To 30
Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 29
Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd")
Next i
Dim ss As Integer
ss = [Forms]![mf1]![mmm] Mod 4
Me.f29.Visible = ss = 0

For i = 1 To 31
Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd")
Next i
For i = 1 To 30
Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 30
Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd")
Next i

For i = 1 To 31
Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd")
Next i
1:
End Subالفيديو
https://www.youtube.com/watch?v=xwpO5KD-8wc

تم تعديل نوفمبر 5, 2016 بواسطه عبد الفتاح كيرة

[محمد ايمن]

بسم الله ما شاء الله

مثال رائع بكل معنى الكلمة

جزاك الله كل خير على ما تقدمه يا استاذنا

[عبد الفتاح كيرة]

14 ساعات مضت, محمد ايمن said:

بسم الله ما شاء الله

مثال رائع بكل معنى الكلمة

جزاك الله كل خير على ما تقدمه يا استاذنا

الله يبارك فيك أستاذ محمد أيمن

[الحلبي]

الاستاد / عبد الفتاح  حياك الله

الله الله عليك يااستاد زادك الله من علمه ونفعك به

منتدانا ملئ بالخبرات اجدك كل مدة تتحفنا بتحفة دهبية 

انت من الثروة الاكسيسية

كل احترام وتقدير لك

[عبد الفتاح كيرة]

أشكرك جدا أخى حلبى

وفقك الله لكل خير