Prevent Null Value 1

[LouieGrandie]

Have a form in which a number of fields are summed in another field. Works fine. However if someone accidentally deletes the value from one of the fields the sum field also goes blank. I am trying to wrote code after update so that if the value of a field is deleted the field defaults to zero (0). Here is what I am trying but it is not working.

Private Sub RevisionsActualTimeRequired_AfterUpdate()
If Me.RevisionsActualTimeRequired.Value = "" Then Me.RevisionsActualTimeRequired.Value = 0
End Sub


Any suggestions.

Visit Sage's Online Community

http://community.sagemas.com/sagemas/?category.id=SageMAS90and200Disc

 

[dhookom]

Null is not the same as "". Try:

Private Sub RevisionsActualTimeRequired_AfterUpdate()
    If IsNull(Me.RevisionsActualTimeRequired) Then 
        Me.RevisionsActualTimeRequired = 0
    End If
End Sub

Duane
Hook'D on Access
MS Access MVP

 

[LouieGrandie]

Tip of the Hat! Worked just perfect.

Visit Sage's Online Community

http://community.sagemas.com/sagemas/?category.id=SageMAS90and200Disc

 

[missinglinq]

Or, to check for both Nulls and Zero-Length Strings ("")

Private Sub RevisionsActualTimeRequired_AfterUpdate()
 If Nz(Me.RevisionsActualTimeRequired, "") = "" Then
    Me.RevisionsActualTimeRequired = 0
 End If
End Sub

Linq ;0)>


The Missinglinq

Richmond, Virginia

The Devil's in the Details!

 

[PHV]

My version of this:
If Nz(Me.RevisionsActualTimeRequired, "") = "" Then
is this:
If Trim(Me!RevisionsActualTimeRequired & "") = "" Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dhookom]

The suggestions are all good but I haven't found out how to delete something from a control and leave a zero-length-string. I suppose it can be done.

Duane
Hook'D on Access
MS Access MVP