Private Sub OFF_SAVE_Click()
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("officer")
On Error GoTo err1

If OFF_AUTH.Value = 3 Or OFF_AUTH.Value = 4 Then
rst.AddNew
rst!OFF_STUDENTID = OFF_STUDENTID
rst!OFF_NAME = OFF_NAME
rst!OFF_SURNAME = OFF_SURNAME
rst!OFF_STARTDATE = OFF_STARTDATE
rst!OFF_ENDDATE = OFF_ENDDATE
rst!OFF_ACTIVE = 0
rst!OFF_AUTH = OFF_AUTH
rst.Update
rst.Close
Call ClearTextbox(Me)
OFF_AUTH = Null
Form.Refresh
End If

If OFF_AUTH.Value = 0 Or OFF_AUTH.Value = 1 Or OFF_AUTH.Value = 2 Then
If OFF_USERNAME.Enabled = True And OFF_PASSWORD.Enabled = True Then
If IsNull(OFF_USERNAME) Or IsNull(OFF_PASSWORD) Then
MsgBox "¤Ø³µéͧ¡ÃÍ¡ Username áÅÐ Password ãËé¤Ãº´éÇÂ", vbExclamation, "á¨é§ãËé·ÃÒº"
Else

rst.AddNew
rst!OFF_STUDENTID = OFF_STUDENTID
rst!OFF_NAME = OFF_NAME
rst!OFF_SURNAME = OFF_SURNAME
rst!OFF_STARTDATE = OFF_STARTDATE
rst!OFF_ENDDATE = OFF_ENDDATE
rst!OFF_ACTIVE = -1
rst!OFF_AUTH = OFF_AUTH
rst!OFF_USERNAME = OFF_USERNAME
rst!OFF_PASSWORD = OFF_PASSWORD
rst.Update
rst.Close
Call ClearTextbox(Me)
OFF_AUTH = Null
Form.Refresh
Exit Sub

err1:
MsgBox "¢éÍÁÙÅÂѧäÁè¤Ãº ËÃ×Í ¡ÃÍ¡¢éÍÁÙżԴ¾ÅÒ´ ¨Ö§äÁèÊÒÁÒöºÑ¹·Ö¡ä´é", vbExclamation, "áé¨é§ãËé·ÃÒº"

End If
End If
End If
Set rst = Nothing
Set rst1 = Nothing
Set dbs = Nothing
End Sub
--------------------

คือ มันไม่ยอม ไป run ในส่วน err1 อ่ะครับ(เมื่อเกิด error ) คือผมเขียน code ไว้ว่า ถ้าเกิด error ขึ้น ให้มันไป run ตรงคำสั่ง err1 น่ะ(กรณีที่เกิด error ได้คือ 1.ยังไม่ได้พิมค่าใดๆ เลยลงบน textbox 2. ยังพิมไม่ครบทุก textbox 3. พิมค่าผิดรูปแบบ คือ textbox นั้นใส่ได้แต่เป็นตัวเลข แต่ดันใส่เป้นตัวหนังสือ) คือเมื่อลองทำในสามกรณีนี้แล้ว(คือลองคำสั่ง msg error ) แต่ก็ไม่มีอะไรเกิดขึ้นเลยครับ

code ของผมมันผิดส่วนไหนเหรอครับ อาจารย์ช่วยดูให้ที (แต่ว่า คำสั่งอื่นๆ ก็ทำงานได้ถูกต้องตามปรกตินะ)

ขอบคุณมากๆ ครับ (อาจารย์ลองดูรูปแบบฟอร์มได้ในรูปที่ผมส่งมาเลยครับ)