Çalışmamda yapılan çalışma ile ilgili olarak sistematik bir sıra numarası vermek istiyorum.

SELECT TOP 1 tbl_disiplinolayi.olay_no, Format(Mid([olay_no],7,11)+1,"00000") AS yeniolay, Left([olay_no],6) AS tarih

FROM tbl_disiplinolayi

WHERE (((Left([olay_no],6))=Format(Date(),"yymmdd")))

ORDER BY Format(Mid([olay_no],7,11)+1,"00000") DESC;

tabloya dayalı sorgu oluşturup,

Dim yil, ay, gn As Integer

Dim d1 As Variant

   

    d1 = Nz(DLookup("yeniolay", "Srg_Olay_Sayisi"), 0)

    If d1 = 0 Then

    

        Me.txtolay_sıra_no = Format(Date, "yymmdd") & "00001"

    Else

        Me.txtolay_sıra_no = Format(Date, "yymmdd") & Dlookup ("yeniolay", "Srg_Olay_Sayisi")

koduyla da sayıyı oluşturuyorum. Lakin şöyle bir durum var, İlişkili olan kısımlar otomatik sayı türünden formlar açılıyor. Herhangi bir veri silinme işleminde sıra numarası arasında kopukluklar oluşuyor. Olay numarasında ise söyle bir hususla karşılaşıyorum. Diyelim olay numarası
200418001
200418002
200418003
bir numaradaki olaı silince yeni olaya tekrar 200418003 kaydını veriyor. Bu olayı nasıl çözebilirim.