使用VBA 代碼動態設置Access組閤框的行來源(年份動態變化)

2017-09-01 12:14:00
zstmtony
原創
2430

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


實現後的效果:

    分享