ini untuk mendapatlan User LoginName maksudnya ?? 2010/6/3 Ivan Leonardo <[email protected]>
> > > Semoga bermanfaat > > Private Declare Function apiGetUserName _ > Lib "advapi32.dll" Alias "GetUserNameA" _ > (ByVal lpBuffer As String, nSize As Long) As Long > > '------------------------------------------------- > ' This code is used to retrieve the network user > ' name by accessing the API apiGetUserName. > ' Created by: Unknown (Found on Dev Ashish > ' web site www.mvps.org/access/) > ' This code has not been altered in anyway. > ' Added to database: 27 dec 1999 > ' Added by: Richard Rensel > '------------------------------------------------- > > Function fOSUserName() As String > On Error GoTo fOSUserName_Err > > Dim lngLen As Long, lngX As Long > Dim strUserName As String > > strUserName = String$(254, 0) > lngLen = 255 > lngX = apiGetUserName(strUserName, lngLen) > > If lngX <> 0 Then > fOSUserName = Left$(strUserName, lngLen - 1) > Else > fOSUserName = "" > End If > > fOSUserName_Exit: > Exit Function > > fOSUserName_Err: > MsgBox Error$ > Resume fOSUserName_Exit > End Function > > ---------------------------------------------------------- > This message contains confidential information and is intended only for the > individual named. If you are not the named addressee you should not > disseminate, distribute or copy this e-mail. Please notify the sender > immediately by e-mail if you have received this e-mail by mistake and delete > this e-mail from your system. E-mail transmission cannot be guaranteed to be > secure or error-free as information could be intercepted, corrupted, lost, > destroyed, arrive late or incomplete, or contain viruses. The sender > therefore does not accept liability for any errors or omissions in the > contents of this message, which arise as a result of e-mail transmission. If > verification is required please request a hard-copy version. > > > -- Harry Siswanto Email: [email protected] http://www.facebook.com/harry.siswanto http://harry-siswanto.blogspot.com/
