VBA error in hidden module Error 32 bit to 64 bit?

[ipon70]

So I started getting this error ever since they upgraded to Officer 365.
The helpdesk says its a 32 vba error and needs to be 64 bit....

Here is the code causing the issue. When the user clicks the delete button it literally doesn't even get the MSG box it just says that above message.

Sub Edit_db()
101:
Application.ScreenUpdating = False
Sheets("REVIEW").Visible = True
If Range("M4") = "" Then
MsgBox "You have left the ID number blank." & vbCrLf & "Please enter a item ID before pressing delete", vbQuestion + vbCritical + vbOK, "DATABASE ENTRY DELETE"
Exit Sub
Else
If Range("N4") = 1 Then
MsgBox "You are trying to delete a non item." & vbCrLf & "Please enter a valid item ID before pressing delete", vbQuestion + vbCritical + vbOK, "DATABASE ENTRY DELETE"
Exit Sub
Else
answer = MsgBox("This will delete the information shown from the database." & vbCrLf & "THIS CAN NOT BE UNDONE!" & vbCrLf & "Click YES to delete the information." & vbCrLf & "Click NO to cancel.", vbQuestion + vbCritical + vbYesNo, "DATABASE ENTRY DELETE")
If answer = vbYes Then
x = InputBox("Enter your Password.", "Password Required")
If x = "123456" Then
Call db_delete_entry
Call Clear_edit
Else
If i <= 1 Then
MsgBox "Invalid Password. Try again"
i = i + 3
GoTo 101:
Else
MsgBox "Incorrect password entered too many times. Try again later."
Exit Sub
End If
End If
End If
End If
End If
Application.ScreenUpdating = True

End Sub

 

[ipon70]

Was your VBA project protected originally?

Yeah it was locked down and only a couple people had the password to the actual backend. and then the delete password was different from that and only a few people had that. Everything for years worked, then this "upgrade" happened and the entire process got borked. Then you call the "helpdesk" and they say "we blocked all macro's from running"....well I know that isn't true because 50% of the people can still use this....then two months later they say "well they aren't blocked but they will only run if they are 64 bit code"....and I am like.....I have no idea how to comply with these requests and changes.

 

[RoryA]

None of that code is bit-specific. Is that definitely the code in the Sheet9 worksheet code module?

 

[ipon70]

None of that code is bit-specific. Is that definitely the code in the Sheet9 worksheet code module?

Sheet9 is the code I posted from that sheet. Sheet9 is the "review" sheet of the excel document, which is using the code I posted before.

 

[RoryA]

Have you checked the references as Mark suggested earlier?

 

[ipon70]

Have you checked the references as Mark suggested earlier?

If you referring to looking for the "declare" statement, yes...there are no declare statements anywhere in the document.

 

[MARK858]

If you referring to looking for the "declare" statement, yes...there are no declare statements anywhere in the document.

No Rory is referring to in your VB Editor clicking the Tools icon, then clicking References and checking to see if any have the word MISSING next to them

"well they aren't blocked but they will only run if they are 64 bit code"

The only issue you have with 64bit against 32bit is when Running API code changing the declarations on anything with a hook or pointer, the Idea that they have put something in there to force an API code to run
every time you run a macro seems improbable to me.

Sheet9 is the code I posted from that sheet.

In the Project window is it showing as Sheet9 inside or outside the Parentheses (or both)?

 

[ipon70]

No Rory is referring to in your VB Editor clicking the Tools icon, then clicking References and checking to see if any have the word MISSING next to them



The only issue you have with 64bit against 32bit is when Running API code changing the declarations on anything with a hook, the Idea that they have put something in there to force an API code to run
every time you run a macro seems improbable to me.


In the Project window is it showing as Sheet9 inside or outside the Parentheses (or both)?

View attachment 122716

This is what I see for names and missing stuff

 

[MARK858]

Can you scroll down and double check none say missing, can you also while scrolling see if there is a 2.0 of atlentitypicker 1.0 type library
If there is try unchecking 1.0 and checking 2.0

 

[RoryA]

You may also want to unprotect the project and then try a Debug - Compile as that should flag specifically what is causing the error.

 

[ipon70]

Can you scroll down and double check none say missing, can you also while scrolling see if there is a 2.0 of atlentitypicker 1.0 type library
If there is try unchecking 1.0 and checking 2.0

Went through all of them and none of them said missing and 2.0 is not in there to check.