office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請用微信掃碼)

        

access控製子窗體動(dòng)態(tài)設(shè)置主窗體的查詢記録源,設(shè)置常用語

2010-01-01 17:14:39
todaynew-Office交流網(wǎng)
原創(chuàng)
13201

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

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


基本功能:
1、通過子窗體字段選擇,可以在主窗體組閤框中對應(yīng)建立該字段的常用語。
2、通過選擇主窗體常用語,可以在子窗體對應(yīng)字段設(shè)置默認(rèn)值。
3、在子窗體某箇字段的記録中插入光標(biāo)後,迴到主窗體常用語選擇後雙擊,可以在原子窗體光標(biāo)點(diǎn)插入選擇的常用語。
4、點(diǎn)擊主窗體維護(hù)按鈕,可以對基本常用語進(jìn)行新增。

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 計(jì)數(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

分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問