اريد عمل جدول للاشهر

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

يمكنك دون عمل جدول باستخدام الدوال التالية

Private Sub Form_Load()
Label1.Caption = Format(Date, "dd/mm/yyyy")
Label2.Caption = Format(Day(Date), "dddd")
Label3.Caption = MonthName(Month(Date))

End Sub

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

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

حيث لدي في العمل اشخاص يقومون بدفع القسط الشهري و هذا طبعا للسهولة البحث عن شخص معين

اي اناني اود ان اظهر هذا كالاتي

اسم الشخص و الشهور من 1 الي 12

و لكني وجدت انه في بعض الاشخاص تبداء اقساطهم من شهر 5 الي 5 السنه التاليه

و هكذا

و لابد من ان تكون هناك جدول لعدد الشهور حتي اعرف من قام بسداد القسط او من لم يسدد

حيث سيظهر هذا في جدول garde1 به اسم الشخص و عدد الشهور من 1 الي 12 سنة 2006

و عند مرور سنة 2006 يقوم بتغير بتغير اسم الجدول من 2006 الي 2007 و يظهر الجدول 2007 فارغ بينما يمكنني الاطلاع عليه من خاصية التقارير

ارجو ان يكون قد وصلت المعلومه التي اريدها

------------------------------------------------------2006-----------------------------------------------------

| اسم الشخص | يناير | فبراير | مارس | ابريل | مايو | يونيو | يوليو | أغسطس | سبتمبر | أكتوبر| نوفمبر | ديسمبر |

------------------------------------------------------------------------------------------------------------------

و عند الانتهاء من سنة 2006 يظهر الجدول كالاتي فارغا طبعا

------------------------------------------------------2007-----------------------------------------------------

| اسم الشخص | يناير | فبراير | مارس | ابريل | مايو | يونيو | يوليو | أغسطس | سبتمبر | أكتوبر| نوفمبر | ديسمبر |

------------------------------------------------------------------------------------------------------------------

و هكذا