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 [email protected] (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 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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da