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...