(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