[ تمت الإجابة ]سؤالين لا غير ... أفيدونا أفادكم الله

رقم الاسبوع في السنه

 d = DatePart("ww", Date, vbSaturday, vbFirstJan1)

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

 MSFlexGrid1.Cols = rs.Fields.Count

 For i = 1 To rs.RecordCount - 1
   MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
   For m = 0 To rs.Fields.Count - 1
	   MSFlexGrid1.TextMatrix(i, m) = rs.Fields(m).Value
   Next m
   rs.MoveNext
Next i

تحياتي

بارك الله فيك أخي العماني

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

بارك الله فيك أخي العماني ، أشكرك جزيل الشكر .. والشكر موصول لأخي أبو حمد

جزاكما الله عنا خير الجزاء ز