ข้อที่ 1 ถ้าหมายถึง ต้องการที่จะเปลี่ยนค่านี้โดยการคลิกเลือกที่ค่าใดๆ แล้วนำไปเป็นค่าตั้งต้นได้เลย ก็ให้ลองดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=568 ครับ

ส่วนการอ้างอิง control ใดในตัวมันเองที่เป็น subform จะต้องใช้ Parent เข้ามาช่วยด้วย

ลองดูโค้ดที่ผมแก้ให้ครับ

Sub UpdateNow()
Me.HomeDesc.Requery
If IsNull(Me.Parent.Form1.Form.Moo) Or Me.Parent.Form1.Form.Moo <> "" Then
Me.Parent.Form1.Form.HomeDesc.SetFocus
SendKeys "%{Down}{Down}", False
End If
End Sub

Private Sub Sex_DblClick(Cancel As Integer)
Me.ActiveControl.DefaultValue = "'" & Me.ActiveControl & "'"
End Sub

ใช้ได้แล้วครับอาจารย์กราบขอบพระคุณมาก ๆ ครับ และสีสันสดใสน่ารักมากครับกับเว็บบอร์ดที่ปรับปรุงใหม่