Access运行时错误2501:OutputTo 操作被取消的解决方法
时 间:2012-11-17 15:38:49
作 者:张亚帮 ID:60 城市:南京
摘 要:Access运行时错误2501:OutputTo 操作被取消的解决方法
正 文:
在窗体的一个按钮里写了导出EXCEL报表的事件,是先通过几个组合框内容进行筛选后的结果,进行导出。代码如下:
Private Sub cmdImport_Click()
Dim strWhere
Dim strSql
strWhere = ""
strSql = Null
'判断状态是否为空
If Not IsNull(Me.state) Then
'有输入
strWhere = strWhere & "([state] like '" & Me.state & "')"
End If
'判断省份是否为空
If Not IsNull(Me.province) Then
'有输入
If (strWhere <> "") Then
strWhere = strWhere & " AND ([province] like '" & Me.province & "')"
Else
strWhere = strWhere & " ([province] like '" & Me.province & "')"
End If
End If
'判断城市是否为空
If Not IsNull(Me.city) Then
'有输入
If (strWhere <> "") Then
strWhere = strWhere & "AND ([city] like '" & Me.city & "')"
Else
strWhere = strWhere & "([city] like '" & Me.city & "')"
End If
End If
'判断姓名是否为空
If Not IsNull(Me.seaname) Then
'有输入
If (strWhere <> "") Then
strWhere = strWhere & "AND ([name] like '*" & Me.seaname & "*')"
Else
strWhere = strWhere & "([name] like '*" & Me.seaname & "*')"
End If
End If
'先在窗口显示一下strWhere的值,代码调试完后可以取消下一句
'Debug.Print strWhere
'让子窗体应用窗体查询
If (strWhere <> "") Then
strSql = "select * from q_trainlist where " & strWhere
Else
strSql = "select * from q_trainlist"
End If
Me.w_traindata.Form.Filter = strWhere
Set qdf = CurrentDb.QueryDefs("q_ea_candidate")
qdf.SQL = strSql
qdf.close
Set qdf = Nothing
DoCmd.OutputTo acOutputQuery, "q_ea_candidate", acFormatXLS, , True
End Sub
问题描述:
在点击按钮后,弹出的保存框中,如果点确定,就顺利导出保存了。如果点取消,则提示 运行时错误2501:outputto操作被取消 这个调试错误,什么原因呢?
解决错误的方法:
On Error GoTo Err_按钮名称_Click
Exit_按钮名称_Click:
Exit Sub
Err_按钮名称_Click:
MsgBox err.Description
Resume Exit_按钮名称_Click
' 注:利用VB及vba的On Error要注意EXIT退出,否则VBA代码会继续向下执行。
Access软件网官方交流QQ群 (群号:54525238) 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)