Такая задачка возникла. Имеется форма, на ней полтора десятка текстбоксов. Нужно ограничить вввод, разрешив только числа.
Для одного поля легко
[vba]Код
Private Sub TextBox1_Change()
If Not IsNumeric(Me.TextBox1.Text) Then Me.TextBox1.Text = ""
End Sub
[/vba]
Но это ж для каждого бокса править придется. Я надумал вызывать внешнюю процедуру с передачей имени в качестве параметра. Но вот как определить имя текстбокса, или выполняемой процедуры не знаю. Есть вариант через классы решить, но с ними там я совсем плохо знаком.