เรียนอาจารย์ช่วยดู code ที่ครับ ว่าทำไมเวลามัน error แล้ว ไม่ไป run บรรทัด err1: ครับ

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
End If
End If
End If
Set rst = Nothing
Set rst1 = Nothing
Set dbs = Nothing

Exit Sub

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

คือว่า พอกด run แล้วมันก็นิ่งไปเลยน่ะครับ ไม่มีอะไรเกิดขึ้นเลย (คือถ้า run ปกติ มันจะ error น่ะ)
เป็นเพราะอะไรเหรอครับ

แล้วถามอีกคำถามนึงคือ ผมจะเขียนให้มันดูค่าจากในตารางว่า เป็น yes หรือ no แล้วทำให้ปุ่ม command ของแต่ละเรคอดมัน enabled น่ะครับ( คือถ้าเรคอดนี้มีฟิลหนึ่งเป็น yes ก็ให้ปุ่ม command ของเรคอดนั้น เป็น disabled หรือ enabled )ซึ่งแต่ละเรคอดจะมี ปุ่ม command หมดทุกเรคอดน่ะครับ (คือจะใส่ปุ่ม command ไว้ในส่วนของรายละเอียด ทำให้ทุกเรคอดจะมีปุ่ม command หมดเลย)

ไม่ทราบว่าจะต้องเขียนควบคุมยังไงฮะ
ใช้ access2000

ขอบคุณมากๆครับ