Question with

[ineedahelp]

Can someone please explain to me what the line of code:

qdf.SQL = strSQL
is accomplishing?
1.strSQL = "SELECT DailyPrice.Symbol, DailyPrice.LocateDate, DailyPrice.MarketPrice, DailyPrice.PriceFlag FROM DailyPrice " & _
"WHERE DailyPrice.Symbol IN (" & strCriteria & ") " & _
"ORDER BY DailyPrice.Symbol, DailyPrice.LocateDate;"
'*****great stuff here type: Set qdf = db.querydefs into thescripts
Set qdf = CurrentDb.QueryDefs("qryDummy")
qdf.SQL = strSQL
DoCmd.OpenQuery ("qryDummy")

Private Sub cmbSelectionDone_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String

Set db = CurrentDb()
Set qdf = db.QueryDefs("qryMultiSelect")
If Me!cboxRangeName = -1 Then
myPath = txtFilePath & txtImportName
myExport = Me!txtExportName
myImport = Me!txtImportName
DoCmd.SetWarnings (False)
DoCmd.RunSQL "DELETE * FROM TempSymbol"
DoCmd.SetWarnings (True)
DoCmd.TransferSpreadsheet acImport, , "TempSymbol", "" & myPath & "", True, "" & txtRangeName & ""
MsgBox "The symbols have been successfully imported."
strSQL = "SELECT DailyPrice.Symbol, DailyPrice.LocateDate, DailyPrice.MarketPrice, DailyPrice.PriceFlag " & _
"FROM TempSymbol, DailyPrice " & _
"WHERE (((DailyPrice.Symbol) = [TempSymbol]![Symbol])) " & _
"ORDER BY DailyPrice.Symbol, DailyPrice.LocateDate;"
qdf.SQL = strSQL
'check this out...maybe delete it later
myPath = txtFilePath & txtExportName
DoCmd.TransferSpreadsheet acExport, , "qryMultiSelect", "" & myPath & ""
MsgBox "The table have been successfully exported to: " & myExport & "."
DoCmd.Close
qdf.Close
Set db = Nothing
Set qdf = Nothing
Exit Sub..................

[NeoPa]

Set qdf = CurrentDb.QueryDefs("qryDummy")
qdf.SQL = strSQL
DoCmd.OpenQuery ("qryDummy")

First line sets qdf to point to CurrentDb.QueryDefs("qryDummy").
Second line amends the embedded SQL within qdf ==> CurrentDb.QueryDefs("qryDummy") to be strSQL.
Third line executes the amended query.

This is an extended way of executing SQL code within VB - similar to DoCmd.RunSQL().

HOWEVER, it is possible that certain QueryDef properties have been set in qryDummy which would effect how the query runs - so may not execute in EXACTLY the same way.

I use a similar method when I want to execute SQL code which needs a longer TimeOut for instance.

[ineedahelp]

thank you for your explanation...so if I understand correctly, when I create a statement

strSQL = "SELECT DailyPrice.Symbol, DailyPrice.LocateDate, DailyPrice.MarketPrice, DailyPrice.PriceFlag " & _
"FROM TempSymbol, DailyPrice " & _
"WHERE (((DailyPrice.Symbol) = [TempSymbol]![Symbol])) " & _
"ORDER BY DailyPrice.Symbol, DailyPrice.LocateDate;"
qdf.SQL = strSQL
DoCmd.TransferSpreadsheet acExport, , "qryDummy", "" & myPath & ""

I am creating a query "strSQL" and changing the definition already in place by qryDummy and then executing qryDummy with this NEW definition of strSQL. Am I close?!!! Thanks again for your help!

[NeoPa]

Yes close.

You cannot leave out the line

Set qdf = CurrentDb.QueryDefs("qryDummy")

though (unless that is entered earlier somewhere).

You are not 'creating' a query here as such : You are updating a previously existing query in the database, called 'qryDummy'.
What you're doing is changing the SQL part of the query to what you've just set up in strSQL.
The TransferSpreadsheet line will, however, execute the SQL found in strSQL (and save it to myPath), but only because you transferred it to qdf.SQL or qryDummy.SQL (<== that is not valid code - it is there merely for illustrative purposes).

[ineedahelp]

Thank you very much for the explanation...I get it now!