ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_any_version&Number=210218&page=0&view=&sb=&o=&fpart=&vc=1&PHPSESSID=

เขาต้องการเปลี่ยนค่า Default Value ของฟีลด์ใดๆ ในตารางให้เป็นไปตามค่า CurrentUser (ชื่อของผู้ใช้ที่เปิดใช้งานอยู่ในขณะนั้น)

แต่เนื่องจากโปรแกรมของเขาเป็นระบบ MultiUsers งานที่เขาต้องการจึงเป็นไปไม่ได้ ผมเลยแนะนำให้เขาเปลี่ยนค่าในส่วนของ Form แทน

ผมแนะนำโค้ดเขาไปดังนี้ครับ

Private Sub Form_Load()
Me.MyDefault.DefaultValue = "'" & CurrentUser & "'"
End Sub

ส่วนถ้าใครสนใจโค้ดในการเปลี่ยนค่า Default Value ก็ลองใช้โค้ดนี้ดูครับ

Sub ChangeDefaultValueInTable()
Dim dbs As Object
Set dbs = CurrentDbdbs.TableDefs("Table1").Fields("MyDefault").Properties("DefaultValue") = CurrentUser
End Sub

แต่เขาบอกว่าเขามีกว่า 40 Forms คงจะไม่สะดวกถ้าต้องเข้าไปเปลี่ยนโค้ดที่ละอัน
ผมเลยแนะนำให้เขาใช้โค้ดนี้ดู

Sub ChangeDefaultValueInAllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
DoCmd.OpenForm obj.Name, acDesign, , , , acHidden
Forms(obj.Name).Controls("AuditTrail").DefaultValue = "'" & CurrentUser & "'"
DoCmd.Close acForm, obj.Name, acSaveYes
Next obj
Set dbs = Nothing
End Sub