ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_design&Number=154482&page=0&view=collapsed&sb=5&o=7&fpart=1&vc=1&PHPSESSID= 
 
เขาต้องการให้สามารถเปลี่ยนค่า Default Value กับ Text Box ใดๆ ได้ตลอดเวลา เมื่ออยู่ใน Form ที่แสดงแบบ Datasheet View. 
 
ผมเลยให้โค้ดเขาไปดังนี้ 
 
ถ้าเป็นฟีลด์ Date/Time 
Private Sub MyDate_DblClick(Cancel As Integer) 
    Me.ActiveControl.DefaultValue = "#" & Me.ActiveControl & "#" 
End Sub 
 
ถ้าเป็นฟีลด์ Text 
Private Sub MyName_DblClick(Cancel As Integer) 
    Me.ActiveControl.DefaultValue = Chr(34) & Me.ActiveControl & Chr(34) 
End Sub 
 
 ถ้าเป็นฟีลด์ Number 
Private Sub Salary_DblClick(Cancel As Integer) 
    Me.ActiveControl.DefaultValue = Me.ActiveControl 
End Sub 
*** Edited by Supap Chaiya *** 5/4/2546 21:09:31