ถ้านักเรียนทั้งหมดมี 200 คนโดยไม่มีการข้ามรหัสใดๆเลย ก็สามารถเขียนโปรแกรมเพื่อทำการสร้างเรคอร์ดในตารางลงทะเบียนให้แก่นักเรียนทั้งหมดได้เลย คงขาดแต่รหัสภาคเรียนที่ไม่ทราบว่าค่าเป็นอะไร

โครงคร่าวๆก็จะเป็นอย่างนี้

dim db as dao.database
dim rs as dao.recordset
dim n as integer

set db = currentdb
set rs = currentdb.openrecordset("ชื่อของตารางลงทะเบียนเรียน")
for n = 1 to 200
   select case n
      case 1 to 100
        rs.addnew
        rs!ชื่อฟิลด์รหัสนักศึกษา = n
        rs!ชื่อฟิลด์วิชาลงทะเบียน = รหัสวิชา ก.
        rs!ชื่อฟิลด์รหัสภาคเรียน = ____
        rs.update

        rs.addnew
        rs!ชื่อฟิลด์รหัสนักศึกษา = n
        rs!ชื่อฟิลด์วิชาลงทะเบียน = รหัสวิชา ข.
        rs!ชื่อฟิลด์รหัสภาคเรียน = ____
        rs.update

      case 101 to 150
        เขียนลักษณะเดียวกับข้างบน ใส่ค่าให้ถูกต้องตามต้องการ

      case 151 to 200
        เขียนลักษณะเดียวกับข้างบน ใส่ค่าให้ถูกต้องตามต้องการ
next n
rs.close: set rs =nothing

แต่ถ้ามีรหัสนักเรียนที่ข้ามบางเลข คูณก็ต้องเขียนเช็คเงื่อนไขเพื่อข้ามการ addnew สำหรับเลขเหล่านั้นไป

แก้ไขนิดนึง ก่อนบรรทัด next n ผมขาดคำสั่ง end select ไปนะครับ