Solved

Restricting Input On an Unbound field

Posted on 2014-03-05
2
405 Views
Last Modified: 2014-03-09
I posted this question previously on EE and accepted a response that I thought would work.  Now that I am implementing the solution I find that my issues is not resolved.

Here is the original question:

I have an unbound field on my form.  A valid entry in this box could be any long integer number up to nine positions.


I have the format defined as 000000000.  I got a cancellation today when I tried to treat the entered field as numeric.

Today I was notified of a cancellation and the error displayed was "13 Type Mismatch".  Apparently I need to do more to restrict the input to numeric only and limit the length to no more than 9 digits.

I can't figure out how they got something in there that led to a type mismatch.  How is that possible? In my testing I can't get anything in there other than a number.

I was able to get an overflow error by entering 1 followed by 11 0's.

How can I tighten up the entry so only digits with a max length of 9 can be entered?

This is the solution I accepted:
A great way for that is to define some Code Event Procedure code in the On Exit "field", something like this:

Private Sub MyText_Exit(Cancel As Integer)
    If Not IsNumeric(MyText.Value) Then
        Cancel = True
    ElseIf Len(MyText.Value) > 9 Then
        Cancel = True
    End If

End Sub 

Open in new window


I tried that setting up an error trapping routine in both the Exit And Lost Focus Event of the field but they are not being invoked.  I still can create an overflow error by entering more than nine digits in the field and clicking some other control on the form.

The field is named 'openingBRT'  Here is what I tried:

Private Sub openingBRT_Exit(Cancel As Integer)

If thisIsAValidBRTFormat(Me.openingBRT) Then
Else
    Me.openingBRT.SetFocus
    Cancel = True
End If
'


End Sub
Private Sub openingBRT_LostFocus()

If thisIsAValidBRTFormat(Me.openingBRT) Then
Else
    Me.openingBRT.SetFocus
    Cancel = True
End If
'

End Sub
Public Function thisIsAValidBRTFormat(passedBRT As Variant) As Boolean
'
thisIsAValidBRTFormat = False
'
If Len(Trim(Nz(passedBRT, ""))) = 8 Or Len(Trim(Nz(passedBRT, ""))) = 9 Then
    MsgBox "BRT must be 8 or 9 positions long, please re-enter"
    Exit Function
End If
'
Dim i As Long
Dim wkBRT As String
wkBRT = Trim(Nz(passedBRT, ""))
'
For i = 1 To Len(wkBRT)
    If thisIsANumber(Mid(wkBRT, i, 1)) Then
    Else
        MsgBox "Only numbers are permitted in the BRT, please re-enter"
        Exit Function
    End If
Next i
'
thisIsAValidBRTFormat = True
'
End Function
Public Function thisIsANumber(passedChar As String) As Boolean
'
If passedChar = "0" Or _
   passedChar = "1" Or _
   passedChar = "2" Or _
   passedChar = "3" Or _
   passedChar = "4" Or _
   passedChar = "5" Or _
   passedChar = "6" Or _
   passedChar = "7" Or _
   passedChar = "8" Or _
   passedChar = "9" Then
   '
    thisIsANumber = True
Else
    thisIsANumber = False
End If
'
End Function

Open in new window

0
Comment
Question by:mlcktmguy
2 Comments
 
LVL 7

Expert Comment

by:COACHMAN99
ID: 39908280
why not set the textbox validation rule to <1000000000
and the validation text to "Must be less than 1,000,000,000
and the format as #0
?
0
 
LVL 34

Accepted Solution

by:
PatHartman earned 250 total points
ID: 39910749
The correct event to use for field level validation is the control's BeforeUpdate event.  It will only run if the value in the control is modified.  The "focus" and enter/exit events run if focus is placed in the control regardless of whether or not it was modified.
0

Featured Post

Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

Join & Write a Comment

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now