AccessTr.neT

Tam Versiyon: Seçilin kayda otomatik sıra numarası verme ve sayma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Arkadaşlar merhaba
Ekte göndermiş olduğum örnekte bazı sıkıntılarım var bana bu konuda yardımcı olursanız çok sevinirim. Bitiminde inşallah burada paylaşaçağım. Sorunlar form üzerinde belirtilidi yardımınızdan dolayı şimdiden çok teşekkür ederim.

Yapılması gerekenler form üzerinde açıklanmıştır.
Sn saslan33 eklentilerimizi düzenle onar yapıp winzip veya winrar ile sıkıştırıp ekleyelim. Saygılar...
Forum kuralları gereği soruları forumdan sormanız yerinde olacaktır. Dosya içinde açıklamalarınız aynen koyarsınız. Diğer bir mesele sorularınızı adım adım parça parça sorarsanız daha hızlı cevap alırsınız. Topluca bakıp yapmak çok zor oluyor.
durumu alanının güncelleştirme sonrası olay yordamına
Me.SiraNo = DCount("[AdiveSoyadi]", "KisiData", "Durumu='" & [Durumu] & "' and Kimlik=" & [Kimlik]) + 1

bu kodu eklersen aynı kimlik numarasına sahip ve durumu aynı olan kayıt sayısının bir fazlasını sıra noya yazacaktır.
Sayın Nurullah_Serdar teşekkür ederim.
Şimdi durumuna göre sıra no veriyor. Bunu gönderdiğim örnekte olduğu gibi yan tarafta nasıl saydırırz.
İlgili forma 4 adet yeni metin kutusu ekleyip, kayıt kaynaklarına, durumlarına göre ilgili kodu yazın.

Kod:
=DCount("*", "KisiData", "Durumu='Şüpheli' And Kimlik=" & [Kimlik])
Kod:
=DCount("*", "KisiData", "Durumu='Tanık' And Kimlik=" & [Kimlik])
Kod:
=DCount("*", "KisiData", "Durumu='Sanık' And Kimlik=" & [Kimlik])
Kod:
=DCount("*", "KisiData", "Durumu='Müşteki' And Kimlik=" & [Kimlik])
Sayfalar: 1 2