Hi Guys
I have this code in a module that runs on the form "frmLogin" on load event
Code:
Option Compare Database
Option Explicit
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
Function BypassKey(onoff As Boolean)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, onoff
End Function
when users on 64bit access open the database they get
"Compile Error: Code in this project must be updated for use on 64bit systems"
I fear I have hit another massive learning curve lol, I have been looking about the web via Google but to be honest i'm not really understanding how to resolve this
I think I have to declare PTRSafe but I am totally lost with this
any help would be wonderful
many thanks
Steve