office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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


實現后的效果:

    分享
    北京十一选五基本走势