+- 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ığı: Tablodaki Bir Hücreye Otomatik Değer Atanması (/konu-tablodaki-bir-hucreye-otomatik-deger-atanmasi.html)
Sayfalar:
1
2
Tablodaki Bir Hücreye Otomatik Değer Atanması - dilcet38 - 19/09/2014
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..
Cvp: Tablodaki Bir Hücreye Otomatik Değer Atanması - Kur@l - 19/09/2014
Sorunuza yanıt almak için örnek uygulamanızı ekleyiniz. Ayrıca Site Kuralları gereği de örnek eklemeniz gerek.
Cvp: Tablodaki Bir Hücreye Otomatik Değer Atanması - dilcet38 - 19/09/2014
örnek uygulamam ektedir...
Cvp: Tablodaki Bir Hücreye Otomatik Değer Atanması - Kur@l - 19/09/2014
Ekte ki örneği inceleyiniz.
kaydı güncellemeden önce klasör numarasını veriyoor.
Cvp: Tablodaki Bir Hücreye Otomatik Değer Atanması - dilcet38 - 22/09/2014
ö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?...
Cvp: Tablodaki Bir Hücreye Otomatik Değer Atanması - ozanakkaya - 22/09/2014
(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 IfForma 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