Excel Forum

รบกวนสอบถามค่ะ ต้องการให้ field ใน ฟอร์มโชว์ Last Updated user โดยใช้คำสั่ง

=Environ$("UserName") ต้องทำยังไงค่ะ งง พยามยามทำหลายทีแล้วก็ไม่ได้

บางบทความบน internet ให้ set =fOSUserName() ที่ field ในฟอร์มที่ต้องการโชว์ที่ control source ก็ไม่ได้ค่ะ งง จัง รบกวนผู้รู้ด้วยค่ะ

Environ$("UserName") เป็นฟังก์ชั่นใน VBA ครับ

ถ้าต้องการให้โชว์ในฟอร์ม Access สามารถทำอย่างไรได้ค่ะ ต้องการให้โชว์ในช่อง Idea updated by โดยโชว์เป็นชื่อของ User โดยอัตโนมัติ ไปเห็นคำสั่งตัวอย่างที่มีคนแนะนำตามนี้ แต่ก็ใช้ไม่ถูกค่ะไม่ทราบว่าต้องไปวางไว้ตรงไหน

Code:
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() 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 = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function


ส่วน Code นี้ให้วางไว้ที่ text box
Code:
Call fOSUserName
UserNameTXT.Value = fOSUserName

การวาง Code VBA ในกล่องความเห็นของฟอรัมให้ดูตัวอย่างที่นี่ จะได้สะดวกในการอ่านและ Copy ไปทดสอบ viewtopic.php?style=3&f=3&t=1187

สำหรับการดึง Username มาแสดงไม่จำเป็นต้องไปดึงจาก API สามารถเขียน Code เพื่อดักจับ Event ที่เกิดขึ้นเช่นตอนเปิด Form แล้วนำ Username ไปแสดงใน Control ได้เลย

การวาง Code จะวางใน VBE (Visual Basic Editor) ซึ่งต้องทราบได้เองว่าอยู่ตรงไหน ไม่เช่นนั้นก็ยังไม่ควรใช้ VBA ต้องศึกษามาก่อนตามลำดับครับ

ขอบคุณค่ะ