Office中国论坛/Access中国论坛

标题: 如何动态生成下拉列表下录入日期 [打印本页]

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

作者: koutx 时间: 2009-2-16 19:29
本帖最后由 koutx 于 2009-2-16 19:45 编辑

近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 时间: 2009-2-16 19:53

近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 时间: 2009-2-16 20:02
如果今天是星期4，那明天是不是下一个星期5

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

作者: asklove 时间: 2009-2-17 09:43
有点麻烦，还不如直接加个日历控件，反正上面有星期几的，直接点选日期来的方便,不要钻牛角尖嘛

作者: asklove 时间: 2009-2-17 09:48
对WeekDayName(WeekDay(录入日期文本框))再加个判断应该也能达到你要的效果吧

作者: zhangbaor 时间: 2009-2-17 18:32
asklove能说详细些吗？

作者: ACMAIN_CHM 时间: 2009-2-17 19:15
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 时间: 2009-2-17 22:34
9# ACMAIN_CHM
学了就得道声谢

作者: zhangbaor 时间: 2009-2-18 12:21
谢谢各位！又添要求了，每天还要分上下午，谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)