CheckBox hakkında

[oerbas]

Herkese selamlarımla

CheckBox kutusu onaylandığı zaman KDV yi hesaplasın onaylanmadığı zaman hesaplamasın ben yapmaya çalıştım ama olmadı

ekte gönderdiğim örnek üzerinde düzeltme yaparsanız sevinirim.
CheckBox1 'e bağladığım kod aşağıda sanıyorum sorun şartın verildiği bu satırda
burada 1 değeri CheckBox'un onaylı 2 değeri onaysız olduğu durumlar için verilmiyormu

If CheckBox1.Value = 1 Then

Yardımlarınız için şimdiden teşekkürler


Private Sub CheckBox1_Click()
Dim topfiyat, topKDVlifiyat
topfiyat = Val(TextBox1) * Val(TextBox2)
'Eeğr CheckBox1 İşaretli ise
If CheckBox1.Value = 1 Then
'Beyaz eşya seçili ise KDV %25
If OptionButton1.Value = True Then
CheckBox1.Caption = "Dahildir"
topKDVlifiyat = topfiyat + topfiyat * 25 / 100
TextBox3 = topKDVlifiyat
'Beyaz eşya seçili değilse normal seçilidir KDV %15
Else
CheckBox1.Caption = "Dahildir"
topKDVlifiyat = topfiyat + topfiyat * 15 / 100
TextBox3 = topKDVlifiyat
End If
'Check1 işaretli değilse KDV yok
Else
CheckBox1.Caption = "Dahil değildir"
TextBox3 = topfiyat
End If
TextBox3 = Format(TextBox3, "###,###")
End Sub

 

[algil]

Merhaba arkadaşım birde böyle deneyin

Private Sub CheckBox1_Click()
Dim topfiyat, topKDVlifiyat
topfiyat = Val(TextBox1) * Val(TextBox2)
'Eeğr CheckBox1 İşaretli ise
If CheckBox1.Value = True Then
'Beyaz eşya seçili ise KDV %25
    If OptionButton1.Value = True Then
        CheckBox1.Caption = "Dahildir"
        topKDVlifiyat = topfiyat + topfiyat * 25 / 100
        TextBox3 = topKDVlifiyat
        'Beyaz eşya seçili değilse normal seçilidir KDV %15
    Else
        CheckBox1.Caption = "Dahildir"
        topKDVlifiyat = topfiyat + topfiyat * 15 / 100
        TextBox3 = topKDVlifiyat
    End If
'Check1 işaretli değilse KDV yok
Else
CheckBox1.Caption = "Dahil değildir"
TextBox3 = topfiyat
End If
TextBox3 = Format(TextBox3, "###,###")
End Sub

 

[Kemal Demir]

Sn.Oerbas

If CheckBox1.Value = 1 Then

Satırını

If CheckBox1.Value = False Then

Olarak denermisiniz.

 

[oerbas]

Sn.Oerbas

If CheckBox1.Value = 1 Then

Satırını

If CheckBox1.Value = False Then

Olarak denermisiniz.

sayın algil ve sayın kemaldemir' e teşekkür ediyorum önerileriniz işimi gördü sağolun kardeşler