Access快速开发平台--在Sys_LookupList表中添加的数据无法显示在查阅列表维护的解决方法
时 间:2018-11-13 12:44:26
作 者:伊西军 ID:63090 城市:临汾
摘 要:最近有使用Access快速开发平台的朋友询问:为什么我直接在Sys_LookupList表中添加的数据,无法显示在 查阅列表数据维护 中呢?
正 文:
1、问题描述:
在Sys_LookupList表中手动录入的数据,无法显示在 查阅列表数据维护 中
2、问题解答:
是因为数据不完整导致的:仔细观察可以看到,查阅列表每个类别中都有一天Value为空的记录,但却无法手动添加。
虽然查阅列表这部分的加载和新增的功能代码自己是可以修改的,但是不建议大家去修改,所以提供以下方法供大家使用:
'手动添加数据到Sys_LookUpLis数据不现实的解决方法 '复制到任意模块 然后按F5运行即可 Public Function PrefectValueToLookUpList() Dim rstGroup As Object Dim clsPB As PopupProgressBar Dim lngI As Long Set clsPB = CreateInstance("PopupProgressBar") clsPB.StatusText = "正在更新..." Set rstGroup = CurrentDb.OpenRecordset("select Item from Sys_LookUpList group by Item") clsPB.Max = rstGroup.RecordCount Do Until rstGroup.EOF If DCount("*", "Sys_LookUpList", "Item=" & sqltext(rstGroup![Item]) & " and value=''") = 0 Then CurrentDb.Execute "insert into Sys_LookUpList values(" & sqltext(rstGroup![Item]) & ",''," & DMax("SN", "Sys_LookUpList", "Item=" & sqltext(rstGroup![Item])) + 1 & ",'','')" End If lngI = lngI + 1 clsPB.Value = lngI rstGroup.MoveNext Loop clsPB.StatusText = "更新完成!" MsgBox "更新完成!", vbInformation End Function
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)