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
Fully Automatic dental milling machines
IPAD Question
MacBook Stuck on Shut-Down
vb 6.0 version number
How to locak down Windows 7 PRO workstations
Maxtor Drive getting 'lost'
"Ad Zoo .Net" ??
exchange 2010 missing" server configuration"
Insert into MySQL Table from MSSQL Insert Trigger
Flash device Operating System