求教一个关于日期的问题

xnc_0014

大家好：
    小弟正在设计一个资产管理系统，可是由于Access基础有些薄弱，遇到了一些问题，求助各位高手指点，谢谢。
    附件有一个窗体“采购单”，窗体右边顶上有一个文本框，名为“采购单_采购日期”，如果点击这个文本框，则会弹出一个窗体供选择日期。我的设想是选定日期后，即触发Calendar0_Updated事件后，日期值应写入这个文本框中。我使用了：

Private Sub Calendar0_Updated(Code As Integer)
Forms("采购单").采购单_采购日期 = Calendar0.Value
End Sub
但是似乎并不能直接触发文本框内容的改变，不知道为什么。后来参考了网上其他系统的做法，在文本框触发事件中，写入：

Private Sub 采购单_采购日期_Click()
    Dim stDocName As String
    stDocName = "采购日期窗体"
    'DoCmd.OpenForm stDocName, , , , , , Forms("采购单").采购单_采购日期
    Call DoCmd.OpenForm("采购日期窗体", , , , , , "采购单.采购单_采购日期")
End Sub

但是别人成功了，可是我还是失败，只好求助各位高手了，谢谢。

除此之外，我还发现有一个问题。目前子窗体中显示有4条采购记录，我用鼠标选择任意一条记录，则右边的文本框可以显示当前记录的信息。可是无论我选中哪一条记录。通过Calendar0控件修改的日期却总是修改第一条记录的采购日期，这个问题如何解决啊？谢谢大家。

ly

在采购日期窗体上增加一个命令按钮，然后：

1. Private Sub OK_Click()
   
2. Forms("采购单")!采购单_采购日期 = Me.Calendar0.Value
   
3. DoCmd.Close acForm, "采购日期窗体"
   
4. End Sub
   

复制代码

还有，采购日期窗体上日期控件不要绑定数据来源！！！

xnc_0014

    哦，谢谢楼上ly大师的方法，问题确实解决了，不过在采购日期窗体上加上按钮，明确指明：
Forms("采购单")!采购单_采购日期 = Me.Calendar0.Value
    这样的话其他地方如果需要选择日期就不能调用这个窗体了。目前很现实的问题，就是窗体“领用单”中还有一个选择日期，方法可以一模一样，但是只能另外再做一个“领用日期窗体”，这样的话总觉得太冗余。
    有没有办法使得多个日期选择都能调用同一个日期选择窗体？就是说单击Text1，跳出这个窗体，选择后日期显示在Text1中，如果单击Text2，则还是跳出这个窗体（而不是一模一样的另一个窗体），但选择的时间显示在Text2中？谢谢。

xnc_0014

顶自己一下，谢谢

ly

xnc_0014 发表于 2012-3-23 10:31
哦，谢谢楼上ly大师的方法，问题确实解决了，不过在采购日期窗体上加上按钮，明确指明：
Forms("采购单 ...

共用一个窗体，请测试！

采购系统(2).zip (107.07 KB, 下载次数: 6)

2012-3-23 13:55 上传

点击文件名下载附件

ASLXT

用DTPicker控件不是很好吗？（不要说不想用activeX控件）
Microsoft date and time Picker controls

xnc_0014

多谢ly大侠一次又一次帮助我，感激不尽。虽然由于自身水平薄弱，还是没有读懂OpenArgs:=Nz(varDate)的含义，但是终于能够实现这个功能了，真是十分感谢。
同时也谢谢楼上，我不是不想用ActiveX控件，而是我目前熟悉的控件就是最常用的几种，您提到的控件我以前根本不知道。以后我会努力学习，慢慢熟悉的。

ASLXT

Microsoft date and time Picker controls 控件可以直接绑定字段，外观就像组合一样，不用写任何一句代码。点击下拉倒三角形，自己弹出日历。
只是所绑定的字段要设置默认值或DTPicker控件的属性中把复选框勾选即可