Tablodaki Bir Hücreye Otomatik Değer Atanması

Merhaba Arkadaşlar,

Tablomda 2 tane alan var:
Birincisi Kayit_No değeri Otomatik Sayı
İkincisi Klasor_No değeri Tam sayı

benim yapmak istediğim Kayıtları girdikçe Kayit_No zaten otomatik artacak. 1,2,3,4..... şeklinde
Bu kayıt 8 olduğunda, yani 9. kayda geçtiğimde Klasor_No otomatik olarak artsın istiyorum.
Örneğin, 1. kaydı girdim- Klasör no 1 oldu
2. kaydı girdim- klasör no yine 1
3,4,5,6,7,8. kayıtlarda da klasör no yine 1 olacak.
Ancak 9. Kaydı girdiğimde Klasör no 2 olacak. Yani her 8 kayıtta +1 artacak. Bunu yapmam mümkünmü? Yardımcı olursanız çok sevinirim. Evrakları dosyalama konusunda çok işime yarayacak... şimdiden Teşekkürler..

Sorunuza yanıt almak için örnek uygulamanızı ekleyiniz. Ayrıca Site Kuralları gereği de örnek eklemeniz gerek.

örnek uygulamam ektedir...

Ekte ki örneği inceleyiniz.
kaydı güncellemeden önce klasör numarasını veriyoor.

öncelikle teşekkür ederim. Örneği inceledim fakat nerede değişiklik yaptığınızı bulamadım. tabloya elle kayıt gireyim dedim. Klasör numarası en son 18de kalmış. kayıt giriyorum fakat klasör numarası 19 olmuyor. Ne gibi değişiklikler yaptığınızı kısaca açıklayabilirmisiniz?...

(22/09/2014, 09:43)dilcet38 yazdı: öncelikle teşekkür ederim. Örneği inceledim fakat nerede değişiklik yaptığınızı bulamadım. tabloya elle kayıt gireyim dedim. Klasör numarası en son 18de kalmış. kayıt giriyorum fakat klasör numarası 19 olmuyor. Ne gibi değişiklikler yaptığınızı kısaca açıklayabilirmisiniz?...

Merhaba,
Kur@l hoca formun güncelleştirme öncesinde olayına aşağıdaki kodu eklemiş,

If NewRecord Then

    Dim kural As Double

        kural = Nz(DCount("Sira_No", "Genel_Kayit_Tablo"), 1)

        If kural Mod 8 = 0 Then

            Me.Klasor_Numarasi = DMax("Klasor_Numarasi", "Genel_Kayit_Tablo") + 1

            Else

            Me.Klasor_Numarasi = Nz(DMax("Klasor_Numarasi", "Genel_Kayit_Tablo"), 1)

        End If

End If

Forma yeni kayıt ekleyin, klasör numarası alanına sira no verisine göre sayı atandığını göreceksiniz.

Veya siz Kayit Numarası metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyerek de kullanabilirsiniz.

   Dim kural As Double

        kural = Nz(DCount("sira_no", "Genel_Kayit_Tablo"), 1)

        If kural Mod 8 = 0 Then

            Me.Klasor_Numarasi = DMax("Klasor_Numarasi", "Genel_Kayit_Tablo") + 1

            Else

            Me.Klasor_Numarasi = Nz(DMax("Klasor_Numarasi", "Genel_Kayit_Tablo"), 1)

        End If