+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıt Sayma Problemi (/konu-kayit-sayma-problemi.html)
RE: Kayıt Sayma Problemi - ali.ozer - 27/12/2020
(27/12/2020, 14:18)berduş yazdı: Tekrar kontrol ederim ama dün denedigimde otomatik olarak geçmiştibüyük ihtimalle ben bi yerde yanlış yapıyorumdur.
Çalışmanızın son halini eklediğiniz kodların olduğu halini tekrar ekler misiniz?
RE: Kayıt Sayma Problemi - berduş - 27/12/2020
ş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
RE: Kayıt Sayma Problemi - berduş - 27/12/2020
ş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?
RE: Kayıt Sayma Problemi - ali.ozer - 27/12/2020
(27/12/2020, 15:06)berduş yazdı: şimdi sizin dosyanızda da denedimkardeş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.
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?
RE: Kayıt Sayma Problemi - berduş - 27/12/2020
Rica ederim
İyi çalışmalar)
RE: Kayıt Sayma Problemi - berduş - 28/12/2020
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