如何达到组合框下拉后,可以选择今天的日期

13601812106_01

如题

tmtony

1. 自己做一个日历功能 (搜索论坛)
2.使用微软自带的日历控件
3. 使用access2007或以上版本,则日期字段自动带有日历选择

yanghua1900363

[推荐]调用日期控件的例子(模块化)
http://www.office-cn.net/forum.p ... &fromuid=158746

Henry D. Sy

只要今天的话，直接等于date

1. Private Sub Form_Load()
   
2. Dim str As String
   
3. Dim i As Integer
   
4. 
   
5. For i = -2 To 2
   
6. str = str & Date + i & ";"
   
7. Next
   
8. Me.Text0.RowSourceType = "value list"
   
9. Me.Text0.RowSource = str
   
10. End Sub
    

复制代码

huangli0356

如果是2007版本以上的只要文本框设置为日期格式自带的就有一个日期选择器的..

13601812106_01

Henry D. Sy 发表于 2013-1-17 10:47
只要今天的话，直接等于date

十分谢谢,正是所需