Skip to main content

AccessTr.neT


harfli-sayılı otomatik numaralandırma

harfli-sayılı otomatik numaralandırma

Çözüldü #7
Beklediğim cevap buydu Img-grin Önce birleştirip
sonra parçalama işlemi yapacaksınız oysa grup kodu
bu işi çözerdi. Ben ikna olmadım ama uygulamanız
ektedir.

Dmax la forma çağırdığınız denetim gereksizdir
Bölüm seçimi combosunun After Update ine kod
yazmak yeterli olacaktır


Private Sub Liste12_AfterUpdate()
If IsNull(DMax("[NO]", "NUMARALAMA")) Then
Me.HARF_SIRA_NO = Me.Liste12 & "00001"
Else
Me.HARF_SIRA_NO = Me.Liste12 & Format((DMax("[NO]", "NUMARALAMA")), "00000")
End If
End Sub

Uygulama ektedir

Not: pişti olmuşuz diğer cevapları görmemiştim Img-grin
.rar NUMARALAMA_OKİLETURC.rar (Dosya Boyutu: 14,85 KB | İndirme Sayısı: 20)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
Sevgili hocalarım....
Çözümlerde hata var gibi..... Son numarayı almıyor gibi....
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #9
(10/11/2010, 10:16)ekremzeki yazdı: Sevgili hocalarım....
Çözümlerde hata var gibi..... Son numarayı almıyor gibi....

Arkadaşlar, çözüm bulamadım hala....
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
Anlaşıldı.... Kendin çalış bul diyorsunuz galiba....Bende çözmezsem ne olayım....
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #11
Sn. Ekrem hiç de öyle demiyoruz Img-cray
Tepkinize rağmen hatalı kodumu düzeltip
yeni uygulamayı ekliyorum


Private Sub Liste12_AfterUpdate()
If IsNull(DMax("[NO]", "NUMARALAMA")) Then
Me.HARF_SIRA_NO = Me.Liste12 & "00001"
Me.NO = 1
Else
Me.HARF_SIRA_NO = Me.Liste12 & Format((DMax("[NO]", "NUMARALAMA") + 1), "00000")
Me.NO = DMax("[NO]", "NUMARALAMA") + 1
End If
End Sub

Kolay gelsin
.rar NUMARALAMA_okileturc3.rar (Dosya Boyutu: 15,52 KB | İndirme Sayısı: 32)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #12
Hocam estağfurullah.... Hiç kızarmıyım... Avantaya alışmamak lazım... İnat etmek gerekir çoğu zaman...Çalışıp düşünüp çözerdim aslında ama gün boyu çok yoğundum... Bakamadım... Şimdi de maç başladı... İlginiz için teşekkürler....
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task