Export of subforms

[fcbuek]

Hi, I have a question whether it is possible to export data from my form (using the Export button) filtered data from my subform (e.g. if I used a filter in one of the tables).

Private Sub Polecenie2_Click()
On Error GoTo errHandler
Dim qdf As QueryDef
DoCmd.DeleteObject acQuery, "qryTemp"
Set qdf = CurrentDb.CreateQueryDef("qryTemp", Me.Tabela2.Form.RecordSource)
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, "C:\Users\dzajo\Desktop\Nowy folder\Tbl1XLS.xls", True
exitHandler:
Exit Sub

errHandler:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume exitHandler
End If

End Sub

[June7]

What happens when you try?

I tried running your code and get error "... problem occurred while Microsoft Access was communicating with the OLE server or ActiveX Control ..."

I tested this in my db and filter not applied to export. I tried ribbon, right click, setting Filter property.

This does work:

Set qdf = CurrentDb.CreateQueryDef("qryTemp", "SELECT * FROM Umpires WHERE " & Me.ctrUmpires.Form.Filter)

But only when Filter Property is set, not with ribbon or right click filter. And if Filter property is not set it will error.