Office中国论坛/Access中国论坛

标题: 关于组合框选项问题 [打印本页]

作者: winner 时间: 2006-2-8 20:12
标题: 关于组合框选项问题
[attach]15687[/attach]

我想在组合框选:2005年1月,2个文本框分别出现:2005-01-01,2005-01-31,选2005年2月时,出现:2005-02-01,2005-01-28,如此类推,应该怎样做呢?请大家帮忙看看,谢谢!

作者: skylark 时间: 2006-2-8 22:31
标题: 回复：（winner）关于组合框选项问题
To winner:

Right?

[attach]15689[/attach]

作者: winner 时间: 2006-2-9 00:19
现在可以辅值了,但一按按钮它的值就变了,我想按一月份,就生成一月份的报表,请再看看!

作者: 一点通 时间: 2006-2-9 00:50
按钮单击事件直接改成这样试一下

Private Sub Command2_Click()

Dim stDocName As String

stDocName = "报表1"
DoCmd.OpenReport stDocName, acPreview

End Sub

作者: winner 时间: 2006-2-9 01:13
我试过了,如果改成上面的代码,那么就选不了日期了.

请看一下查询,查询里日期条件下的是读2个文本框,按道理文本框有值就行了,但不知为什么值会变????

作者: skylark 时间: 2006-2-9 03:13
To winner:

Private Sub Command2_Click()
'Me.Text3.Value = ÔÂ³õ(Combo0)
'Me.Text5.Value = ÔÂÄ©(Combo0)
DoCmd.OpenReport "±¨±í1", acViewPreview, "", "", acNormal
End Sub

你的函数在工作，这样应可以。

作者: 一点通 时间: 2006-2-9 19:41
在2楼例子的基础上，更改4楼的代码，通过测试的

作者: winner 时间: 2006-2-9 20:02
标题: 把组合框改为日期控件,应该怎样?
[attach]15712[/attach]

现在要把组合框改为日期控件,单击日期,它自动赋值到TEXT5,而TEXT3就会出现TEXT5所选月份的第一天,应该怎样写代码?

我试过上面那样写,系统说有些代码没能识别.请各位再看看,谢谢!

作者: winner 时间: 2006-2-9 22:01
我把代码写成:

Private Sub DTPicker7_Change()
Me.TDate5.Value = Int(Me.DTPicker7.Value)
Me.TDate3.Value = FirstOfMonth(Int(Me.DTPicker7.Value))
End Sub

系统说:FirstOfMonth子函数未定义

要怎么修改呢?

作者: winner 时间: 2006-2-10 17:00
先顶一下,请问第 9 楼写的代码错在哪里?

作者: 一点通 时间: 2006-2-10 17:21
你的例子可以简化一点的

[attach]15728[/attach]

作者: winner 时间: 2006-2-10 18:43
我是想通过时间控键选择截止日期,然后打开报表.如果按以前的做法,报表显示是整个月的.

现在我想:例如选2005-1-20,报表显示的是2005-1-1到2005-1-20的数据,而不是到2005-1-31的.还有我想用ACCESS附带的那个日期控键

请再看看!谢谢!

作者: 一点通 时间: 2006-2-10 23:52
[attach]15739[/attach]

作者: winner 时间: 2006-2-11 01:31
我还想问问:为什么在我的ACCESS里,系统识别不了时间日期控键,即在事件生成器的代码生成器里看不到有这个控键,所以一直以来我都要把它赋值到文本框才能使用.我一直都不明白为什么,各位知道吗?

作者: 一点通 时间: 2006-2-11 16:28
你可能还没有注册这个控件吧

作者: huajiaqi 时间: 2006-4-9 22:09
受教

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