Maybe this would work in the form's Before Update event:
If Not Me.NewRecord Then Me.Updated = True End If
This assumes there is a Yes/No field named Updated. The Before Update event runs only if the record has been revised. If you prevent it from running for a new record it will run only if an existing record is changed. If it is revised again there will be no way of knowing that, but that is also the case if you ask the user to check a box. If the box is already checked it could cause confusion. With the automated code no user action is required.
Another option is to create a Date/Time field. I will call it DateUpdated. In the form's Before Update event:
If Not Me.NewRecord Then Me.DateUpdated = Now End If
This will record when the record was last changed.
"Erin Freeman" <ErinFreeman[ at ]discussions.microsoft.com> wrote in message news:8CE7D356-45EE-4B5A-8826-49A2A4B505EA[ at ]microsoft.com...
[Quoted Text] > Hi Michael, > > So if i have a form that pops up when the main form is closed that asks if > the information has been revised, which works, however how do i get the > popup > form to open to correct record, i have tried variaitions of code i could > find > for filtering but for some reason i cant get it to work, > > "Michael Stanbarger" wrote: > >> I would suggest creating a small form for this instead of using a MsgBox >> script. This way you can bind it to the table that has the field you want >> to >> change. >> >> >> >> >> -- >> Michael Stanbarger >> Air Freight Coordinator >> CRST Van Expedited >> >> >> "Erin Freeman" wrote: >> >> > >> > Hi there >> > >> > For some reason i cant get this code to work. On the "On Close" action >> > of a >> > form, i want a checkbox to pop up to ask whether the data has been >> > changed, >> > if the user chooses yes then i want my "revised" checkbox to populate >> > with a >> > checkmark >> > >> > 'If MsgBox(" Have you revised this data?", vbYesNo) = vbYes Then >> > 'Me.chkrevised = True >> > >> > 'End If >> > >> > It doesnt seem to work, not sure what i am doing wrong. any help would >> > be >> > greatly appreciated. >> > >> > Thanks >> > >> >
|