ขอรบกวนเวลาของอาจารย์สุภาพครับ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 238   1
URL.หัวข้อ / URL
ขอรบกวนเวลาของอาจารย์สุภาพครับ

จากข้อคำถาม
การกำหนดข้อจำกัดการลงทะเบียนครับ
เรียนอาจารย์ครับ คือผมจะสร้างตารางและฟอร์มลงทะเบียนวิชาเลือกของนักเรียนโดยฝ่ายวิชาการให้รับนักเรียนได้ไม่เกิน 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

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

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03286
ผมว่าลองเอาตัวอย่างที่เราทำมาเลยจะดีกว่าครับ จะได้แนะนำได้ตรงจุด

ผมเองตอนนี้ผมไม่มี Access ใช้ เผื่อคนอื่นสามารถช่วยแนะนำได้ด้วยครับ

ให้เอาเฉพาะส่วนที่ต้องการให้ช่วยเท่านั้น ไม่ต้องเอามาทั้งหมด แล้วอย่าลืม Compact แล้ว Zip ก่อนส่งมาด้วยนะ พื้นที่ของเว็บเราตรงนี้มีจำกัดครับ

@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0601s