如何動態(tài)生成下拉列表下錄入日期

zhangbaor

請教：我有一個access日程數(shù)據(jù)庫，數(shù)據(jù)庫中有3個表，用戶表、行程表、行程明細表，用戶表中存儲用戶明細，行程表存儲行程中的種類，這2個表有數(shù)據(jù)庫管理員維護，行程明細表由每個用戶錄入自己的行程，現(xiàn)在每個用戶還沒有錄入過自己的行程，所以這個表現(xiàn)在是空的，沒有記錄！
我想讓每個用戶在錄入自己的行程時，錄入的只能是從錄入當天到下一個星期五的日期，如2月13日錄入，只能錄入到2月20日，讓其錄入日程后保存，在錄入時直接弄一個下拉選擇日期，只能選本周或近五天即可，代碼應如何實現(xiàn)？謝謝！

koutx

近5天的作法:
一、按下建一公用模塊
Function rq() As String
rq = Date
For i = 1 To 4
rq = rq & "," & DateAdd("d", i, Date)
Next
End Function
二、窗體的打開事件加入以下代碼（Combo11是你的組合框，提前在設(shè)計視圖中設(shè)來源類型為值列表）
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 發(fā)表于 2009-2-16 19:29

這個辦法好，我回頭試試。

Henry D. Sy

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

zhangbaor

謝謝各位的回復，可能我沒說清，動態(tài)生成下拉列表下錄入日期，要生成從今天到下一個星期5，即包括本周從今天到星期5與下周從星期1到星期5，不能有星期6與星期日，如今天是星期4，則動態(tài)列表內(nèi)容是本周星期5與下周從星期1到星期5，如今天是星期1，則動態(tài)列表內(nèi)容是本周從星期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://ctxi.cn .
.
http://ctxi.cn/home/space.php?uid=141646 .

koutx

9# ACMAIN_CHM
學了就得道聲謝