Date field and Null

[Deb]

I want to check if the Qty field is updated, then post
Today's date in the completed field if no date exists
already, otherwise, keep the current date value.

Here's what I have, but it doesn't add today's date.

Private Sub Qty_AfterUpdate()
If [Completed] = Null Then
Me.[Completed] = Date
Else
End If
End Sub

Any ideas?

 

[Deb]

Changed it to If IsNull([Completed]) and it's working
now...

 

[John Vinson]

I want to check if the Qty field is updated, then post
Today's date in the completed field if no date exists
already, otherwise, keep the current date value.

Here's what I have, but it doesn't add today's date.

Private Sub Qty_AfterUpdate()
If [Completed] = Null Then
Me.[Completed] = Date
Else
End If
End Sub

Any ideas?

Nothing is equal to NULL, or unequal to NULL - any comparison
operation with NULL will return neither true nor false, but NULL.

Try instead

If IsNull([Completed]) Then Me.Completed = Date

(You don't need the ELSE line if you aren't doing anything Else.)