Sonuç ? onu da yazında konuyu artık kaldıralım

hocam tam isabet...aklınıza ve ellerinize sağlık...... Teşekkürler.....
(bende grup kodlu arttırımı deneyeceğim...) Yapabilecekmiyim ? Konuyu kaldırabilirsiniz...

Bunun için aşağıdaki kodu
eskisiyle değiştirmeniz yeterli

Private Sub Liste12_AfterUpdate()

If IsNull(DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]")) Then

Me.HARF_SIRA_NO = Me.Liste12 & "00001"

Me.NO = 1

Else

Me.HARF_SIRA_NO = Me.Liste12 & Format((DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]") + 1), "00000")

Me.NO = DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]") + 1

End If

End Sub

yav hocam büyüksünüz valla... Ne diyeyim ki ! Ne öğreniyorsak sayenizde... Ama ben tembel değilim yanlış anlamayınız lütfen... Çok çok teşekkürler...

Estağfurullah, tşk ederim ben sadece sabırsız
davrandınız diye sitem etmiştim.

Kolay gelsin