troubleshooting Question

Run-Time error 458 Variable uses an Automation type not supported in Visual Basic

Avatar of David Bernstein
David BernsteinFlag for United States of America asked on
Windows 10Microsoft 365Microsoft Access
5 Comments1 Solution16 ViewsLast Modified:
I added 2 brand new computers to the network running Windows 10 pro and Office 365 latest versions
I am getting this error only on these 2 computers in one specific piece of code.
The function is used throughout the system to test that a variable is valued. I have used this code for 25 years. After the error appears the database crashes. It only occurs when printing a particular report.
Even getting the same error using a backup program database from 2016.
Function valid(x As Variant)
   If IsNull(x) Then
      valid = False: Exit Function
   End If

   If IsEmpty(x) Then
      valid = False
      Exit Function
      Else
      valid = Not (x = String$(Len(x), 0) Or x = String$(Len(x), 32))
      Exit Function
   End If
   
End Function

ASKER CERTIFIED SOLUTION
David Bernstein
Chief Developer/ Microsoft Access

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 5 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 5 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros