Dirty property for Text Box

[tylerg11]

Here is my scenario:

I have a textbox on my form, that when modified (or dirty), should also force the user to update a second textbox. How can I code this?



So, if TextBox1 and TextBox2 are Dirty, save the record (or do not cancel the update). But if only TextBox1 has been modified, alert the user to update TextBox2, and cancel the update until they are both "Dirty". I know this has a lot to do with the Dirty property, but I do I use this property at the field/textbox level, instead of the form level?

[RuralGuy]

You need to do your validation in the FORM's BeforeUpdate event.

[tylerg11]

That's how I have it. But how do I refer to the Dirty property of specific fields. For example, I want to see if two of the many textboxes are "dirty".

[RuralGuy]

Only the FORM has a Dirty property because it is the RECORD that is dirty not a bound control on the form. Does that help?

[tylerg11]

Yes. Thanks.

Is it possible to check if a textbox has been modified or edited? Even if the new value entered is the same?

[RuralGuy]

Almost. There is a .OldValue property of bound controls that can be compared to the .Value property. If the value entered is the same then it will compare but the Dirty property will still be set. Depending on how critical this issue is, you may want to implement your own ControlDirty property using the Change event of the control and maybe the Tag property of the same control.

[Cloudster]

Your info got me pointed in the right direction. I wanted to prevent accidental modification of a key field, it isn't the PK of the record but is still quite important. I came up with the following code that does the trick quite well:

Private Sub STARSID_LostFocus()
    'can't directly check for .Dirty, must compare to .OldValue
    With STARSID
        If .Value <> .OldValue Then
            retval = MsgBox("You have changed the STARS ID.  Did you mean to do this?  Selecting No will reset it to the original value.", vbYesNo)
            If retval = vbNo Then .Value = .OldValue
        End If
    End With
End Sub

I'm tempted to clear Dirty for the form, but the user might have changed other fields.