ms access 2013 update query command button

ตั้งหัวข้อซะฝรั่งเชียว สำหรับคำสั่งที่รวบรวมวันนี้ ได้มีโอกาสใช้ MS Access 2013 + ODBC Mysql ซะที เลยอยากรวบรวมไว้ดูกันเล่น ๆ ครับเผื่อใครกำลังตามหา คำสั่ง Update Table ผ่านปุ่ม Button พร้อม requery ใหม่

 
Dim sql As String
sql = ""
sql = sql & "Update er_nursing_detail "
sql = sql & "Set gcs_e =4 "
sql = sql & ",gcs_v =5 "
sql = sql & ",gcs_m =6 "
sql = sql & "Where gcs_e =0 and gcs_v=0 and gcs_m=0"
CurrentDb.Execute sql

[Forms]![Form3]!S_get_er1.Requery