Recent content by jd.willis

This code exports the data, however I need also copy over the column headings from the query into this template inorder to have the published correctly. The row that has to be overwritten is preformatted with a border color and auto filter. Any ideas/suggestions I can try to have this do...

Updated original message.

I'm attaching the query results that I pasted into a spreadsheet. Also attaching a sample db with the existing query and the excel template file. Thank you in advance for help with this! (I appologize I uploaed the wrong template file) Updated the correct template file to TMC_eDRO3000...

Also in the template file I would like to overwrite the column headings as those change according to the trans date.

I have a crosstab query this is set up as such: TRANSFORM Sum([30q_Rehab_RVU_Summary_Step_01].RVU) AS SumOfRVU SELECT [30q_Rehab_RVU_Summary_Step_01].COID, [30q_Rehab_RVU_Summary_Step_01].Post_Date, [30q_Rehab_RVU_Summary_Step_01].Pt_Num, [30q_Rehab_RVU_Summary_Step_01].Pt_Name...

Thank you for that! I added the line to my code.

Thank you! I will look at that option as well.!

Thank you! What I did was set up another table for No Data Messages. Added the following and its working great! If rst.EOF = True Then Set rst = db.OpenRecordset("30t_NO_DATA") End If Thank you!

Would I do something like this: IF COID = "" Then RST = "NO DATA FOR THIS DATE" End if I'm still learning VB, and trying to understand.

:confused::confused::confused: I have a query that is ran daily and the results of the query are exported to excel. I'm working on automating this. However this query does not always have results I have code put together to export the query when the results are present into the new file. What...

OK, I figured it out. I added the necessary END IF statements and its all working correctly! Thank you again for your help I'm posting the code for others to reference AGAIN! THANK YOU! Private Sub NEKMH310_Click() On Error Resume Next Dim sCriteria As String Dim db As Database...

Ok, I'm still trying to understand, However I changed the code as such: by combining the if then statements as below. Not sure if this is correct or not, but i'm still getting the BLOCK if without End if error. Private Sub NEKMH310_Click() On Error Resume Next Dim sCriteria As String...

Thank you again for your help. Now what I'm trying to do is specify the template to use and the save to location. I have added the if then statements for each COID and now i'm getting a compile error. Block If without End if. the break point is on End Sub I really appreciate all of your...

Thank you Soo much for your help with this!!!!!!!!! Works great!:):):):):):):):)

All of the COID's are in the same table. I wanted to set it up because each COID is published to its own report. Ie. NE_eKMH310 Daily Charges.xls SE_eKMH310 Daily Charges.xls etc. Currently the code is set up to autosave the file as NE_ekh310.....xls If I add a combo box to select...