access控制子窗体动态设置主窗体的查询记录源,设置常用语

2010-01-01 17:14:39
todaynew-Office交流网
原创
8037

一个辅助性的输入工具可以用到字符型字段的输入方法,比如说有一个工程项目名称字段,在输入这个字段时,可能需要反复的输入“工程”这两个字,那么采用常用语,就可以简化输入。

以常用语作为实例。该实例中编写了基本常用语和常用语两个函数,来解决一些子窗体的问题


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

分享