Require to export to excel with the dynamic SQL generated during runtime in the Form

[ruthboaz]

Hi,

I am creating the following query during run-time.

Dim ctl As Control
Dim varItem As Variant
Dim strSQL As String

Dim stDocName As String

'From the list box the table fields will be selected and a sql is generated

Set ctl = Me!lstFieldSelect
strSQL = "Select "
For Each varItem In ctl.ItemsSelected
strSQL = strSQL & ctl.ItemData(varItem) & ", "
Next varItem

strSQL = Left$(strSQL, Len(strSQL) - 2)
strSQL = strSQL & " from tblDocList"

Based on this SQL thats generated I need to create a empty excel file with the
field names as the heading of each columns in the excel.

Is there a code to create a Query with the sql created above during runtime.
So I can attach to the following for exporting to excel.

DoCmd.OutputTo acOutputQuery, (this has to be the dynamic query, above generated in the strSQL variable), acFormatXLS

Pls assist.
Thanks..

Regards,
Ruth.

[PEB]

Hi,

Save your SQL as Query!

Set mydb = CurrentDb()
Set Myquery = mydb.CreateQueryDef(names, SQLS)


:)

[ruthboaz]

Hi,

Save your SQL as Query!

Set mydb = CurrentDb()
Set Myquery = mydb.CreateQueryDef(names, SQLS)


:)

Hi,

Thank You for the help and the quick response, just what I was searching for..
I am new to Access Form. Thanks again.

Regards,
Ruth.