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
Custom views in Outlook 2010's Tasks
Interface to connect ascx events to parent via business layer code library - VB / ASP.NET
Conditional Formatting not printing
VPN Tunnel - NEW ISP
How to use mbox in c# web application
Moved a Dolpin 7 website to a new server and I get an error message.
SQL Server Script to Backup Database
2008 query in 2000
how to use Scriptomatic V2
Unable to Save files in my C drive