Make Empty fields > 0

[Chrissie]

How can I check for empty fields after pressing a button??

I have code which makes all Fields value 0....so it should be possible to set all fields which have no data 0.

Sub CmdZero_Click()
Dim MyTextBox As Control
For Each MyTextBox In Me.Controls
If TypeOf MyTextBox Is TextBox Then MyTextBox.Text = "0"
Next
End Sub

[tr0n]

Sub CmdZero_Click()
Dim MyTextBox As Control
For Each MyTextBox In Me.Controls
If TypeOf MyTextBox Is TextBox  Then
  If MyTextBox.Text = "" Then MyTextBox.Text = "0"
End If
Next
End Sub

like that?

[Chrissie]

Yeah found it out myself aswell...posted my question to earlie...

Thanks anyways!