Just numeric input for all textboxes in the form

[amd711]

I have a form for data input with more than 200 textboxes, almost all of them are numeric



i usually use the following code to allow only for numbers input in a textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If

End Sub

is it possible to apply this code for all of the textboxes so that i dont have to do it 200 times

[Missinglinq]

If you put your code in a Function, you'd still need one line of code, in the KeyPress event of each Control, to call it, and since your current code could be reduced to one line, what would be the point?

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

I'd be more concerned with the fact that you have a RecordSet, and probably its underlying Table, with 200 Fields! Most experienced developers will tell you that a Table with more than 25-35 Fields is almost assuredly non-normalized.

Linq ;0)>

[orange]

I agree with Linq -- please tell us about your table(s) and what exactly you are trying to do.

[amd711]

Believe me, this table cannot be normalized any more
I cannot describe it, but think of it as something with 200 immanent characteristics

[orange]

OK. If you can't describe it, there's not much advice/assistance we can offer. You could post the table layout.

[amd711]

OK. If you can't describe it, there's not much advice/assistance we can offer. You could post the table layout.

My problem is programmatic, this is why i am posting in the programming section - it is not about my database design

However, Thanks.

[RayMilhon]

One thing I've learned in 20 years of DB Development is a fresh pair of eyes can find something I a)didn't realize or b)didn't notice. I have to agree with the other responders recheck your table design. Other than that there really isn't anything else you can do.

[Missinglinq]

Everything else aside, as I originally said, you're talking about replacing one line of code, in the KeyPress event of each of your Textboxes, with one line of code, in the KeyPress event of each of your Textboxes! If you placed your code in a generic Function, you'd still have to Call that Function from each Textbox. There's simply no getting around this, although I've seen people trying to for years, now!

Of course, if the Fields are defined as Numbers, Access won't allow Alpha characters to be saved to the Fields, but that only becomes obvious after the fact, so to speak, and the Access error message isn't very user-friendly! You could, of course, replace the Access error message with one of your own, and you'd only have to have the code for this in one place, the Form_Error event. Something like this:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = 2113 Then 'Data entered does not match datatype of Control Source

 Response = MsgBox("This Field Only Accepts Numeric Values!", vbExclamation, "Please Enter Numbers Only")
 Response = acDataErrContinue
 Me.ActiveControl.SelStart = 0

End If

End Sub

Linq ;0)>