使用VBA 代码动态设置Access组合框的行来源（年份动态变化）

 使用VBA 代码动态设置Access组合框的行来源（年份动态变化）

如窗体有年度的下拉框供用户选择，如果可以根据电脑当前年份，自动取 前5年 后3年的年份供用户选择，而不是固定不变呢

可以在窗体加载或组合框的获得焦点事件(getfocus)或进入事件(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 

实现后的效果：