สั่งว่า DoCmd.RunSQL "Update ......" โดยตรงเลย หรือ DoCmd.RunSQL strSQL ก็ได้ครับ

ต้องสั่งทีละบรรทัดเหรอครับ อาจารย์สันติสุข ให้มันทำครั้งเดียวพร้อมกันทั้งหมดได้ไหมครับ

ทำทั้งหมดทีเดียว เราเรียกว่าทำเป็น transaction เราต้องใช้ method BeginTrans และ CommitTrans หรือ Rollback เป็นคำสั่งครอบคำสั่งที่ทำการปรับปรุงข้อมูลเอาไว้อีกที

BeginTrans เป็นคำสั่งบอกว่าเราจะเริ่ม transaction

CommitTrans เป็นคำสั่งบอกว่าทั้งหมดที่เราทำกับข้อมูลหลังคำสั่ง BeginTrans นั้นให้ปรับปรุงลงไปในฐานข้อมูลได้แล้ว

Rollback เป็นคำสั่งบอกว่าทั้งหมดที่เราทำกับข้อมูลหลังคำสั่ง BeginTrans นั้นให้ยกเลิกให้หมด

การสั่ง CommitTrans และ Rollback โดยไม่ได้สั่ง BeginTrans มาก่อนจะทำให้เกิด runtime error ได้ ดังนั้นจึงมักใช้ตัวแปรตัวนึงเพื่อเป็น flag บอกว่าได้สั่ง BeginTrans ไปแล้วหรือยังด้วย

โครงสร้างของโปรแกรมจะเป็นดังนี้ครับ

Dim Flag As Boolean
Dim DB As DAO.Database
...
...

On Error Goto ErrRtn

Set DB = CurrentDB()

DBEngine.BeginTrans : Flag = True
   strSQL = "...."
   DB.Execute

   strSQL = "...."
   DB.Execute

   strSQL = "...."
   DB.Execute

   หรือถ้าเจอเงื่อนไขให้ยกเลิกการปรับปรุงข้อมูล ก็ให้สั่ง DBEngine.Rollback: Flag = False แล้วก็ห้ามไปทำ DBEngine.CommitTrans ที่อยู่ข้างล่างด้วยนะครับ ต้องหาทางกระโดดข้ามไป ไม่งั้นจะเกิด error

DBEngine.CommitTrans : Flag = False

ExitRtn:
   Exit Sub หรือ Exit Function
   
ErrRtn:
    ...
    ...
    ...

    If Flag then DBEngine.Rollback: Flag = False
    Resume ExitRtn
End If
End Sub หรือ End Function

ลองเอาไปปรับใช้ดูนะครับ

หรือคุณหมายถึงยุบรวมบรรทัดให้เป็นอย่างนี้หรือเปล่า

DoCmd.RunSQL "UPDATE student SET id_room = replace(id_room,""ม.3/"",""ม.2/""), class = replace(id_room,""ม.3/"",""ม.2/"") where id_room like ""ม.3/*"";"

ครับผมหมายถึงยุบรวมเป็นบรรทัดครับ

คือตอนนี้ทำทำเป็นปุ่มคำสั่งแต่ละปุ่ม ดังนี้ครับ ซึ่งมันต้องกดถึง 34 ปุ่มคำสั่งครับ เลยอยากยุบรวมทำเป็นปุ่มเดียวครับ

