access控製子窗體動態設置主窗體的查詢記録源,設置常用語

2010-01-01 17:14:39
todaynew-Office交流網
原創
8652

一箇輔助性的輸入工具可以用到字符型字段的輸入方法,比如説有一箇工程項目名稱字段,在輸入這箇字段時,可能需要反覆的輸入“工程”這兩箇字,那麽採用常用語,就可以簡化輸入。

以常用語作爲實例。該實例中編寫瞭基本常用語和常用語兩箇函數,來解決一些子窗體的問題


基本功能:
1、通過子窗體字段選擇,可以在主窗體組閤框中對應建立該字段的常用語。
2、通過選擇主窗體常用語,可以在子窗體對應字段設置默認值。
3、在子窗體某箇字段的記録中插入光標後,迴到主窗體常用語選擇後雙擊,可以在原子窗體光標點插入選擇的常用語。
4、點擊主窗體維護按鈕,可以對基本常用語進行新增。

111.gif


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

分享