access控制子窗体动态设置主窗体的查询记录源,设置常用语

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

以常用语作为实例。该实例中编写了基本常用语和常用语两个函数，来解决一些子窗体的问题

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