Add Dateserial expression to Make Table SQL 1

[Binnit]

I have the following strSQL in a module and would like to add the date of the last day of previous month to it so that it creates a unique table each month:-

strSQL = "SELECT * INTO [tblQPDItems]FROM qryQPDDeclaration;"

For example, for October it should create a table called tblQPDItems 30/09/2006 but am not sure how to concatenate the dateserial function within the SQL string.

Thanks in anticipation











If IT ain’t working Binnit and Reboot

 

[Binnit]

Have resolved this by using Copy Object method
DoCmd.CopyObject , "QPDItems as at " & DateSerial(Year(Date), Month(Date), 1 - 1), acTable, "qryQPDDeclaration"

I would still like to know if the original method is possible.



If IT ain’t working Binnit and Reboot

 

[PHV]

strSQL = "SELECT * INTO [QPDItems as at " & DateSerial(Year(Date), Month(Date), 0) & "] FROM qryQPDDeclaration;"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Binnit]

PHV
Thanks, although having changed my method, your assistance will provide an alternative method for future use.

As always - great stuff



If IT ain’t working Binnit and Reboot