Re: [MSAccessProfessionals] Access 2007 to Access 2019

Hi Duane,
Thanks for the link, i got help from it and it is resolved. Now there comes the second error:

Private Declare Function apiGetComputerName Lib "kernel32" Alias _

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

Function fOSMachineName() As String

'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
-----------------
On the top first line of code
Private Declare Function........
Thanks, Khalid

_._,_._,_

---

Groups.io Links:

You receive all messages sent to this group.

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

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

_._,_._,_