Office: (Office 2016) Export an Excel aus Registersteuerelement UFO

Hallo zusammen!

Hab mir aus dem Forum nachfolgenden Code geholt, welcher super für den Export funktioniert. Die Zuweisung des zu exportierenden UFO's erfolgt über frmX.
Nun würde ich gerne dieses UFO anhängig vom aktivierten Register (wo jeweils ein UFO liegt) zuweisen.
Also wenn ich das Register 3 aktiviere und dann den Export Button drücke wird das darin enthaltenen UFO exportiert.
Habt ihr hier eine Lösung?

Danke & LG
Erich


Private Sub ExportExcel_Click()

Const ExcelDateiName = "FTE Analysis.xls"
Const tmpAbfrage = "qrytemp_1"
Dim sSQL As String
Dim qdf As DAO.QueryDef

Set frmx = Me!frm_06_1_FTE_analysis_Details

sSQL = "SELECT * FROM " & frmx.Form.RecordSource
If frmx.Form.FilterOn Then
sSQL = sSQL & " WHERE " & frmx.Form.Filter
End If

Debug.Print sSQL
On Error Resume Next
DoCmd.DeleteObject acQuery, tmpAbfrage
On Error GoTo 0
Set qdf = CurrentDb.CreateQueryDef(tmpAbfrage, sSQL)
DoCmd.OutputTo acOutputQuery, "qrytemp_1", acFormatXLS, "FTE Analysis.xls", True
DoCmd.DeleteObject acQuery, tmpAbfrage

End Sub

:)

 

Erster Ansatzpunkt:
Code:

Siehe nach, was Du als Abfrage erzeugst.

 

Hallo,
versuche mal was in der Art: Code:

 

Hallo Steffen,

bin erst jetzt dazugekommen es zu testen.
Funktioniert perfekt - genau so habe ich es mir vorgestellt.
Danke
SG
Erich

 

Damit man nicht weiter versucht, Dir Ratschläge für ein erledigtes Problem zu geben,
nutze bitte diese Möglichkeit.