modüldeki AraDgr fonksiyonunu yeniden düzenledim

Function AraDgr() As String

Dim yMax As Long

yMax = Nz(DMax("clng(Nz(mid(EvrakNo,6)))", "evrakkayit", "evrakno like '" & Year(Date) & "*'"), 0)

AraDgr = yMax + 1

For x = 1 To yMax + 1

If DCount("EvrakNo", "evrakkayit", "EvrakNo= '" & Year(Date) & "-" & Format(x, "0###") & "'") = 0 Then

AraDgr = Year(Date) & "-" & Format(x, "0###")

Exit For

End If



Next x



End Function

atama fonksiyonunu doğrudan Ekle butonunun tıklama olayına ekledim
deneme amaçlı olarak tabloyu boşaltıp sıfır kayıttan itibaren ekledim
esas tablonuz evrakkayitAsil olarak kaydettim ismini değiştirp eski haline getirebilirsiniz