次の方法で共有


Report.Dirty プロパティ (Access)

Dirty プロパティを使用して、現在のレコードが最後に保存されてから変更されたかどうかを判断します。 読み取り/書き込みが可能な Boolean です。

構文

汚い

Report オブジェクトを表す変数。

注釈

たとえば、レコードに対する変更が意図されているかどうかをユーザーに問い合わせ、意図されていない場合は、変更を保存せずに次のレコードに移動できるようにすることができます。

レコードが保存されるときに、Access によって Dirty プロパティが False に設定されます。 ユーザーがレコードを変更すると、このプロパティが True に設定されます。

次の例では、データが変更されたときに btnUndo ボタンを有効にします。 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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。