【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小品】常用语实例

大中

强啊

wzh

谢谢分享，收藏了。

cityguy

不错！！

SRONE

谢谢分享！

lin2003_lin

不错{:soso_e179:}

ydfyhp

顶一下，好东西.

5574916

谢谢，学习学习！！

jinzhanxi

谢谢分享

tjgtw888

不错、不错，感谢作者