диапазон чисел(textbox)

T

Tanya

Гость
#2
Код:
Private Sub Text1_GotFocus()
Me.Text1.Tag = Me.Text1.Text
End Sub

Private Sub Text1_LostFocus()
Dim s As String

With Me.Text1

s = .Text

If Not (s Like "[1-9]" Or s Like "1[1-2]") Then

.SelStart = 0
.SelLength = Len(s)

MsgBox "[1 .. 12]", vbCritical, "Error"

.SetFocus
End If

End With
End Sub
 

kaskad755

Active Member
13.02.2009
34
0
52
Санкт-петербург
#3
Таня огромное спасибо, н рождается другой вопрос (на который, я просто не знаю ответ).

5 текстовых полей в которые вводятся цыфры от 1 до 12, но есть поля в которые ничего не вводится (т. е. они пустые). Незнаю как добавить проверку перед запретом, если подскажете спасибо (или подскажите, где это можно прочитать, чтоб понять, хочется разобраться, а не ездить людям по ушам).

Private Sub Text1_GotFocus()
Me.Text1.Tag = Me.Text1.Text
End Sub
Private Sub Text1_LostFocus()
Dim s As String
With Me.Text1
s = .Text
+++++++++++++++++++++Что вставить просто не знаю+++++++++++++
If Not (s Like "[1-9]" Or s Like "1[1-2]") Then
.SelStart = 0
.SelLength = Len(s)
MsgBox "ВОЗМОЖНЫ ТОЛЬКО ЦЫФРЫ ОТ 1 ДО 12", vbCritical, "Error"
.SetFocus
End If
End With
End Sub