Run-Time error 458 Variable uses an Automation type not supported in Visual Basic
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
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
Last Comment
It's probably related to the datetime2 data type in SQL, which was implemented for ODBC, but is not available in VBA.
Jim.
Jim.
actually I may be getting my types mixed up....it may have been BigInt that was the problem with VBA.
Jim.
Jim.
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
No comment has been added to this question in more than 21 days, so it is now classified as abandoned.
I have recommended this question be closed as follows:
Accept: 'David Bernstein' (https:#a43286793)
If you feel this question should be closed differently, post an objection and the moderators will review all objections and close it as they feel fit. If no one objects, this question will be closed automatically the way described above.
seth2740
Experts-Exchange Cleanup Volunteer
I have recommended this question be closed as follows:
Accept: 'David Bernstein' (https:#a43286793)
If you feel this question should be closed differently, post an objection and the moderators will review all objections and close it as they feel fit. If no one objects, this question will be closed automatically the way described above.
seth2740
Experts-Exchange Cleanup Volunteer
Microsoft Access
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
226K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
Open in new window