Khalid,
You can follow the instructions at https://www.devhut.net/2017/04/13/access-x32-vs-x64-compatibility/ . I have done this successfully with several customers.
| A more and more common question in Access, and Office forums in general, relates to using Access x32 (32 bit) vs using Access x64 (64 bit). How they play together … etc. Now some people erroneously believe that since their machine is running a 64 bit version of Windows that Office is automatically 64 bit as well, or that they must install the ... www.devhut.net |
Regards,
Duane Hookom
From: Khalid Tanweer via groups.io <khalidtanweerburrah=yahoo.com@groups.io>
Hi every one!
I have removed office 2007 and installed office 2019 now i need to know my existing database which was made in access 2007 (.accdb) will need to be converted in access 2019 or i can continue working in its previous format. Further that i tried to open one of my database with current access 2019, on "Main Menu" of my application it gave me an error on one of its line in coding. My system is 64 bit. I get error message on the line after Option explicit, the code is as under:
----------------
I have removed office 2007 and installed office 2019 now i need to know my existing database which was made in access 2007 (.accdb) will need to be converted in access 2019 or i can continue working in its previous format. Further that i tried to open one of my database with current access 2019, on "Main Menu" of my application it gave me an error on one of its line in coding. My system is 64 bit. I get error message on the line after Option explicit, the code is as under:
----------------
Option Compare Database
Option Explicit
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NetworkUserName() As String
'On Error GoTo Err_Handler
Dim lngLen As Long
Dim strUserName As String
Const lngcMaxFieldSize As Long = 50&
NetworkUserName = "Unknown"
strUserName = String$(254, 0)
lngLen = 255&
If apiGetUserName(strUserName, lngLen) > 0& Then
lngLen = lngLen - 1&
If lngLen > lngcMaxFieldSize Then
lngLen = lngcMaxFieldSize
End If
NetworkUserName = Left$(strUserName, lngLen)
End If
Exit_Handler:
Exit Function
'Err_Handler:
' Call LogError(Err.Number, Err.Description, conMod & ".NetworkUserName", , False)
' Resume Exit_Handler
End Function
---------------
Help in this regard will be very much appreciated so that i move further to see any other errors coming on the way. Thanks in advance.
Khalid
Help in this regard will be very much appreciated so that i move further to see any other errors coming on the way. Thanks in advance.
Khalid
Tidak ada komentar:
Posting Komentar