ควรจะมีตารางสำหรับกำหนด Limit ของแต่ละวิชาไว้ด้วยครับ

tblLimit:

SubjectID, Limit

จากนั้นก็ใช้ DCount(), DLookup() เข้าช่วย โดยผูกไว้กับเหตุการณ์ BeforeUpdate ของฟอร์มที่ใช้ลงข้อมูลวิชาเลือกครับ

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim intMax As Integer, intX As Integer
intMax = DLookup("Limit","tblLimit","SubjectID=" & Me.SubjectId)
intX = DCount("SubjectID","tblRegister","SubjectID=" & Me.SubjectId)
If intX > intMax Then
MsgBox "ครบแล้ว..กรุณาเลือกวิชาใหม่"
Cancel = True
Exit Sub
End If
End Sub

จะลองดูครับ ขอบพระคุณ

อาจารย์ครับผมลองทำแล้วยังไม่ได้ รบกวนขอตัวอย่างไฟว์สักนิดครับ