Recent content by macca the hacke

Hi Bob Thanks I was trying Me.("SR" & i).SourceObject = strSubReport and it didn't like it! Didn't think of the controls reference! You're a star!

The problem I have is that there will be more than 1 subreport on the report, and I am using a loop function to obtain source: Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("tbl_mappingtable_weekly_subreports"...

Thanks Bob - obvious when you think about it!

Hi Having brain fade! How do I insert an existing subreport onto an existing report using vba? I cannot just have subreports on report and then hide/unhide them, as there are a lot of them and would make the report very slow to open. Depending on user options there could be between 1 - 10...

If that code is copied exactly from your code, then have you tried changing Set objFile = objFSO.OpenTextFile("J:\apps\timesaver\impexp\prev ious csv files\" & strperiod & "-gh6.csv", ForReading) to Set objFile = objFSO.OpenTextFile("J:\apps\timesaver\impexp\previous csv files\" & strperiod...

Instead of taking out the yes/no field, why don't you just change your code at the top so that it sets blanks to 0 - ie: IIf([fuelperKM]=yes,[priceperKM]*[TotalKM],0)

So you are saying that the leave for every employee will be the same fixed number? If that is the case then in the query that the report is bound to, just insert a field and define the leave: ie leave:28 would give you a field called leave, which would always be 28 obviously change field...

Just reference the combo box in a text box on the report - this assumes that the form stays open when the report is run ie if combo box used to pick parameter is [cmb_parameter] then reference in the text box on the report as: [frms]![yourformname]![cmb_parameter]

sounds as if access isn't recognising field as a number - are there values that are not numbers?? - Is the underlying field in the table set to be a number?

Can you not have a table that ranks the fields on x axis (ie easy = 1, average = 2,etc), then sort by that field?

if I understand your problem correctly, your report is bond to a table containing work days for employees, and another table shows holiday data. Build a query to join the 2 tables together (joined by emplyee no or whatever your primary key is) and then bind report to this query

Thanks Gemma / George I am sure that will do the trick

Try this code: ** code start** Dim objFSO As New FileSystemObject Dim objFile As Scripting.TextStream Dim strContents Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("your csv file including location"...

Here is a link to a good article on how to automate excel from access - I have used it several times and is really good (I am assuming here that the csv files you export anre small enough to handle through excel - if not would have to open through notepad, but that is no problem)...

When you are outputting the data into excel, why don't you name it what you want it to be first of all - and then open excel and rename sheets, etc?