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