office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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

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


基本功能:
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

分享
北京十一选五基本走势