ผมคัดลองข้อความของ อ.สุภาพ มาให้ลองประยุกต์ใช้ดูนะครับ

ลองแบบนี้ครับ โดยให้เปลี่ยน Table1 ในโค้ดให้ตรงกับชื่อตารางเป้าหมายของเรานะครับ โค้ดนี้ใชักับเหตุการณ์ BeforeUpdate ของฟอร์มที่คีย์ข้อมูลลงไปครับ

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*","Table1") > 100 Then
MsgBox "You are not allowed to add any more record", vbOKOnly, "Record Limit"
Me.Undo
Cancel = True
End If
End Sub

ขอบคุณอาจารย์มากๆเลยครับ