[MSAccessProfessionals] Access 2007 to Access 2019

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:
----------------

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

_._,_._,_

---

Groups.io Links:

You receive all messages sent to this group.

View/Reply Online (#115637) | Reply To Group | Reply To Sender | Mute This Topic | New Topic

Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]

_._,_._,_