อนุญาต/ไม่อนุญาต ให้เพิ่มเรคคอร์ดด้วยโค้ด

[kitisak]

ตามรูป เราจะเขียนโค้ด อนุญาต/ไม่อนุญาต ให้เพิ่มเรคคอร์ดด้วยโค้ด ไดอย่างไรครับ

[chai]

Private Sub Form_Open(Cancel As Integer)
Me.AllowAdditions = False
End Sub

[kitisak]

ขอบคุณอาจารย์ chai
ถ้าใช้โค้ดนี้เพื่อสั่ง sub form ต้องทำอย่างไรครับ

[chai]

Me.FormSub.Form.AllowAdditions = False