จากข้อคำถาม
การกำหนดข้อจำกัดการลงทะเบียนครับ
เรียนอาจารย์ครับ คือผมจะสร้างตารางและฟอร์มลงทะเบียนวิชาเลือกของนักเรียนโดยฝ่ายวิชาการให้รับนักเรียนได้ไม่เกิน 30 คน ต่อ 1 วิชาเลือกครับ ผมจะต้องใช้วิธีใดครับที่เมื่อนักเรียนลงทะเบียนคนที่ 31 โปรแกรมจะล็อคและแจ้งว่า "ครบแล้ว..กรุณาเลือกวิชาใหม่" และในแต่ละวิชาอาจารย์ผู้สอนสามารถกำหนดจำนวนการรับนักเรียนได้เอง ขอความอนุเคราะห์จากท่านอาจารย์แนะนำด้วยครับ ขอขอบพระคุณล่วงหน้า

โดยคุณ : วิชัย | วันที่ : 31 พฤษภาคม 2546 | เวลา 14:30:51 น.

ความคิดเห็นที่ 1

ควรจะมีตารางสำหรับกำหนด 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

*******************************
อาจารย์ครับผมลองทำแล้วยังไม่เข้าใจครับจะรบกวนอาจารย์ขอตัวอย่างไฟว์สักหน่อยได้ใหมครับ ขอบพระคุณล่วงหน้าครับ (ผมฝึกหัดใหม่)
********************************