ให้ดู Properties ของฟอร์มในหมวดของ Data จะเห็นค่าเหล่านี้

Allow Edits
Allow Detetions
Allow Additions
Data Entry

โดยจะมีค่าเป็น True หรือ False

ส่วนอีกตัวหนึ่งคือ NewRecord จะเป็นตัวบอกว่าฟอร์มอยู่ในฐานะที่จะเพิ่มข้อมูลใหม่หรือไม่

ลองใส่โค้ดต่อไปนี้ลงในส่วนของ On Load ของฟอร์มที่เปิดในโหมดต่างๆ ดูครับ แล้วลองประยุกต์ใช้ดู

Private Sub Form_Load()
Dim strString As String
strString = "Additions = " & Me.AllowAdditions & vbCrLf & "Edtions = " & Me.AllowEdits & _
vbCrLf & "Deletions = " & Me.AllowDeletions & vbCrLf & "Add =" & Me.NewRecord & _
vbCrLf & "Data Entry = " & Me.DataEntry
MsgBox strString
End Sub

ขอบคุณครับอาจารย์เดี๋ยวจะลองทำดู

ขอถามเพิ่มครับ การเซ็ทโหมดของ subform จากปุ่ม delete บนเมนฟอร์ม
ผมต้องการลบข้อมูลโดยใช้คลิกปุ่มลบที่อยู่บนเมนฟอร์ม

DoCmd.SetWarnings False
[Forms]![m_main]![m_sub].AllowDeletions = True
Me.AllowDeletions = True
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


มัน Errorที่บรรทัดนี้ครับ

[Forms]![m_main]![m_sub].AllowDeletions = True

มันขึ้น object does't support this property or method
ไม่ทราบไวยากรณ์ต้องเป็นแบบใหนครับ

เนื่องจากเราอ้างอิงถึง SubForm ต้องมีคำว่า Form ด้วยครับ

[Forms]![m_main]![m_sub].Form.AllowDeletions = True

ลองดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=330 เพิ่มเติมนะครับ

ส่วนการลบข้อมูลปัจจุบัน ควรใช้คำสั่งนี้ดีกว่าครับ

DoCmd.RunCommand acCmdDeleteRecord

ควรหลีกเลี่ยงการใช้คำสั่ง DoMenuItem ต่างๆ ถ้าไม่จำเป็นหรือมีคำสั่งอื่นที่ทำงานแทนกันได้ครับ

ลองค้นด้วยคำว่า acCmdDeleteRecord เพิ่มเติมดูนะครับ

ขอบคุณครับเดี๋ยวจะลองดูใหม่