如何动态生成下拉列表下录入日期

zhangbaor

请教：我有一个access日程数据库，数据库中有3个表，用户表、行程表、行程明细表，用户表中存储用户明细，行程表存储行程中的种类，这2个表有数据库管理员维护，行程明细表由每个用户录入自己的行程，现在每个用户还没有录入过自己的行程，所以这个表现在是空的，没有记录！
我想让每个用户在录入自己的行程时，录入的只能是从录入当天到下一个星期五的日期，如2月13日录入，只能录入到2月20日，让其录入日程后保存，在录入时直接弄一个下拉选择日期，只能选本周或近五天即可，代码应如何实现？谢谢！

koutx

近5天的作法:
一、按下建一公用模块
Function rq() As String
rq = Date
For i = 1 To 4
rq = rq & "," & DateAdd("d", i, Date)
Next
End Function
二、窗体的打开事件加入以下代码（Combo11是你的组合框，提前在设计视图中设来源类型为值列表）
Private Sub Form_Open(Cancel As Integer)
Me.Combo11.RowSource = rq
End Sub

todaynew

近5天的作法:
一、按下建一公用模块
Function rq() As String
rq = Date
For i = 1 To 4
rq = rq & "," & DateAdd("d", i, Date)
Next
End Function
二、窗体的打开事件加入以下代码（Combo11是你的组合框， ...
koutx 发表于 2009-2-16 19:29

这个办法好，我回头试试。

Henry D. Sy

如果今天是星期4，那明天是不是下一个星期5

zhangbaor

谢谢各位的回复，可能我没说清，动态生成下拉列表下录入日期，要生成从今天到下一个星期5，即包括本周从今天到星期5与下周从星期1到星期5，不能有星期6与星期日，如今天是星期4，则动态列表内容是本周星期5与下周从星期1到星期5，如今天是星期1，则动态列表内容是本周从星期1到星期5与下周从星期1到星期5，请问如何写代码，谢谢！

asklove

有点麻烦，还不如直接加个日历控件，反正上面有星期几的，直接点选日期来的方便,不要钻牛角尖嘛

asklove

对WeekDayName(WeekDay(录入日期文本框))再加个判断应该也能达到你要的效果吧

zhangbaor

asklove能说详细些吗？

ACMAIN_CHM

Public Sub test()
    Dim i As Integer
    Dim dt As Date
   
    dt = Date
    For i = 0 To 6 - Weekday(dt)
        Debug.Print dt + i
    Next i
   
    dt = dt + i
    For i = 2 To 6
        Debug.Print dt + i
    Next i
   
End Sub


真想学的话，请学习VB


******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

koutx

9# ACMAIN_CHM
学了就得道声谢