sorguyu güncelleştirme sorgusu yaptım fakat bazı kayıtlarınızda psf fiyatları ve iskonto oranları girilmediği için(boş olduğu için) kamu fiyatını hesaplamaz.
hesaplama yapmak için 1 adet buton ekledim
kodu:
Private Sub Komut69_Click()
Dim hesapla
If IsNull(Me.PSF) Then MsgBox "PSF FİYATI GİRMEDEN DEVAM EDEMEZSİNİZ", vbOKOnly, "E K S İ K B İ L G İ": Me.PSF.SetFocus: Exit Sub
If IsNull(Me.ISKONTO_ORANI) Then MsgBox "İSKONTO ORANI GİRMEDEN DEVAM EDEMEZSİNİZ", vbOKOnly, "E K S İ K B İ L G İ": Me.ISKONTO_ORANI.SetFocus: Exit Sub
hesapla = Me.PSF.Value * Me.ISKONTO_ORANI.Value / 100
Me.KAMU_FİYATI.Value = hesapla
End Sub
*Lütfen olumlu yada olumsuz geri dönüş yapınız.*örneği inceleyiniz.