Search results

The commented out IF at the end checking if any were found did not work when found. I tried 2 to 100000, it to 28 seconds but there must be another bug because the found list was the same.

3 Seconds for 2 to 30000 but I had to fix a bug and added a timer. ' Sub-procedure to find and display perfect numbers Public Sub FindPerfectNumbers() Dim StartRange As Long Dim EndRange As Long Dim CurrentNumber As Long Dim PerfectNumbersFound As String Dim NumbersFound...

If you are feeling extra evil, pour the punches into a defroster vent.👹

Form events are for user actions, In code you are filling the current data where the user input is not inserted into the field until the after the before update event. But why would you want to populate a control with invalid data from code?

Is the issue with Get and Let, only with Interface properties? I use public and private properties all the time. Public Property Get LastError() As Long LastError = m_Error End Property Private Property Let LastError(ByRef NewValue As Long) m_Error = NewValue End Property

Add something to the WHERE that can use an index to reduce the number to records to search. LIKE cannot use indexes with wild cards on the front.

Each subroutine should do one thing. If you find yourself doing "exit sub" or deep" if then elseif", it's time to break it up. It also simplifies your error trapping with fewer errors to handle per routine.

There is no reason to go though DoCmd, instead use the controls directly. Assuming your sub-form's control name is Form6 and the control on the sub-form is Provider_Decision With Me.Form6 .SetFocus .Provider_Decision.SetFocus End With

When using Albert's loader, I wrap the external dll inside a VBA class. This allows the class to do lazy loading and handle broken references giving me intel-sense in VBA. On a side note, I have always had an issue were the 1st call of LoadLibrary returning a LastDllError = 203 "The system...

Some books.

Some dos and some access.

I disallow zero length strings on all my text fields. I guarantees things like NZ([TextField],"N/A") will always work. PS I would only use NZ in a form or report control, not in a query, leave the NULL until it's time to present it to the user.

Add a unique index on student ID and homeroom ID in the link table.

I have been using Albert's loader for loading my Autodesk Vault interface, it work great. His sample PDF merge is also very handy. PS it would be nice if this site would wave the limits for Albert so he could better participate in this forum.

Each region handles numbers and dates differently with dates being particular difficult. Converting to string for processing leaves much room for error. Converting to native types allows the operating system to handle the reginal differences. Comparing 2 date/time values is simple If DateTime1 >...

Use the TimeValue and DateValue functions may work. SELECT tbl_Schedule.Client_Id, tbl_Schedule.TheDate, tbl_Schedule.Start_Time, tbl_Schedule.End_Time FROM tbl_Schedule WHERE (((tbl_Schedule.Client_Id)='600123') AND ((DateValue(tbl_Schedule.TheDate))=#10/28/2025#) AND...

Trying to handle reginal issues with string processing looks like a never ending chase. Work with your values in native types and let Microsoft handle the reginal issues. Wherever possible I use typed parameters in queries and process nulls using functions to return a typed value. For example...

I use the new browser control to open the Autodesk Vault Thin Client allowing users to browse the Vault to select assembly models to import BOM. Programming the browser using Javascript and the ExecuteJavascript function. The following code logs into the vault using a read only username and...

If you are using a "Pro" version of Windows 10 or 11, Hyper-V is available and can be enable in "Program and Features" / "Turn Windows features on or off". You will find wizards to create Windows or Linux VM.

You need double quotes around the * strSQL = "SELECT dbo.UserLog.ID, dbo.UserLog.UserProjectNo, dbo.UserLog.UserEmail, dbo.UserReg.EmpName, dbo.UserReg.EmpLevelA, " _ & "dbo.UserLog.UserIn, dbo.UserLog.UserOut " _ & "FROM dbo.UserReg INNER JOIN dbo.UserLog ON dbo.UserReg.EmpEmail =...