نطاق السنوات ... Year Loop

بدأه Cha3iR في 18 يناير 2012 · 4 رد · 554 مشاهدة · في قواعد بيانات Microsoft Access

#118 يناير 2012 في 15:08 صاحب الموضوع

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

اخواني وجدت كود يخول لك تحديد نطاق السنوات استنادا للسنة الحالية

ويمكن استغلال هذا الكود في قائمة تحرير وسرد توفر لنا في صفوفها لإختيار السنوات عشرٌ مرت وعشرٌ قادمات ، بحيث لا يكون مصدر الصف جدول أو قائمة قيم ، بحيث تكون متغيرة عبر السنوات بدون أن نضطر لتغييرها وتعديلها ، مستندة للسنة الحالية !!

Function YearLoop() As String
Dim YearHold As Date
Dim strSQL   As String
Dim i       As Integer
Dim N       As Integer
    N = 5
    strSQL = ""

    For i = -5 To N
           YearHold = DateSerial(Year(Date) + i, 1, 1)
           strSQL = strSQL & Format(YearHold, "yyyy") & "; "
    Next i

    YearLoop = strSQL
End Function

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

Private Sub Form_Load()
Me.Text7.RowSource = YearLoop()
End Sub

كود أفادني كثيرا فتساءلت هل من الممكن التعديل عليه ليتم تطبيق نفس الخاصية على الأشهر

وشكرا

#218 يناير 2012 في 18:35

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

استخدم هذا التعديل, واستدعه من النموذج مثل الدالة السابقة.

Function MonthLoop() As String
Dim MonthHold As Date
Dim strSQL   As String
Dim i   	As Integer
Dim N   	As Integer
	N = 5
	strSQL = ""

	For i = -5 To N
       	MonthHold = DateSerial(Year(Date), Month(Date) + i, 1)
       	strSQL = strSQL & Format(MonthHold, "mmmm") & "; "
	Next i

   MonthLoop = strSQL
End Function

وإذا أردت الأشهر بالأرقام غيّر "mmmm" إلى "mm"