Search results

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...

Ok, One more question!!! The sample works perfectly! I eliminated 3 of the COID's in what was posted. the original query that this was referencing only pulled COID "NE" when I posted this code into my db it is working correctly except that it is pulling ALL COID's into this file I plan...

Thank you!!!!!! Everything works perfectly! I actually answered the question I was going to ask before I posted it. I wanted to automatically have it save the file as filename ([post_date]+1).xls trying different variations I was able to accomplish this! I am posting the completed updated...

Thank you I will take a look at it in the morning. I've already left work for the day! Again I cannot say enough THANK YOU!

I've removed all sensitive data copied just the table and query that i'm working with here to a new db. I have also removed all other COID info other than NE. Thank you soo much for your help!\

I'm making a copy of it now that I can strip down. as it stands right now the db file size is 1.4 GB. I have already removed all daily transaction detail except for one day! I will look at the summary tables. It also may take a while I have to remove patient data also. Thanks again. Will...