Search results

Have you noticed whether the slowdown happens when you are performing particular actions in your db, eg copying records? This bug doesn't yet seem to have been fixed, though it suggests a workaround

Add a new standard module for testing and paste in the following function: Function ReportPrinters() Dim rpt As Object For Each rpt In CurrentProject.AllReports DoCmd.OpenReport rpt.Name, acViewDesign Debug.Print rpt.Name, Reports(rpt.Name).Printer.DeviceName DoCmd.Close...

Do you have any reports in your database?

Good call. (y)

It was a pseudo example

Say I wanted to know the number of orders I have outstanding today, I could write a query: SELECT Format(OrderDate, 'yyyy\-mm') AS Period, COUNT(*) AS Outstanding FROM orders WHERE DateCompleted IS NULL AND DateDeleted IS NOT NULL GROUP BY Format(OrderDate, 'yyyy\-mm') ; But say I...

(y)

I think 99% of folks reading this thread thought that was what you meant (not active = trash)! :ROFLMAO: I would use date fields instead of Booleans. Null = active or not trash Date shows when state was changed

What about anti-virus?

Look at the signature for the Collection.Add() method. The Key parameter/property is a string (Cf. where I used "AlphaTab" & i in my example)

Also check: 1. Your db is not in a OneDrive syncing folder 2. Whether your anti-virus is interfering

See here for a current thread

Check MajP's suggestion. I was just building on top of what you had done, but better to dial back a bit further.

In Form_Unload() you should set strAlpha within the loop, no?

This is the way I would do it too.

See my reply #30

Belay that! The variable goes out of scope at the end of the proc! Some more slight adjustments: Option Compare Database Option Explicit ' ... Private Const cstrAlphabet As String = "#ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Dim WithEvents mlClsAlphaCmd As ClsAlphaCmd Private m_colAlphaCmds As Collection...

@Gasman You're over-complicating. Remove the declaration Dim WithEvents mlClsAlphaCmd As ClsAlphaCmd Then adjust SetAlphaButtons() Private Sub SetAlphaButtons() ' Use clsCommand for the buttons for alphabet Dim i As Integer Dim acmd As ClsAlphaCmd For i = 1 To 27 Debug.Print...

Are you pasting code from Word/LibreOffice Writer? If so, it may have extra hidden characters for end of line? Do you get the same if you paste in to a proper text editor? Really, all code should be kept as far away as possible from word processors! One good trick, however, is to use...

@jwcolby54 Please use code tags ( </> button on the text editor toolbar ) when posting huge great gobs of code - it makes it much easier for everyone to read and understand. Thanks. (y)