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

[kaskad755]

введение чисел в диапазоне от1 до 12 в textbox, 13 и более запретить?

 

[Tanya]

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]

Таня огромное спасибо, н рождается другой вопрос (на который, я просто не знаю ответ).

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