Search results

Figured it out; While Not rs.EOF oExcelWrSht.Cells(oExcelWrSht.Rows.Count, 1).End(xlUp).Offset(1, 0) = rs.Fields("DateReceived") oExcelWrSht.Cells(oExcelWrSht.Rows.Count, 1).End(xlUp).Offset(0, 1) = rs.Fields("PayeeName") oExcelWrSht.Cells(oExcelWrSht.Rows.Count, 1).End(xlUp).Offset(0, 2) =...

Funnily enough, I've been thinking exactly the same. Part of my problem is that I don't really know how to do any of this stuff, so I have to nick sections of code that I find on the internet and attempt to repurpose them as best I can! I've tidied it up a bit; Public Function...

Yep, that was the problem!

I'm getting a 424 Object Required error when I try to run this. Attempting to debug by Google, but I can't see where I'm making an error - guessing it's in the syntax around rs.fields. Public Function WriteToExcel() Dim rs Dim db As DAO.Database Dim oExcel As Excel.Application Dim...

I'm using the code below to write into Excel. I know that I don't need all the Recordsets, just haven't tidied it up yet. The problem that I'm experiencing is that although I can write into Excel without issue, the Sharepoint Excel then becomes locked and there seems to be no way to 'kill'...

With a combination of this snippet and the clean up of my code from MajP, this works a treat.

Tbh, that switch is kind of defunct now anyway, so I'll need to rework that, but at least I know how to do that!

Just a couple of tweaks to that, but that works perfectly. Certainly less complex than I'd made it! I'll just work on adding a looper to it next!

Like this? Public Function SendEmail() Dim rsID As DAO.Recordset Dim rsDT As DAO.Recordset Dim rsDR As DAO.Recordset Dim rsCD As DAO.Recordset Dim rsCN As DAO.Recordset Dim rsPN As DAO.Recordset Dim rsPR As DAO.Recordset Dim rsAD As DAO.Recordset Dim...

I don't quite follow what you mean. I've only got one query?

How can I adjust this code to loop through each row in a query and send an email for each row? Public Function SendEmail() Dim rsID As DAO.Recordset Dim rsDT As DAO.Recordset Dim rsDR As DAO.Recordset Dim rsCD As DAO.Recordset Dim rsCN As DAO.Recordset Dim rsPN...

And now I'm feeling smug... here's how it's done ;) Thanks to arnelgp for his original function which I've 'stolen with pride' and repurposed.

Yes, frustratingly. I think I'll be making a request to get us on 365...

Ok, great - thanks all, that gives me plenty to work with!

So, if I had a spreadsheet which was potentially in use in between Access writing to it, I suppose I could import it (or part of it) to get the number of rows in the sheet, then use this info to tell Access where to write next.

Annoyingly, no Excel doesn't! I'll have a look at w3 as I've always thought that there would be too many rules to mess about with, but now I think about it, that capitalisation thing I learned the other day might well suffice...

Can Access write a new row into an Excel spreadsheet, or does it have to overwrite the entire sheet each time?

At the moment I have a database which churns out 4 columns of information into an Excel sheet. In this sheet, I have a formula which concatenates the information, and then uses a very useful Excel plugin called SEOTools, to create a hyperlink with all the necessary URL encoding. Whilst this is...

Not quite sure why I didn’t just try it before I posted! Yes, just slotted it in and it worked perfectly (once I’d remembered to add ‘ID’ into the relevant query beforehand...)

Superb, thank you!