access控制子窗體動態(tài)設(shè)置主窗體的查詢記錄源,設(shè)置常用語

一個輔助性的輸入工具，可以用到字符型字段的輸入方法，比如說有一個工程項目名稱字段，在輸入這個字段時，可能需要反復(fù)的輸入“工程”這兩個字，那么采用常用語，就可以簡化輸入。

以常用語作為實例。該實例中編寫了基本常用語和常用語兩個函數(shù)，來解決一些子窗體的問題

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 計數(shù) "
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