فديوهات شروح برنامج مايكروسوفت أكسيس - موضوع متجدد

[alfa]

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس
باستخدام
دالة date******
دالة mod
حلقة التكرار for...next
رابط ملف الشرح
https://drive.google.com/file/d/0Bw4...ew?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(Date******([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd")

Next i

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


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

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

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


For i = 1 To 29
Me.Controls("f" & i) = Format(Date******([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(Date******([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd")
Next i
For i = 1 To 30
Me.Controls("ap" & i) = Format(Date******([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd")
Next i

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

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

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

For i = 1 To 31
Me.Controls("og" & i) = Format(Date******([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd")
Next i
1:
End Sub
جارى رفع الفيديو

[alfa]

الفيديو
https://www.youtube.com/watch?v=xwpO5KD-8wc

[صبحي جمعه]

رائع جزاك الله خيرا

[صبحي جمعه]

رائع رائع رائع

[صبحي جمعه]

رائع رائع رائع رائع

[alfa]

وفقكم الله

[alfa]

وفقكم الله
شكرا لك أخى الفاضل

[اسيل اشرف]

شكرااااااااااااااا لكم علي هذا الموضوع الرائع

[alfa]

المشاركة الأصلية كتبت بواسطة اسيل اشرف

شكرااااااااااااااا لكم علي هذا الموضوع الرائع

بارك الله فيك

[مهـا صبرى]

جزاك الله خيرا

[alfa]

و جزاكم خيرا
بارك الله فيكم

[بسسام]

شكرا على المعلومات المفيدة.

[alfa]

و جزاكم خيرا
بارك الله فيكم

[ilyass]

شكرا لك وجزاك الله خيرا

[alfa]

ممنون لك أستاذ إلياس
بالتوفيق