CikisMiktari metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yaz.

Private Sub CikisMiktari_AfterUpdate()

If Me.CikisMiktari > Dsum ("GirisMiktari", "GİRİŞ", "[IDFirma]=" & [IDFirma] & " and [IDUrunler]=" & [IDUrunler]) Then

MsgBox ("Çıkış Miktarı Giriş Miktarından Büyük Olamaz")

Me.CikisMiktari = ""

End If

End Sub