如何在 VBA 中将 MS Access 筛选表另存为查询

发布于 2024-11-07 01:46:33 字数 186 浏览 1 评论 0原文

我需要能够将 Microsoft Access(2010) 中筛选表的结果保存为查询。 Access 中的报表只有基于查询时才是动态的。如果我基于表格本身生成报告，则它不会保存任何搜索词/过滤结果。在 Access 宏生成器中，DoCmd.save 仅保存当前表，我需要能够在 VBA 中执行“另存为”操作，以便将筛选后的表另存为查询。

谢谢

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

表情可笑 2024-11-14 01:46:33

您需要根据表单的 Filter 和 OrderBy 设置构建 SQL 语句。

Dim sSQL As String

sSQL = "Select ... From MyTable"

If Len(Me.Filter) > 0 Then
    sSQL = sSQL & " Where " & Me.Filter
End If

If Len(Me.OrderBy) > 0 Then
    sSQL = sSQL & " Order By " & Me.OrderBy
End If

Call DBEngine.Workspaces(0).Databases(0).CreateQueryDef("MyQueryName", sSQL)

You would need to build the SQL statement based on the Filter and OrderBy settings of the form.

Dim sSQL As String

sSQL = "Select ... From MyTable"

If Len(Me.Filter) > 0 Then
    sSQL = sSQL & " Where " & Me.Filter
End If

If Len(Me.OrderBy) > 0 Then
    sSQL = sSQL & " Order By " & Me.OrderBy
End If

Call DBEngine.Workspaces(0).Databases(0).CreateQueryDef("MyQueryName", sSQL)

回复收藏 0 原文

~没有更多了~