安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

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

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

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


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

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.19
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
多乐彩走势图 博洛尼亚第五大长方体建筑 古怪猴子在线客服 pk10开奖 龙之王国电子 招财童子和运财童子 诙谐财富APP dnf驱魔吧 炉石传说新冒险 七海的主权走势图