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选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)