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.