Formda kategorilerine ayrılmış kayıtlara sıra no verilmesi

[abkbek]

Sayın arkadaşlar merhaba,
Ekte gönderdiğim formdaki Kategori no alanına sıra numarasını şu şekilde vermek istiyorum;
kayıtları "Ehliyet Cinsine"
göre kategorize edecek ve 1'den başlayarak artan şekilde numaralandıracak.
her ehliyet grubu için numaralandırma 1'den başlayacak ve artarak devam edecek ancak verilen numaraların kendi kategorilerinde tekrar edip etmediği de kontrol edilecek ve eğer tekrar eden numara varsa bir mesajla uyaracak. bu mümkün mü?

bunu bir düğme ile açılacak sorguya bakıp yapmak mümkün ancak bu yöntem kullanıcının dikkatine bağlı ve hata ile karşılaşılma ihtimali var. yani verilen bir numarayı tekrar vermek gibi, ayrıca kayıt sayısı arttıkça bu iş zahmetli olacaktır. bu işlemin kod ile yapılması durumunda hem kullanıcının hata yapma ihtimali ortadan kalkacak, hem de zaman tasarrufu sağlayacaktır diye tahmin ediyorum. )

(örneğin; Bir komut düğmesine basıldığında ileti kutusu ile kategorisine göre verilen en son numaraya 1 ekleyecek ve alana yazacağım değeri gösterecek)

 

[abkbek]

Sayın üstadlarımız,
sorumla ilgilenebilir misiniz?

 

[Taruz]

Merhaba..

İstediğiniz olayın çok benzerini sayın beab05 bir başka soruda çözmüştü. Size de faydası olacaktır

http://www.excel.web.tr/showthread.php?t=39703

 

[abkbek]

Merhaba,
sayın Taruz gonderdiğiniz link için çok teşekkür ederim. önerdiğiniz çözümü kendi çalışmama uyarlayabilmem için aşağıdaki kodun mantığını ve açıklamasını yapabilir misiniz? komuttaki " işareti, & işareti, ' işareti neyi ifade ediyor? komut saatırında belirtilen kategoride her zaman en büyük numarayı alıp ona 1 ekliyor, oysa eski kayıtlardan birinin kategorisini değiştirip çıkıyorum tekrar kategori alanına girip eski kategorisini seçip alandan çıktığımda daha önceki numara boş olmasına rağmen bu numara yerine en büyük sayıya 1 ekliyor, bu şekilde arada kullanılmayan yada boş geçilen sayılar ortaya çıkıyor, oysa her kategoride sayılar birer defa ve artan şekilde devam ettirilmesi gerekiyor. bunun için komutta neyi değiştirmem gerekir

lngNextID = IIf(IsNull(DMax("[Belge no]", "kaynak", "[Belge Cinsi Nev'i] = '" & Forms!kaynak![Belge Cinsi Nev'i] & "'")), 1, DMax("[Belge no]", "kaynak", "[Belge Cinsi Nev'i] = '" & Forms!kaynak![Belge Cinsi Nev'i] & "'") + 1)

 

[abkbek]

Sayın Taruz müsait olduğunuzda cevabınızı bekliyorum

 

[beab05]

Merhaba;

lngNextID = IIf(IsNull(DMax("[perkategorisno]", "[personel temel bilgileri]", "[ehliyetcinsi] = '" & Forms![personel temel bilgileri]![ehliyetcinsi] & "'")), 1, DMax("[perkategorisno]", "[personel temel bilgileri]", "[ehliyetcinsi] = '" & Forms![personel temel bilgileri]![ehliyetcinsi] & "'") + 1)

Bu şekilde deneyiniz.

 

[abkbek]

Sayın beab05
Çok ama çok teşekkür ederim. tam istediğim gibi olmuş. inanın minnettarlığımı ifade edebilmek için satırlarca yazmak istiyorum ama sanıyorum şükran duygularımı yukarıdaki kelimelerimden de anlayabilirsiniz.

 

[assenucler]

Rica

Sayın abkbek;

İsteğiniz ilgimi çekti, dosyanın son halini yükleyebilir misiniz? Teşekkürler.

 

[abkbek]

sorumun cevapları işlenmiş son halini gösteren örnek istifade etmek isteyen arkadaşlar için ektedir.

 

[esrefgul44]

sorumun cevapları işlenmiş son halini gösteren örnek istifade etmek isteyen arkadaşlar için ektedir.

sn. beab05

yukarıdaki soru için çözümünüz olan ;

lngNextID = IIf(IsNull(DMax("[perkategorisno]", "[personel temel bilgileri]", "[ehliyetcinsi] = '" & Forms![personel temel bilgileri]![ehliyetcinsi] & "'")), 1, DMax("[perkategorisno]", "[personel temel bilgileri]", "[ehliyetcinsi] = '" & Forms![personel temel bilgileri]![ehliyetcinsi] & "'") + 1)

modüle uygun olarak

--- 3 sekmeli bir EVRAK formum var KAYIT sekmesinde "Büro Sayısı" alanının, gggg.aa.yyyy formatındaki "Büro Tarihi" alanındaki yıl ölçütüne göre sıradan numara vermesi için bir modül gönderebilirmisiniz, şimdiden ilginize teşekkürler ---

 

[beab05]

Merhaba;
Sql i sevdiğim için bununla ilgili bir sorgu yaptım ve bunu ado ile yazıp module dönüştürmeyi denedim. Sql sorgusu da alttaki örnekte qry_toplam ismiyle vardır inceleyiniz.

SELECT DatePart("yyyy",[a.tarih]) AS yıllar, (select sum(burosayisi) from tablo1 where datepart("yyyy",[tarih])=datepart("yyyy",[a.tarih])) AS toplams, a.id
FROM Tablo1 AS a
GROUP BY DatePart("yyyy",[a.tarih]), a.id
ORDER BY DatePart("yyyy",[a.tarih]);

moduldeki fonksiyonunu ister current olayına yazın isterseniz ilgili alanın içine



Siz kendi örneğinize göre düzenleyiniz..

 

[esrefgul44]

sn. beab05

valla bana gönderdiğiniz örneğe benden kaynaklanan arızadan dolayı kafam basmadı, ehliyet için yaptığınız gibi gönderseydiniz daha iyi olacakti sanki kusuru bakma, ben kendime göre bi örnek yaptım ekte gönderiyorum, formda kayıt yılına göre otomatik verilecek artan sıra no alanı tabloda bir alanda depolanıyor, çünkü ayrıca bu kayıtları bir raporda da görüntülemem lazım, örnek üzerinden yardımcı olurmusunuz

ilginize ve emeğinize şimdiden teşekkürler

 

[beab05]

SELECT DatePart("yyyy",[a.dogumyili]) AS yıllar, a.kisino, (select count(kisino) from tablo1 where datepart("yyyy",[dogumyili])=datepart("yyyy",[a.dogumyili])) AS toplams
FROM Tablo1 AS a;

Alan ekleyip gruplandırma yapabilirsiniz formu ya da raporu bu sorguya bağlayıp kullanabilirsiniz. "toplams" alanı istediğiniz veridir..Kişino yu otosayı ve birincil anahtar yapınız..

 

[esrefgul44]

sn. beab05

yanlış anlattım galiba,
örnekteki formda en alttaki kayıt sıra nosunun bir üstündeki kayıt tarihindeki yıla göre otomatik artan numara almasıydı