Re: [MSAccessProfessionals] Access 2007 to Access 2019

Hi Khalid,

Same answer.

Regards,

Duane

---

From: Khalid Tanweer via groups.io <khalidtanweerburrah=yahoo.com@groups.io>

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