OnDirty Cancel

[gg80]

I am using A2003 an A2007. Working with a single form. I am trying to do this:

If onDirty Then
Perform some action
Me.Dirty=False ‘so can do same action if this SAME record is again “dirtied” (reset timer in this case)
End if

Apparently, you can’t reset onDirty without leaving the record and returning. Is there a way to reset onDirty after the first onDirty event in the same record?

In this particular case, the user wants the form to be locked if no changes have been made for X minutes. (He is afraid of someone inadvertently making a change with their elbow, pencil or whatever while working on other things at one of the desks)



A better way than what I am trying? Any help much appreciated.

[Beetle]

You can find code to detect idle time or inactivity at this link. You could just lock the form after X amount of time and include a command button to unlock it.

[Missinglinq]

You can reset Dirty without leaving the Form, with a simple

If Me.Dirty then Me.Dirty = False

or even

DoCmd.RunCommand acCmdSaveRecord

but you can't do it from the OnDirty event!

But to be honest, if a pencil hits the keyboard, or an errant elbow, or a flying squirrel, how is locking the Form, after X amount of idle time, going to prevent this, or even make them aware that it occurred?

What you really need to do is to use validation code to ask the user what they want to do, if a Form has been Dirtied, i.e had data entered or data edited, when they try to leave the Record, close the Form or close Access, itself. At this point the Form_BeforeUpdate event fires, so ask them if they want to save or dump the New Record or the changes to an existing Record:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
  If MsgBox("Would You Like To Save The Changes To This Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save Changes to Record ???") = vbNo Then
   Me.Undo
  End If
Else
  If MsgBox("Would You Like To Save This New Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save This New Record ???") = vbNo Then
   Me.Undo
  End If
End If
End Sub

This will at least remind them to check the data, one last time, before the Record is saved.

If you just have to lock the Form after X amount of time, Sean's approach is the correct one, but it's not going to guarantee that data won't be accidentally changed.

Linq ;0)>

[gg80]

Thanks for quick action. I'm afraid that I couldn't get much out of the link that you listed. Like many of the microsoft "how tos", they are written for pros like you and not for amateurs like me. There is always critical knowledge assumed, steps left out, etc.. I wonder sometimes why they bother,- it seems like those who can understand and use it probably don't need it. I just couldn't assemble anything that did anything. Like-how communicate with form "DetectTime" and the form I'm trying to monitor? I will try again, but not much hope. Though it doesn't quite fill the need, I will go with your other suggestion. Thanks again for taking your time with this.

[Beetle]

If you have questions about how to implement the code in the link feel free to ask.

[gg80]

I played with it. From the description, I assumed that the provided code would monitor another open form in the program. I tried it and it only monitors the DetctedTime form. So, do I put that code in any form that I want to be monitored for inactivity or am I doing something wrong.? Thanks much.

[gg80]

The validation code works well. I will propose that and Sean's solution, to the user. The OndDrty thing still eludes me. If not in the OnDirty event. where do I put code statement "docmd.runcmd accmdsaveReport" or "if dirty then me.dirty=false." On each updateable control UfterUpdate?

[gg80]

The validation code works well. I will propose that and Sean's solution, to the user. The OndDrty thing still eludes me. If not in the OnDirty event. where do I put code statement "docmd.runcmd accmdsaveReport" or "if dirty then me.dirty=false." On each updateable control UfterUpdate

You can reset Dirty without leaving the Form, with a simple

If Me.Dirty then Me.Dirty = False

or even

DoCmd.RunCommand acCmdSaveRecord

but you can't do it from the OnDirty event!

But to be honest, if a pencil hits the keyboard, or an errant elbow, or a flying squirrel, how is locking the Form, after X amount of idle time, going to prevent this, or even make them aware that it occurred?

What you really need to do is to use validation code to ask the user what they want to do, if a Form has been Dirtied, i.e had data entered or data edited, when they try to leave the Record, close the Form or close Access, itself. At this point the Form_BeforeUpdate event fires, so ask them if they want to save or dump the New Record or the changes to an existing Record:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
  If MsgBox("Would You Like To Save The Changes To This Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save Changes to Record ???") = vbNo Then
   Me.Undo
  End If
Else
  If MsgBox("Would You Like To Save This New Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save This New Record ???") = vbNo Then
   Me.Undo
  End If
End If
End Sub

This will at least remind them to check the data, one last time, before the Record is saved.

If you just have to lock the Form after X amount of time, Sean's approach is the correct one, but it's not going to guarantee that data won't be accidentally changed.

Linq ;0)>

[gg80]

If you have questions about how to implement the code in the link feel free to ask.

I got it working. I tried different things, but can't figure out the next step. That is, how do I tell it to lock the form after the time limit.?

[gg80]

Thanks-Works. I do have one form with a subform and found out how that makes things much much more complicated, but can handle it. I cannot make the " if me.dirty then me.dirty = false" work. Exactly where do you put the statement.

I am going to give my user a choice of this solution and Sean's solution as soon as I get it working. I willl mark as solved then.

[gg80]

figured it out-thanks for all. Solved

I got it working. I tried different things, but can't figure out the next step. That is, how do I tell it to lock the form after the time limit.?