Skip to main content

AccessTr.neT


Tablodaki Bir Hücreye Otomatik Değer Atanması

Tablodaki Bir Hücreye Otomatik Değer Atanması

Çözüldü #1
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..
Cevapla
Çözüldü #2
Sorunuza yanıt almak için örnek uygulamanızı ekleyiniz. Ayrıca Site Kuralları gereği de örnek eklemeniz gerek.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
örnek uygulamam ektedir...
.rar UZLASMA_PROGRAMI2.rar (Dosya Boyutu: 16,97 KB | İndirme Sayısı: 13)
Cevapla
Çözüldü #4
Ekte ki örneği inceleyiniz.
kaydı güncellemeden önce klasör numarasını veriyoor.
.zip UZLASMA_PROGRAMI2_kur@l.zip (Dosya Boyutu: 47,09 KB | İndirme Sayısı: 28)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #5
ö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?...
Cevapla
Çözüldü #6
(22/09/2014 09:43)dilcet38 Adlı Kullanıcıdan Alıntı: ö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ş,

Visual Basic Code
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.

Visual Basic Code
   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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task