Beklediğim cevap buydu Ö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

Sevgili hocalarım....
Çözümlerde hata var gibi..... Son numarayı almıyor gibi....

(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....

Anlaşıldı.... Kendin çalış bul diyorsunuz galiba....Bende çözmezsem ne olayım....

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

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....