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
Select a MS Table in VBA
System.InvalidCastExceptio
n was unhandled by user code Error code on LINQ
Types of authentications in ASP.NET and when are they used?
How to save images and image file paths into SQL from delphi form
Remove character in paste Excel
getElementByID not loading text
Java Not Working in Internet Explorer or Firefox
No mapping found for HTTP request with URI [/MyWeb/help/webhelp.css] in DispatcherServlet with name 'help'
You Tube Download Software
Horizontal RSS Feed News Ticker