Windows 10: Compile Error: THe code in this project must be updated for use on 64-bit systems. Please...

hello!

I have a new laptop and I am trying to open my Access program. I am IT challenged to say the least and I need some help.. thank you in advance.. I keep getting the above statement and this


Option Compare Database

Option Explicit



Global glngJobDescID As Variant

Global gstrJobDescNo As String

Global gstrUserName As String

Global glngNewNumber As Long

Global gstrCriteria As String



Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _

"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _

(ByVal hwnd As Long, ByVal lpString As String) As Long



Private Declare Function apiGetComputerName Lib "kernel32" Alias _

"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Function isLoaded(strFrmName As String) As Boolean

'isLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, acForm, strFrmName)



If CurrentProject.AllForms(strFrmName).isLoaded Then

If Forms(strFrmName).CurrentView > 0 Then

'loaded in any view aside from DESIGN VIEW

isLoaded = True

End If

End If

End Function



Function ShowCurrentUser()

MsgBox "The Current User is: " & CurrentUser()

End Function



Function fOSUserName() As Variant

Dim lngLen As Long, lngX As Long

Dim strUserName As String

Dim rs As Recordset



strUserName = String$(254, 0)

lngLen = 255

lngX = apiGetUserName(strUserName, lngLen)



If lngX <> 0 Then

fOSUserName = Left$(strUserName, lngLen - 1)

Else

fOSUserName = "Anonymous@" & fOSMachineName()

End If

Set rs = Nothing

End Function



Function SetGrpFtrLoc(rpt As Access.Report, dblGrpFtrLoc As Double)



'Convert inches to twips

'dblGrpFtrLoc = dblGrpFtrLoc * 1440



'Convert centimeters to twips

dblGrpFtrLoc = dblGrpFtrLoc * 567



If rpt.Top < dblGrpFtrLoc Then

rpt.MoveLayout = True

rpt.NextRecord = False

rpt.PrintSection = False

End If



End Function

Function fSelModule(stModule) As String



If IsNumeric(Mid(stModule, 3, 1)) Then fSelModule = stModule Else fSelModule = Left(stModule, 2)



End Function

Function CreateQuery(strQryName As String, strSQL As String) As Boolean

On Error GoTo CreateQuery_Error



Dim db As Database

Dim qdf As QueryDef

Dim intErr As Integer



On Error Resume Next

Set db = CurrentDb()

Set qdf = db.CreateQueryDef(strQryName, strSQL)

intErr = Err

If intErr <> 0 Then

Set qdf = Nothing

DoCmd.DeleteObject acQuery, strQryName

Else

CreateQuery = True

GoTo CreateQuery_Exit

End If

On Error GoTo CreateQuery_Error

Set qdf = db.CreateQueryDef(strQryName, strSQL)



CreateQuery = True



CreateQuery_Exit:

Set qdf = Nothing

Set db = Nothing

Exit Function



CreateQuery_Error:

CreateQuery = False

MsgBox "OOPS! a Query Error" & Chr(13) & Err & ": " & Err.Description, vbCritical, "Create Query"

Resume CreateQuery_Exit



End Function

Function fOSMachineName() As String

' This code was originally written by Dev Ashish.

' It is not to be altered or distributed,

' except as part of an application.

' You are free to use it in any application,

' provided the copyright notice is left unchanged.

'

' Code Courtesy of

' Dev Ashish

'





'Returns the computername

Dim lngLen As Long, lngX As Long

Dim strCompName As String

lngLen = 16

strCompName = String$(lngLen, 0)

lngX = apiGetComputerName(strCompName, lngLen)

If lngX <> 0 Then

fOSMachineName = Left$(strCompName, lngLen)

Else

fOSMachineName = ""

End If

End Function

:)

 

Changing Office from 32 bit to 64 bit


The only compatibility issue with 64-bit Office that I am aware of is with compiled Access applications. An Access app compiled with 64-bit Office will not run on a system with 32-bit Office. So if you have 64-bit Office and want to make a compiled Access app that runs on 32-bit Office you have to recompile the source code on a 32-bit Office system and then use that to distribute to other 32-bit Office machines.

 

Error during iTunes installation in Windows 10 64 bits version

Hi,

Thank you for posting in Microsoft Community.

As you said that " it worked fine with 32-bit version", and there is a problem in installing in 64-bit version. But iTunes application is compatible with both the versions. There may be an issue with the PC which/iTunes application which is not supporting
the particular PC.

The error code which you have provided is related to Windows update.

I suggest you to run the Windows update troubleshooter and check if it helps.

You can follow the steps:

• 
  Type Troubleshooting in the search box present in the Taskbar.
  
• 
  Select Troubleshooting.
  
• 
  Select View all on the top left corner.
  
• 
  Run Windows update Troubleshooter.
  

Let us know the status of the issue.

Thanks.

 

NVIDIA Support Plan for 32-bit and 64-bit Operating Systems

Source: Support Plan for 32-bit and 64-bit Operating Systems | NVIDIA