In the AfterUpdate event of your Date_Completed control, you could use the following code:-
If Not IsNull(Me.Date_Completed) Then
Me.Completed = -1
End If
However, this does not check for a valid date so I would perform validation on the date too. See this example:-
If Not...