نطاق السنوات ... Year Loop
نحتاج قائمة تحرير وسرد توفر لنا في صفوفها لإختيار السنوات عشرٌ مرت وعشرٌ قادمات ، بحيث لا يكون مصدر الصف جدول أو قائمة قيم ، بحيث تكون متغيرة عبر السنوات بدون أن نضطر لتغييرها وتعديلها ، مستندة للسنة الحالية !!
كل ما عليك فعله : إنشاء وحدة نمطية جديدة ولصق الكود التالي بها ، ومن ثم حفظها ...
Function YearLoop() As String
Dim YearHold As Date
Dim strSQL As String
Dim i As Integer
Dim n As Integer
n = 10
strSQL = ""
For i = -10 To n
YearHold = DateSerial(Year(Date) + i, 1, 1)
strSQL = strSQL & Format(YearHold, "yyyy") & "; "
Next i
YearLoop = strSQL
End Function
وفي حدث عند الفتح للنموذج نضع الكود لتكون نتائج الوحدة النمطية مصدر الصف لقائمة التحرير والسرد Text7
Private Sub Form_Load()
Me.Text7.RowSource = YearLoop()
End Sub
وحين نفتح النموذج يكون أمامك عشر سنوات سابقة بالاضافة للسنة الحالية وعشر سنوات قادمات ......... للإختيار منها