Textbox >=1 Koşulu

[o2l3m]

Merhaba

Textboxa girilen değer metin ise, boş ise veya sıfır ise uyarı versin.
Yada >=1 koşulundan başka her koşulda uyarı versin.Metin girme ve boş olması da dahil.

 

[Korhan Ayhan]

Deneyiniz.

"Dim" ile başlayan tanımlama satırları deklarasyon bölümünde (yani kod bloğunun en üstünde) olmalıdır.

Dim Kapat As Boolean, Kontrol As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Kapat = True Then Exit Sub
    If Not IsNumeric(TextBox1) Then Kontrol = True
    Select Case TextBox1
        Case Empty, 0
        Kontrol = True
    End Select
    If Kontrol = True Then
        MsgBox "Lütfen pozitif değer giriniz!", vbCritical
        Cancel = True
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Kapat = True
End Sub