+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access hesaplama yardım (/konu-access-hesaplama-yardim.html)
access hesaplama yardım - wave41 - 05/04/2011
Mrb, Excel de bir formül kullanıyorum bunun aynısını accesstede kullanmak istiyorum örnek aşağıda
a=1-(a1*b1/100) yani a1 hücresindeki sayıdan iskonto oranının düşmüş hali lazım
yardımcı olacaklara şimdiden teşekkürler
Cvp: access hesaplama yardım - Coskun0559 - 05/04/2011
merhaba,
accesste istediğiniz oranı tabloda tutturursunuz.(örnek KDVOran,iskOran,)
Formda hesaplama yapmak istedğiniz zaman tabloda iskonto oranını çekersiniz ve hesaplamayı yaptırırsınız.
a=1-[me.iskOran]
Yada iskonto oranını 1 den çıkartmadan direk tabloya yüzde olarak kaydedersiniz.
örneğinizi eklerseniz daha iyi yardımcı olurum/oluruz...
kolay gelsin
Cvp: access hesaplama yardım - wave41 - 05/04/2011
tabloda aşağıdaki sütunlar var, fiyattan iskonto yüzdesini çıkartıp kamu fiyatını bulmak istiyorum
FIYAT : 1000
ISKONTO_ORANI : %11
KAMU_FIYATI = ?
Cvp: access hesaplama yardım - Coskun0559 - 05/04/2011
Anlayabildiğim kadarıyla ekteki basit örneği hazırladım
3 satır kodu var
Dim hesapla
hesapla = Me.FIYAT.Value * Me.ISKONTO_ORAN.Value / 100
Me.KAMUFIYAT.Value = hesaplaCvp: access hesaplama yardım - wave41 - 05/04/2011
örnek dosya yükledim onun üzerinde uygulama imkanınız varmı
Cvp: access hesaplama yardım - Coskun0559 - 05/04/2011
örneğinize 1 adet form ekledim.
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örneği inceleyiniz.