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.