öncelikle forma aşağıdaki fonksiyonu ekleyin

Function AraDgr() As String

Dim yMax As Long

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

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

sonrada uygun gördüğünüz yere EvrakNo nün hesaplanmasını istediğiniz yereaşağıdaki kodu ekleyin

 EvrakNo = AraDgr

Dilerim işinize yarar
Not: sadece aktif yıl için