Function value does not display in A2007

T

TAS

For years I have been grabbing the network user ID in A2000 and seting it as
a textbox value. Recently we updated to A2007 and the value has become #Name.

The code we used to capture the NetworkUserID still seems to be able to get
the ID if we stick a message box in the code to check it but the value does
not get pulled into the text box.

The code used to grab the ID is:
Private Declare Function acbGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Function acbNetworkUserName() As String
'Returns the network login name.
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = acbGetUserName(strUserName, lngLen)
If lngX <> 0 Then
acbNetworkUserName = Left$(strUserName, lngLen - 1)
Else
acbNetworkUserName = ""
End If

End Function

The control source for the text box is "=[acbNetworkUserName]"

What changed, and how can I get it to work again?
 
M

Marshall Barton

TAS said:
For years I have been grabbing the network user ID in A2000 and seting it as
a textbox value. Recently we updated to A2007 and the value has become #Name.

The code we used to capture the NetworkUserID still seems to be able to get
the ID if we stick a message box in the code to check it but the value does
not get pulled into the text box. [snip]

The control source for the text box is "=[acbNetworkUserName]"


I find it difficult to believe that ever worked.

The control source expression should be:
=acbNetworkUserName()
 
T

TAS

That worked. Thank you

Marshall Barton said:
TAS said:
For years I have been grabbing the network user ID in A2000 and seting it as
a textbox value. Recently we updated to A2007 and the value has become #Name.

The code we used to capture the NetworkUserID still seems to be able to get
the ID if we stick a message box in the code to check it but the value does
not get pulled into the text box. [snip]

The control source for the text box is "=[acbNetworkUserName]"


I find it difficult to believe that ever worked.

The control source expression should be:
=acbNetworkUserName()
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top