Number 0 insted of Null when User erases a textbox (1 Viewer)

[Fernando]

I have several number type fields which i would like them to be equal to 0 each time the user erases (uses BackSpace) to clear it. What im doing is the following:

Private Sub txtBurden_AfterUpdate()
If IsNull(txtBurden) Then
    txtBurden = 0
End If
End Sub

My issue here is that i have to do it in every textbox, so maybe theres a better way to do this. thanks in advance .

 

[CEH]

How bout using the "Tag" property.......
In the "Tag" of each textbox put....for example an Asterisks "*"
Then......

Dim ctl as Control
For each ctl in Me.Controls
If ctl.Tag = "*" and isNull(ctl.value) then
ctl.value = "0"
end if
end sub

"air code" you might have to play with that.....but gives you the idea......