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

2017-09-01 12:14:00
zstmtony
原创
652

 使用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 


实现后的效果:

    分享