设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 1483|回复: 15
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2006-2-8 20:12:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-2-8 22:31:00 | 只看该作者

回复:(winner)关于组合框选项问题

To winner:

Right?


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
3#
 楼主| 发表于 2006-2-9 00:19:00 | 只看该作者
现在可以辅值了,但一按按钮它的值就变了,我想按一月份,就生成一月份的报表,请再看看!
4#
发表于 2006-2-9 00:50:00 | 只看该作者
按钮单击事件直接改成这样试一下

Private Sub Command2_Click()
   
    Dim stDocName As String

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

End Sub
5#
 楼主| 发表于 2006-2-9 01:13:00 | 只看该作者
我试过了,如果改成上面的代码,那么就选不了日期了.

请看一下查询,查询里日期条件下的是读2个文本框,按道理文本框有值就行了,但不知为什么值会变????
6#
发表于 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

你的函数在工作,这样应可以。
7#
发表于 2006-2-9 19:41:00 | 只看该作者
在2楼例子的基础上,更改4楼的代码,通过测试的
8#
 楼主| 发表于 2006-2-9 20:02:00 | 只看该作者

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




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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
9#
 楼主| 发表于 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子函数未定义

要怎么修改呢?
10#
 楼主| 发表于 2006-2-10 17:00:00 | 只看该作者
先顶一下,请问第 9 楼写的代码错在哪里?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 11:27 , Processed in 0.171194 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表