+- 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ığı: Yüzde Hesaplatma (/konu-yuzde-hesaplatma.html)
Sayfalar:
1
2
Yüzde Hesaplatma - siyahca - 15/11/2021
Uzun zaman sonra merhabalar
Ana formumda bulunan Örnek veriye göre :
Ürün Kodu 50031006 seçili iken ;
Alt formumda 300001207 ve 300001209 kodları görünüyor. Buraya kadar sorun yok.
Ancak formumda görünen "Ana ürün ürün ağacı durumu" kutusuna Alt formda gelen kodların durumu tamamlandı olanlarını yüzde olarak hesaplatmak istiyorum. Bu örnekte %50 yazması gibi. (Tabi tabloyada kayıt ederken yazmış olacağım.
ilişkisiz text örnekli bir örnek çalışma sitemizde buldum ancak tabi ordan sonuca gidemedim sadece alt formdaki verilerin sayısını elde edebildim.
yardımcı olabilirseniz sevinirim.
iyi çalışmalar.
RE: Yüzde Hesaplatma - berduş - 15/11/2021
ilk olarak UR_AG_ANAURUN_DURUM_YUZDE metin kutusunun biçim özellğindek @ ifadesini silmeniz gerekiyo
anaurun güncelleştirme sonrası olayı
Private Sub ANAURUN_AfterUpdate()
If Len(Me.ANAURUN & "") = 0 Then Exit Sub
x = DCount("*", "SK_", "YM_DURUM='Tamamlandı' and ANAURUN='" & Me.ANAURUN & "'") / DCount("*", "SK_", "ANAURUN='" & Me.ANAURUN & "'")
Me.UR_AG_ANAURUN_DURUM_YUZDE = x * 100
End SubPrivate Sub Form_Current()
If Len(Me.ANAURUN & "") = 0 Then Exit Sub
x = DCount("*", "SK_", "YM_DURUM='Tamamlandı' and ANAURUN='" & Me.ANAURUN & "'") / DCount("*", "SK_", "ANAURUN='" & Me.ANAURUN & "'")
Me.UR_AG_ANAURUN_DURUM_YUZDE = x * 100
End SubRE: Yüzde Hesaplatma - siyahca - 16/11/2021
Sorum çözüldü. Çok teşekkür ederim. Emeğinize sağlık
RE: Yüzde Hesaplatma - berduş - 16/11/2021
Rica ederim
İyi çalışmalar
RE: Yüzde Hesaplatma - siyahca - 16/11/2021
hocam ufak bir detay, dijit kısıtı nasıl koyabilirim yani sonuç örneğin 0,909090909090909 çıktıda. 0,90 olarak nasıl kısıt ekleyebilirim
RE: Yüzde Hesaplatma - berduş - 16/11/2021
virgülden sonra 2 hane için mi?
Format(x, ".00") kullanılabilir