Private Sub Command1_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/1', 'ม.3/1') WHERE id_room LIKE 'ม.2/1';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command2_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/2', 'ม.3/2') WHERE id_room LIKE 'ม.2/2';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command3_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/3', 'ม.3/3') WHERE id_room LIKE 'ม.2/3';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command4_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/4', 'ม.3/4') WHERE id_room LIKE 'ม.2/4';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command5_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/5', 'ม.3/5') WHERE id_room LIKE 'ม.2/5';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command6_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/6', 'ม.3/6') WHERE id_room LIKE 'ม.2/6';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub
Private Sub Command7_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/7', 'ม.3/7') WHERE id_room LIKE 'ม.2/7';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command8_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/8', 'ม.3/8') WHERE id_room LIKE 'ม.2/8';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command9_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/9', 'ม.3/9') WHERE id_room LIKE 'ม.2/9';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command10_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/10', 'ม.3/10') WHERE id_room LIKE 'ม.2/10';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command11_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/11', 'ม.3/11') WHERE id_room LIKE 'ม.2/11';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command12_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/1', 'ม.3/1') WHERE class LIKE 'ม.2/1';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command13_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/2', 'ม.3/2') WHERE class LIKE 'ม.2/2';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command14_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/3', 'ม.3/3') WHERE class LIKE 'ม.2/3';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command15_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/4', 'ม.3/4') WHERE class LIKE 'ม.2/4';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command16_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/5', 'ม.3/5') WHERE class LIKE 'ม.2/5';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command17_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/6', 'ม.3/6') WHERE class LIKE 'ม.2/6';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub
Private Sub Command18_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/7', 'ม.3/7') WHERE class LIKE 'ม.2/7';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command19_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/8', 'ม.3/8') WHERE class LIKE 'ม.2/8';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command20_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/9', 'ม.3/9') WHERE class LIKE 'ม.2/9';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command21_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/10', 'ม.3/10') WHERE class LIKE 'ม.2/10';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command22_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/11', 'ม.3/11') WHERE class LIKE 'ม.2/11';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command23_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/1', 'มัธยมศึกษาปีที่ 3/1') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/1';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command24_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/2', 'มัธยมศึกษาปีที่ 3/2') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/2';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command25_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/3', 'มัธยมศึกษาปีที่ 3/3') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/3';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command26_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/4', 'มัธยมศึกษาปีที่ 3/4') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/4';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command27_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/5', 'มัธยมศึกษาปีที่ 3/5') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/5';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command28_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/6', 'มัธยมศึกษาปีที่ 3/6') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/6';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub
Private Sub Command29_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/7', 'มัธยมศึกษาปีที่ 3/7') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/7';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command30_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/8', 'มัธยมศึกษาปีที่ 3/8') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/8';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command31_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/9', 'มัธยมศึกษาปีที่ 3/9') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/9';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command32_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/10', 'มัธยมศึกษาปีที่ 3/10') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/10';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command33_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET room_1 = REPLACE(room_1, 'มัธยมศึกษาปีที่ 2/11', 'มัธยมศึกษาปีที่ 3/11') WHERE room_1 LIKE 'มัธยมศึกษาปีที่ 2/11';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command34_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET yearths = REPLACE(yearths, '2/2558', '3/2559') WHERE yearths LIKE '2/2558';"
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
End Sub

Private Sub Command39_Click()
            On Error Resume Next
            DoCmd.Close
            DoCmd.OpenForm "frm_studentnew"
            DoCmd.MoveSize 3000, 400, 15000, 10250
End Sub

แก้ไขหน่อยครับ

ที่ผมเขียนไป ... class = replace(id_room ... ให้แก้เป็น class = replace(class นะครับ

Private Sub Command1_Click()
        DoCmd.SetWarnings False
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/1', 'ม.3/1') WHERE id_room LIKE 'ม.2/1';"
        DoCmd.RunSQL strSQL
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/2', 'ม.3/2') WHERE id_room LIKE 'ม.2/2';"
        DoCmd.RunSQL strSQL
        strSQL = "Update student SET id_room = REPLACE(id_room, 'ม.2/3', 'ม.3/3') WHERE id_room LIKE 'ม.2/3';"
        DoCmd.RunSQL strSQL
        strSQL = "Update student SET class = REPLACE(class, 'ม.2/4', 'ม.3/4') WHERE class LIKE 'ม.2/4';"
        DoCmd.RunSQL strSQL
        ...
        DoCmd.SetWarnings True
End Sub

ขอบคุณอาจารย์สันติสุข และ อาจารย์ O_o ครับ ได้ตามความต้องการแล้วครับ