Message Box works on click but not on change

[jlindquist23]

This code works on a click and not a change and I can't figure out why?


The data is in a subform inside the main form. Diff1 is a General Number variable in the subform.


Private Sub Diff1_Change()
If (Me.Diff1.Value > 4 And Forms![HTRecord]![EmpID_2] = "") Then
MsgBox "Hello " & Forms![HTRecord]![EmpID] & "," & Chr(13) & Chr(10) & "Rockwell range on this part is greater than 4 points! Segregate rack, complete DMA and move parts to QUALITY HOLD area." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "DO NOT RE-RUN PARTS!", vbCritical, "4 Point Spread Max"
ElseIf (Me.Diff1.Value > 4 And Forms![HTRecord]![EmpID_2] <> "") Then
MsgBox "Hello " & Forms![HTRecord]![EmpID] & Chr(13) & Chr(10) & Forms![HTRecord]![EmpID_2] & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Rockwell range on this part is greater than 4 points! Segregate rack, complete DMA and move parts to QUALITY HOLD area." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "DO NOT RE-RUN PARTS!", vbCritical, "4 Point Spread Max"
End If
End Sub


Private Sub Diff1_Click()
If (Me.Diff1.Value > 4 And Forms![HTRecord]![EmpID_2] = "") Then
MsgBox "Hello " & Forms![HTRecord]![EmpID] & "," & Chr(13) & Chr(10) & "Rockwell range on this part is greater than 4 points! Segregate rack, complete DMA and move parts to QUALITY HOLD area." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "DO NOT RE-RUN PARTS!", vbCritical, "4 Point Spread Max"
ElseIf (Me.Diff1.Value > 4 And Forms![HTRecord]![EmpID_2] <> "") Then
MsgBox "Hello " & Forms![HTRecord]![EmpID] & Chr(13) & Chr(10) & Forms![HTRecord]![EmpID_2] & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Rockwell range on this part is greater than 4 points! Segregate rack, complete DMA and move parts to QUALITY HOLD area." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "DO NOT RE-RUN PARTS!", vbCritical, "4 Point Spread Max"
End If
End Sub

[pbaldy]

The change event fires with every keystroke, so normally you want the after update event. If you do want the change event, you have to use the .Text property of the control. The .Value property won't be updated while the user is still typing.

[jlindquist23]

I didn't realize that.
I made that change, but message box still won't go.

[Welshgasman]

Perhaps show your latest code?
This time within code tags?

Much easier to read then.

[pbaldy]

Sorry, I'm not getting email notifications for some reason. Set a breakpoint and examine the values in the controls being tested. Note that Null and "" are different things, and you're only testing for one of them. This tests for both:

Nz(Forms![HTRecord]![EmpID_2], "") <> ""