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.