关于组合框选项问题

winner · 发表于 2006-2-8 20:12:00

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

skylark · 发表于 2006-2-8 22:31:00

To winner:

Right?

winner · 发表于 2006-2-9 00:19:00

现在可以辅值了,但一按按钮它的值就变了,我想按一月份,就生成一月份的报表,请再看看!

一点通 · 发表于 2006-2-9 00:50:00

按钮单击事件直接改成这样试一下

Private Sub Command2_Click()

Dim stDocName As String

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

End Sub

winner · 发表于 2006-2-9 01:13:00

我试过了,如果改成上面的代码,那么就选不了日期了.

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

skylark · 发表于 2006-2-9 03:13:00

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:00

在2楼例子的基础上，更改4楼的代码，通过测试的

winner · 发表于 2006-2-9 20:02:00

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

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

winner · 发表于 2006-2-9 22:01:00

我把代码写成:

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:00

先顶一下,请问第 9 楼写的代码错在哪里?

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

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

主题相关群

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

[其它] 关于组合框选项问题

本帖子中包含更多资源

回复：（winner）关于组合框选项问题

本帖子中包含更多资源

把组合框改为日期控件,应该怎样?

本帖子中包含更多资源

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