veri kısıtlama

[pimet]

arkadaşlar textbox a sadece 10-15-20-25 sayılarından birinin girilmesini farklı sayı girildiğinde hata mesajı ermesi ile ilgili kod varmı acil yardımcı olabilirmisiniz...

 

[halit3]

bu kodu denermisiniz.

Sub deneme()
If TextBox1.Text = 10 Then
Exit Sub
ElseIf TextBox1.Text = 15 Then
Exit Sub
ElseIf TextBox1.Text = 20 Then
Exit Sub
ElseIf TextBox1.Text = 25 Then
Exit Sub
Else
MsgBox " 10 - 15 - 20 - 25 bu sayıları yazmayınız."
End If
End Sub

 

[ynmcan]

arkadaşlar textbox a sadece 10-15-20-25 sayılarından birinin girilmesini farklı sayı girildiğinde hata mesajı ermesi ile ilgili kod varmı acil yardımcı olabilirmisiniz...

Syn.Pimet; Örnek dosyayı inceleyin.

 

[Orion1]

Alternatif.
Private Sub CommandButton1_Click()

Dim i As Byte
For i = 10 To 25 Step 5
    If CInt(TextBox1.Text) = i Then
        'Kodlarınız
        '---------
        '----------
        Exit Sub
    End If
Next i
MsgBox "Textboxa sadece 10 15 20 ve 25 sayılarını girebilirsiniz."
TextBox1.SetFocus

End Sub

 

[pimet]

yardımlarınız için çok teşekkürler arkadaşlar..