eğer yeni kayda geçtiğinizde varsayılan değeri otomatik olarak eklemek isterseniz formun geçerli olduğunda olayına aşağıdaki kodu yazabilirsiniz

Private Sub Form_Current()

If NewRecord Then

    Dim yMax As Long

    yMax = Nz(DMax("clng(Nz(mid([Klasor No],6)))", "[Sonim Tablo]", "[Klasor No] like '" & Açılan_Kutu242 & "*'"), 1)

    KlsNo = DCount("*", "[Sonim Tablo]", "[Klasor No]='" & Açılan_Kutu242 & "-" & yMax & "'")

    If KlsNo = 20 Then yMax = yMax + 1

    

    Me.Klasor_No = Açılan_Kutu242 & "-" & yMax

End If

End Sub