Checkbox based on value

[setis]

Could somebody help me with the AfterUpdate() VBA for a texbox in a form?


If the value is >9000 the checkboxA must be checked.


Thanks in advance!

 

[arnelgp]

Private Sub textboxNumber_AfterUpdate()
Me.CheckBox = (Val("0" & Me.textboxNumber)>9000)
End Sub

 

[setis]

Great. Thank you so much one more time!