如何在一个文本框控件旁添加日历控件，以实现日期选择！

panjianhui · 发表于 2007-10-11 19:24:38

在窗体中要实现日期输入，这时一般加载一个日历控件，office自带一个日历控件1.1，那如何在需要实现日期输入的文本框控件旁加载一个小图标，点击可以跳出日历控件，选择日期后自动回复小图标！
请问，这类代码是如何编写的，谢谢！

Henry D. Sy · 发表于 2007-10-11 22:29:45

用MSCOMCT2.OCX
在MSCOMCT2控件的change事件中写代码
me.text0=MSCOMCT2控件名

qian2004 · 发表于 2007-10-12 11:42:54

你可以在窗口打开事件中.把日历先隐藏起来.
然后在文件框的旁边加一个图片.
在图片的单击事件写出
DIM X AS INTERG Y AS INTERG
日历.VISIBLE=TRUE
X=文本控件.TOP+300
Y=文本控件.LEFT
日历.MOVE Y , X ''这个是把日历移动到你的文本框下方.如果是默认的高度那就加300我试过了
是正好在下方的,如果改了高度的话,改这个就行了.

然后在日历的双击或者单击事件中写

文件控件.VALUE= 日历.VALUE
日历.VISIBLE=FALSE

你如果一个窗体有多个输入日期的话,就要写条件语句了.还有公用变量
上面的变量类型好像是拼错了.整形忘了怎么写了

panjianhui · 发表于 2007-10-12 13:44:47

三楼提供的例子很符合我的需求，可就是不太明白怎么实现把日历控件里我们选定的值赋值给文本框控件，我也找不到任何类似赋值的语句阿？
能否再解释一下阿？谢谢了！

gdfsslec · 发表于 2007-10-12 13:55:43

Private Sub atx_Click()
On Error GoTo Err_Click

Screen.PreviousControl = Me.atx
DoCmd.Close

Err_Click:
Exit Sub
End Sub

ASDTADSYTFSDTS_ · 发表于 2007-10-12 15:32:32

好好好好好好好好好好好好好好好好

wlmuser · 发表于 2007-10-13 00:41:05

非常谢谢,正好用到这个

ZHUXQSTYLE · 发表于 2007-10-13 20:55:49

学习提高,努力努力.

xxxlls · 发表于 2007-11-1 21:10:05

Screen.PreviousControl 是什么意思？？

zqlgl · 发表于 2008-3-14 00:15:03

我非常需要,顶一下!

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何在一个文本框控件旁添加日历控件，以实现日期选择！

群介绍
主题无相 (随机显示版	同地区群块其他地区)