【Access小品】常用语实例

todaynew

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

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






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

谢谢！

heqing3000

请问楼主，这个用在什么地方？

todaynew

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

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

ui

高产的作家

老鬼

THANK YOU～

chaojianan

谢谢分享，收藏了。

c101

谢谢分享

njy6000

感谢分享,努力学习!

njy6000

很适应的一个功能,谢谢!