Recent content by KACJR

I can confirm that today's O365 update resolved the slowness issue. Thank you all for your assistance.

Thank you all for your responses; they were most helpful. Dropping O365 back one rev level fixed the problem! Looking forward to Tuesday updates. Hopefully they really did fix the issue.

Office 365 apps updated on their own when we added the new PCs to Intune.

Yeah, I did do that. Nothing that screams out at me.

Can't be done. It's been rolled out organization-wide. We don't use Wifi within our building. 2Gb ethernet service.

Interesting you should mention this. Every other launch of Access never gets to the splash screen. I have to go into Task Manager and end the MS Access task. The next launch is normal.

Microsoft® Access® for Microsoft 365 MSO (Version 2408 Build 16.0.17928.20114) 64-bit

You guys are the best! Digging into research now!

I come again to the well of knowledge... My shop uses a number of Access front-ends. All are connected to various DB instances on a SQL Server. They have been running pretty much faithfully for 10 years. Over the past couple of weeks, though, response time on all of the front-ends has been...

In eleven years, this has never happened. But I will take your suggestion under advisement. Yes, the Dim state is DAO.Database; I just didn't spell it all out.

OK, following your suggestions, I learned that the TILLDatabase variable is, in fact, Nothing. Somewhere in the midst of processing, TILLDatabase lost its value. Now I need to trace where this happened because it definitely should not be. The only place where I explicitly set it to Nothing is...

It is. It's a Public Dim It's used in multiple Subs and Functions throughout my app.

Dim TILLDatabase as Database

I put the breakpoint at the beginning of the sub. The error got thrown when I stepped into the DELETE statement.

Private Sub PhoneBook_Click() On Error GoTo ShowMeError ProgressMessages = ProgressMessages & "Updating Phone Directory." & vbCrLf: ProgressMessages.Requery TILLDataBase.Execute "DELETE tblPhoneDirectory.* from tblPhoneDirectory;", dbSeeChanges TILLDataBase.Execute "INSERT INTO...