Simple "Is Blank" Query!

[sha7jpm]

I have a txt box that is stamped with the date when another box is changed to a code of 4.

the problem is that if the user changes the code to 5 by mistake then changes it back to 4, the date is changed again.

After Update
what I need is if code = 4 and stage4 is blank
then stage 4 = date
end if.

below is what I have so far, but it does not populate the box, I do not get any errors, it just does not do it!

the format of the stage4 txtbox is date/time and it does have an input mask if that helps at all in terms of a solution..

my code so far!!!!!
Private Sub Completed_AfterUpdate()
If Completed = 4 And Stage4 <> "" Then
Stage4 = Date
End If

many thanks

john

 

[pono1]

John,

Maybe something like this...

If me.completed.value = 4 and NOT ISNULL(me.Stage4.Value) Then
             me.Stage4.value = Date()
End if

Regards,
Tim

 

[sha7jpm]

ta!

many thanks
that solved the problem.

regards

John