I need to be able to save the results of a filtered table in Microsoft Access(2010) as a query. Reports in Access are only dynamic if they are based off of a query. If I based the reports off of a the table itself, it wouldn't save any of the search terms/filter results. In the Access macro builder, the DoCmd.save only saves the current table, I need to be able to do a "save 开发者_开发问答as" in VBA so I can save the filtered table as a query.
Thanks
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)
精彩评论