harfli-sayılı otomatik numaralandırma

Sevgili arkadaşlar,

Otomatik numaralandırmada sorun yaşamıyorum. Ancak ekte harf ve sayı numaralandırmasına örnek bir çalışma var... Harfli_sıra_no alanına forma girilince veya herhangi bir komutla "abc" veya istenilen harfli ve sayılı sistemle numaralandırma yapmak istiyorum. Daha önce okileturc hocam açıklama yapmıştı ama çözemedim. Yardımcı olursanız sevinirim.
Not:
(Okileturc hocam, daha önce bahsettiğim LT ile paralel çalışan uygulamada kullanacağım. logicalref'te sorun yok ama ficheno alanında sorun yaşadım... Başka bir uyarınız veya çözümünüz varsa ayrıca sevinirim.)

Sn. Ekrem
Sıralamada problem yok demişsiniz, zaten bir hayli örnek yapıldı
o kısmı geçiyorum
Harf ekleme konusunda pek bir sıkıntı olmaz ama sakıncalarını bilmelisiniz
Sıra Numarasını çektiniz, varsayalım : 11
Harf alanına : ABC yazdınız
After Update ine de
Me.HARFLINO= ME.HARFLER&ME.SIRANO yazdınız
şunu elde edersiniz
ABC11
İlk problem: artık sıra no Alfanümerik olmuştur :
Yani A-Z , Z-A sıralama ihtiyaçlarınızda hatalar oluşur
ABC11
ABC111
ABC22 gibi sıralayacaktır
Bunu aşmak için:
Me.HARFLINO= ME.HARFLER& Format(ME.SIRANO;"00000")
yazarak bu atamaların max. kaç digit olacağına karar vermeniz
gerekir. burada ben 5 verdim
ABC00011
ABC00022
ABC00111 sıralamamız düzelecektir.

Çok fazla digit öngörürseniz bu kez de numarananın
algılanması, okunması, kolonlara sığdırılması, rapor vb
güçlükler çıkabilir.

Daha önce yazdım ama cevap alamadım, kendimi de
tekrar etmek istemiyorum, bana şu "ABC" nin faydasını
söyleseniz, sizi ona göre yönlendireceğim.

Kolay gelsin

Hocam,
Çözümünüzü excel'de yapmış ama "yok yav" demiştim...Birazdan deneyip sonucunu yazacağım... (becerebilirsem tabi) İlginiz için teşekkürler....

Hocam oldu gibi....
Örneğe bir gözatıverin isterseniz.... Değer listesinden veya açılan kutudan istenilen değeri baz alıp ona göre numara ekliyor.... Ancak sadece forma ilk girişte otomatik numarada sorun yok.... Aynı form içinde tekrar veri kaydedildiğinde 0 olarak yazıyor... Ne ilave etmem gerekiyor...

Koddaki

Me.NO = NO1

kodunu silip

harf_sıra_no metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

Me.NO = IIf(IsNull(DMax("[NO]", "[NUMARALAMA]") + 1), 1, DMax("[NO]", "[NUMARALAMA]") + 1)

ayrıca tablodaki NO alanının varsayılan degeri =0 bu 0'ı sil