PHP Kod:
Private Sub ckdahil_AfterUpdate()
If Me.ckdahil = -1 Then
Me.kdvdahil.Caption = "Kdv Dahil"
DoCmd.RunSQL "UPDATE Tbl_Faturadetay INNER JOIN Tbl_Stoklar ON Tbl_Faturadetay.urn_id = Tbl_Stoklar.urn_id SET Tbl_Faturadetay.Satis_Fiyati = ([Tbl_Stoklar].[Satis_Fiyati]/(100+[Tbl_Stoklar].[Kdv_Orani]))*100 WHERE (((Tbl_Faturadetay.fat_id)=[Formlar]![Frm_Faturakarti]![fat_id]));"
Else
Me.kdvdahil.Caption = "Kdv Hariç"
DoCmd.RunSQL "UPDATE Tbl_Faturadetay INNER JOIN Tbl_Stoklar ON Tbl_Faturadetay.urn_id = Tbl_Stoklar.urn_id SET Tbl_Faturadetay.Satis_Fiyati = [Tbl_Stoklar].[Satis_Fiyati] WHERE (((Tbl_Faturadetay.fat_id)=[Formlar]![Frm_Faturakarti]![fat_id]));"
End If
Me.Tbl_Faturadetay_alt_formu.Requery
End Sub