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.
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?
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.
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
Hesapla
kodu ekle.
Teşekkür ederim. Konu çözümlenmiştir.