öncelikle tablonuza "onek" ve "artacakdeger" diye 2  alan ekleyin(farklı isimlerde olabilir)

formunuza
txt_artanDeger
txt_onek
bunlar gizli olsun
birde 
txt_artmisDeger

 diye üçtane kurtucuk ekleyin.
ekle butonuna yada ne zaman eklme yapmak istiyorsanınız onun ilgili olayına

Me.txt_artanDeger = Dmax("artacakdeger", "tabloadi", "onek='" & Me.txt_onek & " ' " ) +1 

txt_artmisDeger  kutusunun satuır kaynağına aşağıdaki kodu ekleyin

=[onek] & Format([artacakdeger],"0000")