Arkadaşlar merhaba kurcalaya kurcalaya çözdüm, çözümü burada paylaşmak isterim belki benim gibi bu tarz bir şeyi ileride kullanmak isteyen olabilir.

Formun kayıt ekleme sonrasına

Private Sub Form_AfterInsert()

Dim sıragecici As Integer

sıragecici = Me.[SIRA_NU]

Me.[SIRA_NU] = [SIRA_NU] & "-" & Year(Date)

End Sub

yazıldığında zaten formun kayıt kaynağı tablo olduğu için kaydediyor. Konu çözülmüştür iyi forumlar