Check Textbox for no value

[dweekley]

Hello

I am trying to check that a textbox value is empty prior to a change. If it is empty I do not want the messege to trigger.

I currently have the following in the 'On Change' Event.

Private Sub txtSON_Change()
'Alert when changing


If Len(Me.txtSON.Value) = 0 Then GoTo EmptyExit

MsgBox "You are about to change the 'Shop Order Number'" _


& Chr$(13) _
& "Be certain number matches appropriate part number.", vbOKOnly, "Change Alert"

EmptyExit:


Exit Sub


End Sub

The messege is triggering even when there is no value in the textbox.

[jwhite]

Modify the If to: If Len(Me.txtSON.Value & "") = 0 Then GoTo EmptyExit

and move it to the BeforeUpdate or AfterUpdate event for the control.

imo, as a user I would be very annoyed with this pop-up.

[dweekley]

Thanks that did the trick. what does the & "" cover?

Just tried it. And yes your right. I need to tweak it a bit now. Most like a Case Select. The textbox is either empty or has 5 digits in it. So it will now trigger on digits 2,3,4 and 5 now.

Thanks

[jwhite]

If the value of the control is Null, just checking for Len of Null would return an unknown value, not 0. Thus appending an empty string to it then presents a known value.