AfterUpdate VBA suddenly doesn't immediately show change

[templeowls]

I've got a DB of complaints and a form to look at each individually. I have some code where if the user marks a combo box as 'Complete', then today's date populates in a date field to signify when it was completed.



Kind of outta no where, the date no longer immediately pops up unless I quick in the date field itself or if I change records and then go back. Ultimately its a small issue because it populates no matter what, but I just thought it was so weird that it doesn't instantly appear anymore. Some users thought it wasn't populating at all but it is. It's just not showing unless you change records or click it.

I was curious to know if anyone has ever seen this happen.

Here's the code in the form:

Private Sub ComboStatus_AfterUpdate()
    If Me.comboStatus = "Completed" Then Me.ComplaintCompletedDate = Date
End Sub

[ranman256]

the afterupdate event will run if the user changes the value in the box and

Me.comboStatus = "Completed". Case may be a factor.

it will not run if vb code sets the cboStatus.

[ssanfu]

You could try (untested)

Private Sub ComboStatus_AfterUpdate()
    If Me.comboStatus = "Completed" Then
       Me.ComplaintCompletedDate = Date
       Me.Refresh
    End If
End Sub

[templeowls]

That worked! Thanks!!