使用VBA 代碼動態(tài)設(shè)置Access組閤框的行來源（年份動態(tài)變化）

 使用VBA 代碼動態(tài)設(shè)置Access組閤框的行來源（年份動態(tài)變化）

如窗體有年度的下拉框供用戶選擇，如果可以根據(jù)電腦當(dāng)前年份，自動取 前5年 後3年的年份供用戶選擇，而不是固定不變呢

可以在窗體加載或組閤框的穫得焦點事件(getfocus)或進(jìn)入事件(enter) 添加如下代碼卽可

 Dim i As Integer
 Dim strRowSource As String
 For i = -5 To 3
     strRowSource = strRowSource & ";" & Year(Date) + i
 Next
 strRowSource = Mid(strRowSource, 2)
 Me.年度.RowSource = strRowSource 

實現(xiàn)後的效果：