Private Sub Fiyatı_AfterUpdate()
Me.Tutar.Value = Me.Fiyatı.Value * Me.Miktar.Value
End Sub
Private Sub Miktar_AfterUpdate()
Me.Tutar.Value = Me.Fiyatı.Value * Me.Miktar.Value
End Sub
Fiyat ve Miktar alanlarının güncelleme sonrasına yazılan Vba kodları