+- 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ığı: Metin Kutularının Toplamı (/konu-metin-kutularinin-toplami.html)
Metin Kutularının Toplamı - SeferŞANLI - 26/05/2020
Eklediğim örnekte gelişimtablosu formunda bulunan puanların toplantılarını almak ve alttaki toplama yazdırmak istiyorum. Puan toplamı 100 den büyük olmayacak şekilde zorlamak istiyorum. Birde form yüklendiğinde metin kutularında bulunan sıfırların olmamasını sağlamak istiyorum. Ve kurgu nasıl yapılmalı. Yani metin kutularının çıkıldığı olayına mı yazılmalı. Yani ilave bir buton kullanmakta pek işime gelmiyor.
RE: Metin Kutularının Toplamı - berduş - 26/05/2020
Toplam 100den büyük olunca sadece uyarı mı verecek yoksa işlem yapıp 100 olmaya da zorlayaca mi, mesela tüm metin kutularını orantısal olarak azaltacak bir işlem de yapılması gerekiyor mu?
RE: Metin Kutularının Toplamı - SeferŞANLI - 26/05/2020
Yok sayın hocam. Şöyle olması lazım. 1 dönem için 12 adet kriter var. Bunları kullanıcı girecek. Yalnız kullanıcı bunların toplamı 100 den büyük olursa kendisi kriterlerin puanlarını manuel olarak ayarlaması lazım. Tabi toplamda 100 geçittirmeyeceğiz.
RE: Metin Kutularının Toplamı - ozanakkaya - 26/05/2020
Forma
Sub Hesapla()
tplm1 = p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9 + p10 + p11 + p12
If tplm1 > 100 Then
MsgBox "Toplam 100'den büyük olamaz"
Me.Undo
Exit Sub
End If
DoCmd.RunCommand acCmdSaveRecord
End Subşeklinde kod ekle, p1, p2 .... p12 isimli metin kutularının güncelleştirme sonrasında olayına da
Hesaplakodu ekle.
RE: Metin Kutularının Toplamı - SeferŞANLI - 27/05/2020
Teşekkür ederim. Konu çözümlenmiştir.