นำไปใช้กับ
วัตถุ Form |
วัตถุ Report |
คุณสามารถใช้คุณสมบัติ Dirty เพื่อกําหนดว่าระเบียนปัจจุบันได้ถูกปรับเปลี่ยนตั้งแต่ระเบียนถูกบันทึกครั้งล่าสุดหรือไม่ ตัวอย่างเช่น คุณอาจต้องการถามผู้ใช้ว่าตั้งใจจะเปลี่ยนแปลงระเบียนหรือไม่ และถ้าไม่ ให้อนุญาตให้ผู้ใช้ย้ายไปยังระเบียนถัดไปโดยไม่บันทึกการเปลี่ยนแปลง อ่าน/เขียน บูลีน
นิพจน์.Dirty
นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ
ข้อสังเกต
คุณสมบัติ Dirty จะใช้การตั้งค่าต่อไปนี้
การตั้งค่า |
Visual Basic |
คำอธิบาย |
จริง |
จริง |
ระเบียนปัจจุบันถูกเปลี่ยนแปลง |
เท็จ |
เท็จ |
ระเบียนปัจจุบันไม่ถูกเปลี่ยนแปลง |
คุณสมบัตินี้จะพร้อมใช้งานใน มุมมองฟอร์ม และมุมมองแผ่นข้อมูล
คุณสมบัตินี้สามารถตั้งค่าหรืออ่านได้โดยใช้ แมโคร หรือโค้ด Visual Basic for Applications (VBA)
เมื่อระเบียนถูกบันทึก Microsoft Office Access 2007 จะตั้งค่าคุณสมบัติ Dirty เป็น False เมื่อผู้ใช้เปลี่ยนแปลงระเบียน คุณสมบัติจะถูกตั้งค่าเป็น True
ตัวอย่าง
ตัวอย่างต่อไปนี้จะเปิดใช้งานปุ่ม btnUndo เมื่อมีการเปลี่ยนแปลงข้อมูล Subroutine UndoEdits( ) จะถูกเรียกจากเหตุการณ์ AfterUpdate ของตัวควบคุมกล่องข้อความ การคลิกปุ่ม btnUndo ที่เปิดใช้งานจะคืนค่าเดิมของตัวควบคุมโดยใช้คุณสมบัติ OldValue
Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub