Recent content by jeran042

GREAT IDEA! THANK YOU! Good thought, why iterate over the list again in the first place?? Here is what I ended up with. I would love any feedback on improving. Private Sub Command142_Click() ''Confirm that user want to take this action If MsgBox("This action will email ALL active...

Do I need to redeclare my variables in the next loop?

No error message, The code runs and generates the email and attaches the corresponding file, however it does not restart the list to generate the second password email. It will generate 1 password email because (I think) that is the next block of code and then finishes running.

I am trying to iterate over the same recordset twice to generate 2 separate emails. The first will attach a password protected email, and the second will be the password for said email. The first loop works exactly as desired, its restarting the loop through the recordset that I am having an...

I got it working. Here is what it ended up being: 'Open the target workbook Set targetWorkbook = excelApp.Workbooks.Open(sFilePath & sDepartment & sSubFolder & sDepartment & "_YTD_DETAIL" & ".xlsm") Debug.Print targetWorkbook.Name ' Debug.Print "Excel File " & sDepartment & "...

I have made a little headway, but am stuck again. I cant figure out why its not pasting the values to the table. The output of the debug.print is telling me I am right where I should be. 'Open the target workbook Set targetWorkbook = excelApp.Workbooks.Open(sFilePath & sDepartment &...

But would the connection be broken if theses excel files were sent out and the user did not have read access to the database?

This is an excellent suggestion. However it does not suite my needs. The reports being updated are sent to a variety of departments, none of which will have read access to the drive that the MS Access database sits on. I think the link would be broken and all they would see is an error...

Thank you, the problem is that there is a Summary sheet that does a number of calculations. So to have multiple sheets would make it very difficult to calculate the YTD dollars. There will never be adjustments to previous months. They would be accounted for in the following month. Think a...

That is what is happening now. Each month the table gets wiped clean and the full years history is pasted in. I thought it would be more efficient to just append new records then delete all old and repaste.

This makes sense, except now I get a compiler error, Sub or Function not defined. On the "Range" Open the target workbook Set targetWorkbook = excelApp.Workbooks.Open(sFilePath & sDepartment & sSubFolder & sDepartment & "_YTD_DETAIL" & ".xlsm") Debug.Print "Excel File " & sDepartment &...

So here is what I am trying. It does not seem to be working. When I debug.print the LastRow is shows 0? 'Open the target workbook Set targetWorkbook = excelApp.Workbooks.Open(sFilePath & sDepartment & sSubFolder & sDepartment & "_YTD_DETAIL" & ".xlsm") Debug.Print "Excel File " &...

Good question. The problem with making a data connection, is that it will break when we distribute the reports to the departments. If you find the first blank row, with that become part of the table? There are formulas (obviously) that are working on these tables.

Full disclosure, I did post this code to this form in the past, but that problem has been resolved. Here is what I am looking to do, and thus far I am unable to come up with any ideas. So I am looking for a little help. I have command button within an Access (MS Office 2013) form. What this...

Thank you, this helped. I changed it from: sTable = oSheet.ListObjects(1).Name 'This is where I can use some help Set tbl = oSheet.ListObjects(sTable) to sTable = .ListObjects(1).Name Set tbl = .ListObjects(sTable)