[英]MS Access - Suppress Save Prompt When Using Subform Filtering
我有一个表单设置,它有一个子表单窗口和几个命令按钮。 子表单加载在交叉表查询中,允许用户在导出之前将数据操作到所需的数据集(使用命令按钮完成导出)。 此操作只能一次性使用,并在表单关闭时丢弃。 当表单关闭时,系统会提示我保存交叉表查询。 我想找到一种方法来关闭此提示并放弃更改。
澄清:表单打开,查询加载,用户过滤数据到他们想要查看/导出的数据,当表单关闭时,会生成保存查询的提示。 仅当应用了过滤器时才会出现此提示。
我最初尝试设置一个表单以用作子表单,但很快意识到添加新列时不会创建新控件(这就是我使用交叉表的全部原因)。 当使用“关闭表单”命令按钮关闭表单时,我有一行代码
DoCmd.Close , , acSaveNo
这完美地工作。 当表单以任何其他方式关闭时,会出现提示(用“x”关闭表单、退出数据库等)。 我不想关闭警告,因为这将保存对交叉表查询的更改。 我一直在到处研究解决方法,但我正在使用并且必须使用交叉表查询这一事实成为一个重要因素。
我用来将交叉表查询过滤应用于导出命令的代码:
Private Sub ExportCmd_Click()
Dim NewSQL As String
Dim strPart1 As String
Dim strPart2 As String
Dim strPart3 As String
Dim OrigSQL As String
On Error GoTo Cancelled_Export
OrigSQL = CurrentDb.QueryDefs("basicrecordextractcrosstab").SQL
If Forms("exportlogdataform").Controls("Child290").Form.Filter & vbNullString = vbNullString Then
NewSQL = OrigSQL
Else
strPart1 = Left(OrigSQL, InStr(1, OrigSQL, "GROUP BY", vbTextCompare) - 1)
strPart2 = "WHERE " & Replace(Forms("exportlogdataform").Controls("Child290").Form.Filter, "[BasicRecordExtractCrosstab].", "", , , vbTextCompare)
strPart3 = Right(OrigSQL, Len(OrigSQL) - Len(strPart1))
NewSQL = strPart1 & strPart2 & Chr(13) & strPart3
End If
CurrentDb.QueryDefs("basicrecordextractcrosstab").SQL = NewSQL
DoCmd.OutputTo acOutputQuery, "BasicRecordExtractCrosstab", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint
Restore_SQL_Def:
CurrentDb.QueryDefs("basicrecordextractcrosstab").SQL = OrigSQL
Exit Sub
Cancelled_Export:
If Err = 2501 Then
MsgBox "Export to Excel Action Cancelled", vbInformation + vbOKOnly, "Export Cancelled"
ElseIf Err = 2302 Then
MsgBox "Unable to save export file. Make sure the file is not currently open.", vbExclamation + vbOKOnly, "Export Failed"
Else
MsgBox Err & ": " & Error$
End If
Resume Restore_SQL_Def
End Sub
我不想走这条路,但我硬编码了默认的 SQL 定义并在表单加载时关闭了警告。 我在表单的关闭事件中重新打开了警告。
Private Sub Form_Load()
Dim OrigSQL as String
OrigSQL = "Default SQL Def string here"
CurrentDb.QueryDefs("basicrecordextractcrosstab").SQL = OrigSQL
DoCmd.SetWarnings False
End Sub
Private Sub Form_Close()
DoCmd.SetWarnings True
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.