Error Trap Zero and Null Values

[eric.nguyen312]

Hi, I'm trying to write code that will not allows users to continue
unless a Product Sale is entered. This is what I have so far:

Private Sub ForecastProductSale_BeforeUpdate(Cancel As Integer)
If Nz(JobEstimatedProductSale, "") = "" Then
MsgBox "Warning: A Product Sale must be entered.", vbOKOnly,
"Warning"
Exit Sub
End If

End Sub

Can someone please tell me what I'm doing wrong?

Thanks.

 

[Douglas J. Steele]

Put

Cancel = True

before the Exit Sub

 

[eric.nguyen312]

Thanks Doug! It works!

Put

Cancel = True

before the Exit Sub