ผมใช้คำสั่ง INSERT INTO จากตาราง student ไปยัง ตาราง student_exit
เฉพาะเงื่อนไข WHERE studstatus = '2'
ปรากฎว่ามันเป็นสีเหลืองที่ DoCmd.RunSQL strSQL แถวๆบรรทัดสุดท้ายครับ
ต้องการถามว่า
1. จะแก้ไขตรงไหนครับ ทั้งๆที่ ลองใช้ INSERT INTO สัก 6 ฟิลด์ สามารถทำได้ไม่มีปัญหา
2. มีวิธีการที่จะนำ เรคคอร์ดที่ตรงกับ ฟิลด์ เงื่อนไข WHERE เข้าไปในตาราง โดยไม่เขียน โค๊ดยาวขนาดนี้ไหมครับ

Private Sub Command218_Click()
        Dim strSQL As String
        DoCmd.SetWarnings False
        strSQL = "INSERT INTO student_exit(id_student, pin, prifix, Frist_name, Last_name, Nickname, old_name, prefix_eng, firstn_eng, Lastn_eng, disease, oldschool, Province_old, birthday, pfl_name, sex, yearths, Level, room, class, id_room, ordinal, studstatus, " & _
        "room_1, color, fater_name, jobF, Tel_F, mother_name, jobM, Tel_M, id_status_FM, Ban, p_no, p_group, p_street, p_tumbol, p_amphur, p_province, zip_code, telephone, Note, picture_1, Myfriend, class_MF, adviser1, tel_advi1, adviser2, tel_advi2, adviser3, " & _
        "tel_advi3, visit_home, Thai, Math, Sci, Soci, Heal, Art, Occ, Eng, Gpa) " & _
        "SELECT id_student, pin, prifix, Frist_name, Last_name, Nickname, old_name, prefix_eng, firstn_eng, Lastn_eng, disease, oldschool, Province_old, birthday, pfl_name, sex, yearths, Level, room, class, id_room, ordinal, studstatus, " & _
        "room_1, color, fater_name, jobF, Tel_F, mother_name, jobM, Tel_M, id_status_FM, Ban, p_no, p_group, p_street, p_tumbol, p_amphur, p_province, zip_code, telephone, Note, picture_1, Myfriend, class_MF, adviser1, tel_advi1, adviser2, tel_advi2, adviser3, " & _
        "tel_advi3, visit_home, Thai, Math, Sci, Soci, Heal, Art, Occ, Eng, Gpa FROM student WHERE studstatus = '2';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub