(27/12/2020, 14:18)berduş yazdı: Tekrar kontrol ederim ama dün denedigimde otomatik olarak geçmişti
Çalışmanızın son halini eklediğiniz kodların olduğu halini tekrar ekler misiniz?

büyük ihtimalle ben bi yerde yanlış yapıyorumdur.

şimdi denedim
bütün kayıtları sildim
formu açtım
kayıt ekledim
yeni kayda geçtim
ilk 20 kayıt için 1 verdi
yeni kayda yani 21. kayda geçtim
2011 yılını seçtim seçim yapar yapmaz 2 ye geçti
hatta 41 kayıt ekledim 21-40 arasını 2
41.yi ise 3 yaptı

https://resim.accesstr.net/do.php?img=10647

şimdi sizin dosyanızda da denedim
21 tane 2021 ekledim 21.yi 2021-2 yaptı
1 tane 2020 ekledim 2020-1 yaptı
tekrar 2011 ekledim 42. kaydı yani 2021 yılına ait 41. kaydı 2021-3 yaptı
siz nasıl yeni kayıt eklediniz?

(27/12/2020, 15:06)berduş yazdı: şimdi sizin dosyanızda da denedim
21 tane 2021 ekledim 21.yi 2021-2 yaptı
1 tane 2020 ekledim 2020-1 yaptı
tekrar 2011 ekledim 42. kaydı yani 2021 yılına ait 41. kaydı 2021-3 yaptı
siz nasıl yeni kayıt eklediniz?

kardeşim size nasıl teşekkür edecem bilemedim. oldu bendede . önceden olmamasının sebebini anladım galiba. ben açılır pencereden 2021 i seçmiyordum çünkü orda kendi geliyordu . üzerine tıklamıyordum. 2021 tıklatınca seçince     2021-2 diye attı. tekrar  çok teşekkür ederim . emeğinize bilginize sağlık.

Rica ederim
İyi çalışmalar)

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