Why not use two tables witha a form and subform?
This code on the afterUpdate event of the subform, will detect when the student attempts too enter more than six choices.
Private Sub Form_AfterUpdate()
Dim numRecs As Integer
Dim fred As Variant
numRecs = DCount("CourseID", "Enrolments", "key =...