Hi all. Below is the code I have to update some fields based on a date field. It's working the way I want but the users want nothing to happen when the date field is cleared/deleted. They just want the date to be gone and nothing else happens. Right now when the date is deleted it performs the action again. How/where do I add that code?
Private Sub Date_Zipped_to_Mfg_AfterUpdate()
If MsgBox("Are you sure?", vbYesNo, "Confirm") = vbNo Then Exit Sub
With Me
If Not IsNull(.Date_Zipped_to_Mfg) Then
.Version_on_CDMS_and_Current_at_States = .Latest_Label_Released_for_Prod
.Previous_Label_Version = .Latest_Label_Released_for_Prod
.Latest_Label_Released_for_Prod = Null
End If
End With
End Sub