平台默认启用“导出”按钮后,有时我们想不查询数据,直接导出全部数据;可是点击导出按钮,导出的数据仍然是上次查询之后的数据,并不是我们想要导出的数据。
我们在usysfrmExport窗体的打开事件中加上红色的代码,问题得到解决:
Private Sub Form_Open(Cancel As Integer)
Me.txtFolderName.SetFocus
Me.txtFolderName = CurrentProject.Path
Me.frameExport.SetFocus
If Forms!USysfrmmain!frmChild.Form.RecordSource Like "Select*" Then
CurrentDb.QueryDefs("usysQry_ExportData").SQL = Forms!USysfrmmain!frmChild.Form.RecordSource
Else
CurrentDb.QueryDefs("usysQry_ExportData").SQL = "Select * FROM [" & Forms!USysfrmmain!frmChild.Form.RecordSource & "]"
End If
End Sub
这是因为,平台导出的数据,是usysQry_ExportData查询中的数据,当我们执行“查询”之后,usysQry_ExportData查询会改为查询出的数据,如果不执行“查询”则不会更改;所以要解决这个问题,只要让usysQry_ExportData查询做相应的更改就可以了。
相关技巧点击下面链接:
让开发平台默认启用'导出'按钮的方法