ลองวาง code ใน event On Current ดูครับ

ผมลองดูแล้วครับ ผลออกมาเหมือนกันครับ ตอนแรกเข้าใจว่า On Current ที่ CheckBox ก็ไปหาดูแต่ไม่เจอ

ก็เลยคิดว่าน่าจะเป็นที่ Form ที่ก็ได้ผลเหมือนเดิม ขอบคุณ คุณ PichaiTC มากครับที่กรุณาช่วยมาตอบ ตอนนี้ผมก็พยายามหาวิธีอยู่ครับ

ดูคร่าวๆ เป็นเพราะคุณไม่ได้เขียนแก้กลับหรือเปล่าครับ เช่น

If Recive_Check.Value = True Then
   textbox1.Enabled = False
   textbox2.Enabled = False
   textbox3.Enabled = False
   textbox4.Enabled = False
   textbox5.SetFocus
   Recive_Check.Enabled = False
Else
   textbox1.Enabled = True
   textbox2.Enabled = True
   textbox3.Enabled = True
   textbox4.Enabled = True
   textbox5.SetFocus
   Recive_Check.Enabled = True
End If
ไว้ทั้งที่ On Current ของฟอร์ม และใน After Update ของ Recive_Check ครับ

ขอบคุณ คุณ TTT ครับ จากที่ทดสอบแล้วผลออกมาเหมือนเดิมครับ กด 1 Record Lock ทั้ง 10 เลยครับ

งมอยู่ตั้งแต่เช้ายังนึกไม่ออกเลย

อย่างนี้ครับ คือจริงๆ มันน่าจะได้นะครับ แต่คุณต้องกดไปยังเรคคอร์ดที่ Recive_Check ยังไม่ได้ทำเครื่องหมายถูก ฟิลด์ทั้งหมดก็จะกลายเป็น Enable และหากคุณกดไปยังเรคคอร์ดที่ Recive_Check ทำเครื่องหมายถูกไว้ ฟิลด์ทั้งหมดก็จะเป็น Disable อย่างนั้นใช่ไหมครับ
นั่นเป็นธรรมชาติของฟอร์มครับ มันจะทำตามเรคคอร์ดที่เลือกเหมือนกันทุกเรคคอร์ด

แต่หากความต้องการของคุณคือ อยากให้เห็นถึงมาแตกต่างระหว่างเรคคอร์ดที่ทำเครื่องหมายที่ Checkbox กับไม่ทำเครื่องหมาย
เท่าที่นึกได้คือการเซ็ท conditional ของแต่ละฟิลด์ให้มีสีต่างกันแทน
ตัวอย่าง
1. เปลี่ยนโค๊ดเดิมเป็น
If Recive_Check.Value = False Then
   textbox1.Locked = False
   textbox2.Locked = False
   textbox3.Locked = False
   textbox4.Locked = False
   textbox5.SetFocus
   Recive_Check.Locked = False
Else
   textbox1.Locked = True
   textbox2.Locked = True
   textbox3.Locked = True
   textbox4.Locked = True
   textbox5.SetFocus
   Recive_Check.Locked = True
End If
ไว้ทั้งที่ On Current ของฟอร์ม และใน After Update ของ Recive_Check เหมือนเดิม

2. ในมุมมองออกแบบฟอร์ม เลือกเมนูหัวข้อ Format > Conditional Formatting
2.1 หน้าต่าง Conditional Formatting Rules Manager กดปุ่ม New Rule ใส่ค่าตามภาพ



ทำทุกคอนโทรลบนฟอร์มที่คุณต้องการ ก็จะได้สีของเรคคอร์ดที่ต่างกันระหว่างทำเครื่องหมายกับไม่ทำเครื่องหมาย

ปล. ที่ต้องเปลี่ยนจากการใช้ Property Enabled เป็น Locked แทน เพราะการใช้ Conditional คอนโทรลจะถูกโปรแกรมแก้ให้ Enabled เป็น True เสมอเมื่อใช้ Conditional ถ้าไม่อยากให้ข้อมูลแก้ไขได้ เลยต้องใช้เป็น Locked แทน

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

ขอบคุณ คุณTTT อีกครั้งครับ

ฟอร์มผมออกแบบเป็น Tabular คือ หน้าตามันจะคล้าย ๆ Excel ครับ มันจะโชว์ทั้ง 10 Record พอกด CheckBox มันก็ Lock หมดเลย

