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