Microsoft
Software
Hardware
Network
Question : VBA Excel User Form Input Validation
Hi All,
I am developing a simple forms based application in excel and am having a few problems with user input validation.
My code is working fine when checking for instances of Null but when the user enters a ] \ character, my code crashes with a Type Mismatch error.
Is anyone out here able to help me nail this once and for all?
My current source code for the On_Change event is as follows:
Private Sub RearAislewayDistance_Chang
e()
'Checking to see if user has entered data correctly.
If IsNumeric(Me.RearAislewayD
istance) Then
If Me.RearAislewayDistance = "" Or IsNull(Me.RearAislewayDist
ance) Then
MsgBox "Please provide total number of pallets shipped per week.", vbCritical
Me.RearAislewayDistance.Se
tFocus
Me.RearAislewayDistance.Ba
ckColor = vbRed
Me.RearAislewayDistance.Fo
reColor = &HFFFFFF
Exit Sub
Else
Me.RearAislewayDistance.Ba
ckColor = &H6FFFFF
Me.RearAislewayDistance.Fo
reColor = &H80000012
Me.RearAislewayDistance.Va
lue = FormatNumber(Me.RearAislew
ayDistance
, 0)
End If
End If
End Sub
Answer : VBA Excel User Form Input Validation
Try the Load Optimized Defaults first., If that doesn't work try the other one. Good luck.
Random Solutions
Display Query Results in a Message Box
How to prevent bandwith leeching on content?
Error: EXECUTE permission was denied on .....
laptop display problems
scheduled task not running - win 2008
Is there a good solution for monitoring the status of RAID array in HP or IBM server run Windows 2003?
"All circuits are busy" message received randomly when dialing out from Trixbox 2.8.
Will an AGP Video Card work in a PCI Express Slot?
Ruby script failing: (NoMethodError)
How to map external ip to internal subnet on a Cisco ASA