ไม่ได้ครับผมต้องการให้ทั้งหมดเป็น Yes หมดครับ

dim ctl as control
for each ctl in controls
' if typeof ctl is checkbox then ctl.value = -1
' if typeof ctl is checkbox then ctl.value = on
' if typeof ctl is checkbox then ctl.value = yes
' if typeof ctl is checkbox then ctl.value = true
next

รบกวนถามอาจารย์ yeadram ครับตัวนี้ต้องเขียนเป็น Modules แยกต่างหากใช่หรือไม่ครับ

ไม่ได้ครับ ต้องเขียนไว้ใน ฟอร์มนั้นเลยครับ
ดูคีย์เวิร์ดในคำสั่ง ตรงที่ว่า
in controls
มันย่อมาจาก in me.controls ซึ่ง คำว่า me. หมายถึงอ้างถึงคอนโทรลในฟอร์มปัจจุบัน

ถ้าไปวางในโมดูลต้องเขียนว่า
in forms("form1").controls

โค้ดที่ให้ไป เอาไปหาเหตุการณ์เหมาะ เอาเองครับ เช่น
form_unload
หรือ form_close
หรือ cmdExit_click อะไรประมาณนี้ครับ เอาไปวางในเหตุการณ์พวกนั้นได้เลยครับ
อย่างที่คุณ access (R03734) บอกนั่นก็ได้ครับ