Office中国论坛/Access中国论坛

标题: 【Access小品】常用语实例 [打印本页]

作者: todaynew 时间: 2010-1-1 17:14
标题: 【Access小品】常用语实例
本帖最后由 todaynew 于 2010-1-1 19:43 编辑

为了祝贺坛友们元旦愉快，特编写了一个常用语实例。该实例中编写了基本常用语和常用语两个函数，为同志们提供两种处理常用语的思路。

基本功能：
1、通过子窗体字段选择，可以在主窗体组合框中对应建立该字段的常用语。
2、通过选择主窗体常用语，可以在子窗体对应字段设置默认值。
3、在子窗体某个字段的记录中插入光标后，回到主窗体常用语选择后双击，可以在原子窗体光标点插入选择的常用语。
4、点击主窗体维护按钮，可以对基本常用语进行新增。
[attach]41067[/attach]
[attach]41066[/attach]

Function 常用语(表名 As String, 字段名 As String, 频度 As Long) As String
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim str As String
ssql = "SELECT " & 字段名 & ", Count(" & 字段名 & ") AS 计数 "
ssql = ssql & " FROM " & 表名
ssql = ssql & " GROUP BY " & 字段名
ssql = ssql & " HAVING Count(" & 字段名 & ")>=" & 频度
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
str = str & rs(字段名) & ";"
rs.MoveNext
Next
常用语 = str
End Function
(界面_窗体_子窗体-相关文章技巧链接)：
【Access小品】常用语实例

作者: heqing3000 时间: 2010-1-1 17:41
谢谢！

作者: heqing3000 时间: 2010-1-1 17:58
请问楼主，这个用在什么地方？

作者: todaynew 时间: 2010-1-1 18:22

请问楼主，这个用在什么地方？
heqing3000 发表于 2010-1-1 17:58

呵呵。我想可以用到字符型字段的输入方法，算是一个辅助性的输入工具。比如说有一个工程项目名称字段，在输入这个字段时，可能需要反复的输入“工程”这两个字，那么采用常用语，就可以简化输入。

作者: ui 时间: 2010-1-1 19:45
高产的作家

作者: 老鬼 时间: 2010-1-1 19:47
THANK YOU～

作者: chaojianan 时间: 2010-1-1 20:26
谢谢分享，收藏了。

作者: c101 时间: 2010-1-1 20:48
谢谢分享

作者: njy6000 时间: 2010-1-1 21:41
感谢分享,努力学习!

作者: njy6000 时间: 2010-1-1 21:48
很适应的一个功能,谢谢!

作者: pwj2009 时间: 2010-1-1 21:54
谢谢楼主！

作者: ycxchen 时间: 2010-1-2 11:08
请问，不要adOpenKeyset参数行吗？

作者: goto2008 时间: 2010-1-2 18:26
谢谢大哥。。。

作者: zxklzxm1983 时间: 2010-1-2 19:33

迟到勒,顶一下

作者: todaynew 时间: 2010-1-3 09:30
谢谢同志们的支持与鼓励

作者: todaynew 时间: 2010-1-3 09:33

请问，不要adOpenKeyset参数行吗？
ycxchen 发表于 2010-1-2 11:08

对rs.Open一直没有深入研究过，这条语句是拷贝人家的，具体参数什么含义，如何设置都不是太懂。

作者: ycxchen 时间: 2010-1-3 15:07
todaynew高手太谦虚了！另，我对你的大作“选中区域求和”例子觉得有点问题，运行不正确，你能否看下原来的帖子以解决问题？

作者: todaynew 时间: 2010-1-3 17:16

todaynew高手太谦虚了！另，我对你的大作“选中区域求和”例子觉得有点问题，运行不正确，你能否看下原来的帖子以解决问题？
ycxchen 发表于 2010-1-3 15:07

好的，我看看

作者: 5988143 时间: 2010-1-4 08:45
好作品，下载学习一下~

作者: su_xx 时间: 2010-1-4 10:57
谢了,收下

作者: 67613188 时间: 2010-1-5 19:03
谢谢！

作者: dragonszr 时间: 2010-1-5 21:57
相当牛逼!

作者: szyewj 时间: 2010-8-22 13:51
学习，感谢分享

作者: li08hua 时间: 2010-9-11 02:11
学习了！

作者: 程研 时间: 2010-9-13 11:39
回复 todaynew 的帖子
收了！研究一下！谢谢！

作者: yanwei82123300 时间: 2010-9-13 15:32
谢谢分享

作者: yihesmxx 时间: 2010-9-19 14:00
学习学习

作者: maymay_1211 时间: 2010-10-5 16:51
我才剛學，不知道什麼時候才懂這是什麼東西。。。不過照收了先。

作者: wufeng980114 时间: 2010-11-4 21:02
谢谢分享

作者: xiaoxuehehe 时间: 2010-12-6 23:15
谢谢楼主的分享

作者: hanlexiang 时间: 2011-1-7 02:16
边学习，变挣钱

作者: ganbadou 时间: 2011-2-15 17:48
好厉害啊，顶

作者: TKJ 时间: 2011-2-16 22:53
谢谢，楼主辛苦了

作者: lurong 时间: 2011-2-18 21:14
谢谢分享，收藏了。

作者: essenco 时间: 2011-2-24 20:09
谢谢，看看先

作者: domecc 时间: 2011-6-22 19:29
学习学习

作者: tjgtw888 时间: 2011-8-22 09:39
不错、不错，感谢作者

作者: jinzhanxi 时间: 2011-8-22 10:57
谢谢分享

作者: yanghua1900363 时间: 2011-8-22 16:54
谢谢分享！好强壮的函数

作者: wang1950317 时间: 2011-8-22 20:50
是这个意思啊，明白啦！

作者: cjf78 时间: 2011-8-23 13:47
我非常有兴趣学习这个,感谢分享!

作者: 5574916 时间: 2011-9-26 21:57
谢谢，学习学习！！

作者: lin2003_lin 时间: 2011-11-17 16:53
不错{:soso_e179:}

作者: ydfyhp 时间: 2011-12-9 08:33
顶一下，好东西.

作者: SRONE 时间: 2012-2-12 01:35
谢谢分享！

作者: cityguy 时间: 2012-3-19 21:08
不错！！

作者: wzh 时间: 2012-4-12 10:23
谢谢分享，收藏了。

作者: 大中 时间: 2012-5-6 12:36
强啊

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