Use VBA to run a make table query

Trebormac · March 26th, 2009, 05:08 PM

I have a make table query that I would like to run from VBA. I want to be able to add or change the table name. What would be the sytax to do this via VBA?

Thanks,

Trebormac

boblarson · April 22nd, 2009, 12:36 PM

Quote:

Originally Posted by Trebormac

I have a make table query that I would like to run from VBA. I want to be able to add or change the table name. What would be the sytax to do this via VBA?

Thanks,

Trebormac

This is almost a month old, but here goes:

1. Create your make table query in the QBE grid and then

2. take the SQL of that to the VBA Window

3. You can then modify the SQL code

for example if you have a query like this:
SELECT sbqryAdmitDeals.lt_name, sbqryAdmitDeals.PortfolioName, sbqryAdmitDeals.FullName, sbqryAdmitDeals.RoleLeadFK, sbqryTRFS.RepTypeName, sbqryTRFS.RepRecd, sbqryTRFS.Status, CDate(Format(Now(),"Short Date"))-[RepRecd] AS Days, 2 AS OrderID INTO mtblFSRcvd
FROM sbqryAdmitDeals INNER JOIN sbqryTRFS ON sbqryAdmitDeals.PropertyFK = sbqryTRFS.PropertyFK
WHERE (((sbqryAdmitDeals.RoleLeadFK)=[Forms]![frmReports]![cboPrimaryContact]) AND ((sbqryTRFS.RepTypeFK)=6));

You can use this SQL in code

Code:

Dim strSQL As String
 
strSQL = "SELECT sbqryAdmitDeals.lt_name, sbqryAdmitDeals.PortfolioName, " & _
"sbqryAdmitDeals.FullName, sbqryAdmitDeals.RoleLeadFK, sbqryTRFS.RepTypeName, " & _
"sbqryTRFS.RepRecd, sbqryTRFS.Status, CDate(Format(Now(),"Short Date"))-[RepRecd] AS Days, 2 AS OrderID " & _ 
"INTO " & YourVariableNameHere & _
"FROM sbqryAdmitDeals " & _
"INNER JOIN sbqryTRFS ON sbqryAdmitDeals.PropertyFK = sbqryTRFS.PropertyFK " & _
 
"WHERE (((sbqryAdmitDeals.RoleLeadFK)= " & [Forms]![frmReports]![cboPrimaryContact] & _
 ") AND ((sbqryTRFS.RepTypeFK)=6));"

boblarson · April 22nd, 2009, 12:41 PM

And I forgot to say how you run it...
Either like:

Code:

CurrentDb.Execute strSQL, dbFailOnError

or

Code:

On Error GoTo err_handler
 
... the strSQL part...
 
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
 
ExitMySubName:
   Exit Sub
 
err_handler:
    DoCmd.SetWarnings True
    MsgBox Err.Description, vbExclamation, "Error Number: " & Err.Number
    Resume ExitMySubName
 
End Sub

You always include an error handler with DoCmd.SetWarnings True as the first line if you turn them off. That way if something fails before it can reset then it will always get reset and you won't find yourself without any warnings at all (including save warnings).

Trebormac · April 23rd, 2009, 12:24 PM

Thanks. This is helpful for future use. As it turns out I was using the make table query so I could use the TransferSpreadsheet method of the DoCmd. After doing a little home work on MSDN I came across the Output To method. This worked well since my end game was to export the results of a query to Excel.

Thanks again and best,

Trebormac

boblarson · April 23rd, 2009, 01:40 PM

Glad you got things to work for you. :) Thanks for letting me know that you had gotten it taken care of.