Don't Delete the Zeros! Help

[Guest]

I have multiple forms with several data input controls that default to zeros.
Calculations are made from these controls and if the zero is deleted the
results error out. In the past I have added to following afterupdate code to
each control to prevent the error.

Private Sub BrokerCredit_AfterUpdate()
If IsNull(BrokerCredit) Then
BrokerCredit = 0
End If
End Sub

Due to the number of these controls I am seeking a way to handle this
without adding an afterupdate event to each control. Is there an easier way?
Any help would be greatly appreciated!

Thanks

 

[Douglas J. Steele]

You could leave the Nulls as they are, and create a query that uses the Nz()
function to convert the Nulls to zeroes. You could then use the query
wherever you would otherwise have used the table.

 

[tina]

well, as a labor-saver, you could do the following:

open (or create) a standard module and paste the following function into it,
as

Public Function isDefaultZero()

If IsNull(Screen.ActiveControl) Then Screen.ActiveControl = 0

End Function

open your form in design view. select *all* the controls that you want to
default back to zero. in the Properties box, add the following expression
directly on the AfterUpdate property's line, as

=isDefaultZero()

because you selected all the controls, the expression will be added to the
event line of all the controls at the same time.

hth

 

[Guest]

Thanks Tina--I knew there had to be an easier way--works like a charm!!!

 

[tina]

you're welcome

Thanks Tina--I knew there had to be an easier way--works like a charm!!!