ACCESS FEED: Re: [belajar-access] Mau tanya mengenai Macro Access username

Kamis, 27 Februari 2014

Re: [belajar-access] Mau tanya mengenai Macro Access username

sub akan mengerjakan rutin, function adalah sub yang mengembalikan hasil.

sub printMe(str as string)
msgbox str
end sub

di jadikan function:

function printMe(str as string) as string
printMe = str
end function

jadikan recordsource dari textbox di form anda menjadi:
=printMe()

aksan kurdin

' Makes sure all variables are dimensioned in each subroutine.

' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

' Main routine to Dimension variables, retrieve user name
' and display answer.
Sub Get_User_Name2()

' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
MsgBox UserName

End Sub

On 2/28/2014 9:07 AM, novendra ahmad wrote:
> ' Makes sure all variables are dimensioned in each subroutine.
>
>
> ' Access the GetUserNameA function in advapi32.dll and
> ' call the function GetUserName.
> Declare Function GetUserName Lib "advapi32.dll" Alias
> "GetUserNameA" _
> (ByVal lpBuffer As String, nSize As Long) As Long
>
> ' Main routine to Dimension variables, retrieve user name
> ' and display answer.
> Sub Get_User_Name2()
>
> ' Dimension variables
> Dim lpBuff As String * 25
> Dim ret As Long, UserName As String
>
> ' Get the user name minus any trailing spaces found in the name.
> ret = GetUserName(lpBuff, 25)
> UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
>
> ' Display the User Name
> MsgBox UserName
>
> End Sub