Private Sub AMBALAJ_ADEDI_AfterUpdate()

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub



Private Sub ISKONTO_ORANI_AfterUpdate()

Dim hesapla

hesapla = (Me.PSF.Value * Me.ISKONTO_ORANI.Value) / 100

Me.KAMU_FİYATI.Value = Me.PSF.Value - hesapla

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub

Private Sub PSF_AfterUpdate()

Dim hesapla

hesapla = (Me.PSF.Value * Me.ISKONTO_ORANI.Value) / 100

Me.KAMU_FİYATI.Value = Me.PSF.Value - hesapla

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub

---

Pardon Kur@l Hocam cevaplamış ben geç gördüm...