+- 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ığı: harfli-sayılı otomatik numaralandırma (/konu-harfli-sayili-otomatik-numaralandirma.html)
Cvp: harfli-sayılı otomatik numaralandırma - okileturc - 10/11/2010
Beklediğim cevap buydu
Önce birleştiripsonra 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
Cvp: harfli-sayılı otomatik numaralandırma - ekremzeki - 10/11/2010
Sevgili hocalarım....
Çözümlerde hata var gibi..... Son numarayı almıyor gibi....
Cvp: harfli-sayılı otomatik numaralandırma - ekremzeki - 10/11/2010
(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....
Cvp: harfli-sayılı otomatik numaralandırma - ekremzeki - 10/11/2010
Anlaşıldı.... Kendin çalış bul diyorsunuz galiba....Bende çözmezsem ne olayım....
Cvp: harfli-sayılı otomatik numaralandırma - okileturc - 10/11/2010
Sn. Ekrem hiç de öyle demiyoruz
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
Cvp: harfli-sayılı otomatik numaralandırma - ekremzeki - 10/11/2010
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....