gönderdiğiniz örnek dosyadaki değerlerle de çalıştırdım.
Ben kodları Butona koydum. deneme yaparken kolay olsun diye. fakat siz açılan kutu olsun metin kutusu olsun. güncelleme sonrasına koyduğunuzda işlemi gerçekleştirecektir. Yani Değişen bir şey yok. hatta kodu bir kere yazıp CALL ile çekmede yapabilirsiniz böylelikle fazladan kod yazılımı olmaz. Bir dakika onuda yapayım. Yaptım
private sub HESAPLA()
end sub
içindeki kodları sadece bir nesnenin olayına CALL HESAPLA
yazarak çalıştırabilirisiniz.
ayrıca örnekte kodlar olduğu gibi buraya da formda gözükecek şekilde yapıştırdım. daha az kodla halledilebilir miydi? Evet. basit olması ve anlaşılır olması açısından bu şekilde daha iyi sanırım.iyi akşamlar.
Kod:
Dim MATRAH8, MATRAH18 As Double
Select Case Me.KDV1
Case Is = 8
MATRAH8 = MATRAH8 + T1
Case Is = 18
MATRAH18 = MATRAH18 + T1
End Select
Select Case Me.KDV2
Case Is = 8
MATRAH8 = MATRAH8 + T2
Case Is = 18
MATRAH18 = MATRAH18 + T2
End Select
Select Case Me.KDV3
Case Is = 8
MATRAH8 = MATRAH8 + T3
Case Is = 18
MATRAH18 = MATRAH18 + T3
End Select
Select Case Me.KDV4
Case Is = 8
MATRAH8 = MATRAH8 + T4
Case Is = 18
MATRAH18 = MATRAH18 + T4
End Select
Select Case Me.KDV5
Case Is = 8
MATRAH8 = MATRAH8 + T5
Case Is = 18
MATRAH18 = MATRAH18 + T5
End Select
Select Case Me.KDV6
Case Is = 8
MATRAH8 = MATRAH8 + T6
Case Is = 18
MATRAH18 = MATRAH18 + T6
End Select
Select Case Me.KDV7
Case Is = 8
MATRAH8 = MATRAH8 + T7
Case Is = 18
MATRAH18 = MATRAH18 + T7
End Select
Select Case Me.KDV8
Case Is = 8
MATRAH8 = MATRAH8 + T8
Case Is = 18
MATRAH18 = MATRAH18 + T8
End Select
Me.ToplamMatrah8 = MATRAH8
Me.ToplamMatrah18 = MATRAH18
Me.YEKUNMATRAH = MATRAH8 + MATRAH18
Me.MATRAHKDV8 = MATRAH8 * 0.08
Me.MATRAHKDV18 = MATRAH18 * 0.18
Me.OzGuR_YaSiN = Me.YEKUNMATRAH + Me.MATRAHKDV18 + Me.MATRAHKDV8