Arkadaşlar aşağıdaki %18 olan KDV oranlarını değiştirmeme rağmen. KDV yi %18 olarak hesapliyor. Örneğin %1 yapiyorum ne yapiyorsam %18 ile çarpiyor. Başka hangi kodları değiştirmem lazım lütfen yardım edin
VBA şifresi olmayan prgramı ekliyiyorum saygılar.

Form-FRMSATIS
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = Dlookup ("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub
Private Sub Liste52_DblClick(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.KOD = Me.Liste52.Column(0)
Me.YAPILANISLEM = Me.Liste52.Column(1)
Me.ADEDI.Value = "1"
Me.SATAN.Value = "Mustafa SÖNMEZ"
Me.DEPO = Me.Liste52.Column(2)
Me.SATISFIYATI = Me.Liste52.Column(3)
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Liste25.Requery
End Sub
Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub

Form-HIZLISATIS
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = Dlookup ("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL"
End Sub
Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL"
End Sub