ถ้าเป็นฟอร์มที่ผูกเข้ากับเทเบิลหรือคิวรี่ แนะนำว่าให้ใส่โค้ดไว้ที่ BeforeUpdate event procedure ของฟอร์มเป็น

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If not Me.NewRecord then
      If Me.ฟิลด์TrueFalse <> Me.ฟิลด์TrueFalse.OldValue then
        Me.ฟิลด์วันเวลา = Now()
      End If
   End If
End Sub

โค้ดนี้จะเก็บวันเวลาก็ต่อเมื่อ
1. ไม่ใช่เรคอร์ดใหม่
และ
2. ฟิลด์ TrueFalse มีค่าเปลี่ยนไป

ขอบคุุณ คุณสันติสุข มากครับ
วันนี้จะลองทำดูครับ ^^

Private Sub Form_BeforeUpdate()
   If Not Me.NewRecord Then
      If Me.[Hold] <> Me.[Hold].OldValue Then
        Me.[HoldDate] = Now()
      End If
   End If
End Sub

รบกวนถามอีกทีครับ แบบนี้ถูกหรือไม่ครับ
ฟิลด์ ทรู/ฟอลส์ ผมชื่อ [Hold]
อัพเดทใส่ฟิลด์ชื่อ [HoldDate]
มันไม่ได้ครับ ไม่อัพให้ครับ

ถ้าไม่อัพเดต แต่ไม่มี error อะไร ลองเช็คสิครับว่าตรงตามเงื่อนไขที่ผมบอกหรือไม่

โค้ดนี้จะเก็บวันเวลาก็ต่อเมื่อ
1. ไม่ใช่เรคอร์ดใหม่
และ
2. ฟิลด์ TrueFalse มีค่าเปลี่ยนไป

อยู่ในเงื่อนไขทั้ง 2 ข้อครับ

ไปที่ฟอร์ม - เปิดโหมด Design View - กดปุ่ม F4 - ดูว่ามีตามที่รูปวงไว้หรือไม่

มีครับ



เกรงใจคุณสันติสุขจังครับ ที่รบกวน ^^

ตอนติ๊กไม่มี alert แต่พอปิด form แล้วขึ้น alert ครับ

โค้ดที่ให้ไป จะยังไม่ทำงานตอนที่ติ๊กนะครับ แต่จะทำตอนที่เรคอร์ดกำลังจะถูกบันทึก เช่นเมื่อเราคลิกเมาส์เคอร์เซอร์ที่เรคอร์ดอื่น ยังไงก็ตาม ถ้าโค้ดทำงานถูกต้อง ก็ไม่ควรจะเกิด error ใดๆ ตอนอยู่ใน VBA editor ให้ทำการ Compile (อยู่ในเมนู Debug) โค้ดดูครับว่าจะมีข้อผิดพลาดอะไรฟ้องออกมาหรือไม่ ถ้าคลิก Compile ไม่ได้ แปลว่าได้ถูก Compile ไปแล้ว และไม่มีข้อผิดพลาดใดๆเกิดขึ้น คงต้องหาว่าเกิดจากอะไรอีกที

ปล. ผมพบลูกค้าอยู่ จะตอบอีกทีก็ดึกๆนะครับ

ได้ผลยังไงแล้วแจ้งให้ทราบด้วยนะครับ

compile แล้วครับ ติด



(table ใน field นี้เป็นชนิดวันที่ ที่ link มาจาก SQL server ครับ)

แน่ใจหรือเปล่าครับชื่อ Hold และ HoldDate ถูกต้อง คอมไพล์แล้ว error ที่ไหน ก็เป็นชื่อในบรรทัดนั้นแหล่ะที่ผิด เวลาใส่ ไม่จำเป็นต้องมีเครื่อง [ ] สังเกตุจะเห็นว่าเวลาคีย์คำว่า Me. จะมีชื่อคอนโทรลแสดงออกมาให้เลือกด้วย ถ้าตรงนั้นไม่มีชื่อ Hold หรือ HoldDate ก็แปลว่าเป็นชื่ออื่นแล้ว เช็คอีกทีครับ

ชื่อถูกนะครับ



complie แล้วติดตรง .OldValue ครับ

ตกลงแปลว่า Hold ไม่ได้เป็นฟิลด์บนเทเบิลใช่ไหมครับ

เป็น field บน table ของ SQL ครับ
แล้ว link table มาใช้บน access ครับ

แปลว่าชื่อ checkbox บนฟอร์มเป็นชื่ออื่นที่ไม่ใช่ Hold ? ถ้าใช่ ก็เปลี่ยนเป็นชื่อตามที่ปรากฏบนฟอร์มนะครับ

ขอบคุณครับ เวลาขึ้นแล้วครับ
แต่ write conflict แทน ^^

ลองเปลี่ยนชื่อ HoldDate เป็นชื่อที่อยู่บนฟอร์มครับ ไม่อีกอย่างก็มีโปรแกรมอื่นไม่ว่าจะเครื่องเดียวกับเราหรือจากเครื่องอื่น ทำการแก้ไขเรคอร์ดที่ว่าระหว่างที่เราเริ่มแก้ไขครับ

ขอบคุณมากครับ
รบกวนซะเยอะเลย