สิ่งที่ต้องการคือ ต้องการให้ผู้ใช้ทำครั้งเดียวครับ ไม่สามารถทำซ้ำได้ คือ กดปุ่ม Lock ก็จะถามว่ายืนยัน แล้ว Lock เลยห้ามแก้ไข ถ้าจะปลด Lock จะต้องเป็นอีกคนครับ จะได้เป็นเช็คซึ่งกันและกัน

ผมงมอยู่นานคิดไปคิดมาทำหลายวิธี็ก็ไม่ได้สักที เลยเปลี่ยนวิธีทำเป็นลักษณะนี้ครับ

พอกดปุ่ม CheckBox จะมี MsgBox ถามยืนยัน ถ้าตอบ OK Record นี้จะหายไปเลยครับ แต่จะไปเก็บไว้อีก Table หนึ่งครับ ซึ่ง Tbl นี้จะ Lock ทั้งหมดที่มีการยืนยันแล้วครับ

ขอบคุณ คุณTTT อีกครั้งครับ

แต่ก็ยังอยาก ได้วิธีการ Lock เฉพาะบาง Record อยู่ครับ ตอนนี้ก็ยังพยายาหาวิธีอยู่เหมือนกันครับ

คือผมก็ไม่รู้ว่าปัญหาอยู่ตรงไหน แต่จากตัวอย่างที่ผมให้ไปน่าจะทำอย่างที่คุณ Akung ต้องการได้นะครับ เอางี้แล้วกันผมทำเป็นไฟล์ตัวอย่างจากวิธีที่ผมเขียนไว้ข้างต้นให้คุณไปเปรียบเทียบดูแล้วกันนะครับ
โหลดที่นี่ครับ

http://cloudbox.3bb.co.th/share3/NjE3NnxmYzFmMDczZmU5MTQwM2YwMGQyMjE5MTg1ZmRlYTc5YnwzNTMwOA==

โอ้วขอบคุณมากเลยครับคุณ TTT ที่อุตสาทำตัวอย่างมาให้ แต่คำสั่งก็เหมือนกันหมดเลยนะครับ ยกเว้นผมเห็นตรงค่า Format ที่คุณเปลี่ยนจาก Yes/No เป็น True/False เดี่ยวยังไง ผมจะลองทดสอบกับตัวโปรแกรมผมดูครับ

แต่ผมสงสัยอย่างครับ ผมไม่เห็นคำสั่ง Enable เลย แต่ทำไมเวลา CheckBox เป็น True โปรแกรมกับ Enable ได้ครับ รบกวนขอความรู้อีกครั้งครับขอบคุณมากครับ

ไม่ใช้การเซ็ท Property Enable แล้ว เปลี่ยนเป็น Locked แทนครับ
ลองดูที่ Reply หมายเลข R14825 ทำตามนั้นทุกประการณ์ครับ

เข้าใจแล้วครับ มันเป็นเรื่องของ Conditional Format ที่ทำให้เป็นสีแบบนั้น ขอบคุณมากครับ

รบกวนเพิ่มเติมอีกนิดครับ คือตัวอย่างที่คุณ TTT ทำมาให้ดู มีอยู่ทั้งหมด 8 รายการ

แต่ถ้าบังเอิญผู้ใช้คลิ๊กเพลินไปคลิ๊กช่องด้านล่างสุดมันจะกลายเป็นการ Add เพิ่มทั้งที่รายละเอียดของบุคคลที่ 9 ไม่มีอะไรเลย พอจะมีทาง Lock ได้ไหมครับ

ว่าถ้าให้ทำได้แค่ 8 รายการที่มีรายการอยู่

ทำได้แล้วครับ แค่ไปเพิ่มที่ on current ไปอีกเงื่อนไข

if Textbox1 = "" Then
Recive_Check.Locked = True
Else
Recive_Check.Locked = False
Endif

ขออภัยที่ถามเองตอบเองครับ

ผมเคยเจอปัญหายังงี้เวลาทำ CHECKBOX เป็น unbound ครับ วิธีแก้ผ้าเอาหน้ารอดของผมคือต้องมี tableที่เก็บค่า CHECKBOX จริงๆถึงจะไม่วิ่งรวดเดียว 10 RECORDS