错误#2467 SysFrmGeneralQuickQuery: Function ApplyFilter()
时 间:2016-11-17 09:06:41
作 者:KevinFan ID:47553 城市:东莞
摘 要:分组查询,多个列表窗体查询字段不同时,平台查询功能会出现:错误#2467 SysFrmGeneralQuickQuery: Function ApplyFilter(),导致查询功能异常。
正 文:
在做一些分类统计的时候(通过组合框更新后事件改变列表窗体SourceObject),如果不同列表窗体的查询字段不同,而主窗体又使用了平台的查询功能,在输入查询条件的时候会出现:错误#2467 SysFrmGeneralQuickQuery: Function ApplyFilter(),无法使用查询功能:
研究了一下,这个问题是因为加载窗体控件时找不到控件引起的(由于不同窗体控件名称不一样),解决思路是选择分类后,清空已加载的查询字段,重新加载。
在窗体加载事件中增加以下红色字体的代码:
Private Sub Form_Load()
On Error GoTo ErrorHandler
LoadIcon Me.btnExport_Image, "export.ico"
LoadIcon Me.btnClose_Image, "db cancel.ico"
Set mclsQuery = New GeneralQuery
With mclsQuery
.QueryForm = Me.sfrQuickQuery.Form
Select Case 查询类型
Case "业务订单月汇总"
Me.sfrList.SourceObject = Me.Name & "_List" & "_销售金额"
.DataForm = Me.sfrList.Form
.ClearFields ’这句是关键,清空查询字段
.AddAllFields ‘这里添加全部查询字段,可以使用AddField添加部分字段
.FieldName = "年月" '设置默认的查询字段
Case "采购订单月汇总"
Me.sfrList.SourceObject = Me.Name & "_List" & "_采购金额"
.DataForm = Me.sfrList.Form
.ClearFields ’这句是关键,清空查询字段
.AddAllFields ‘这里添加全部查询字段,可以使用AddField添加部分字段
.FieldName = "年月" '设置默认的查询字段
End Select
End With
Me.Recalc
ExitHere:
Exit Sub
ErrorHandler:
RDPErrorHandler Me.Name & ": Sub Form_Load()"
Resume ExitHere
End Sub
然后在查询类型的组合框增加一个更新后事件,重新加载窗体:
Private Sub 查询类型_AfterUpdate()
Call Form_Load
End Sub
这样处理后查询功能就正常了。
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)