Merhaba;

Kullanmış olduğum bir programda; EKLE butonun tıklandığında olayında

If MsgBox("Yeni Kayıt Yapmak istiyor musunuz?", vbYesNo + vbQuestion, "AYDIN") = vbYes Then



    

   DoCmd.GoToRecord , , acNewRec

   

   Dim son_id, aktif_yil, tablodaki_son_kayit, yil_bolumu, otomatik_sayi_bolumu As String

       son_id = DMax("sirano", "evrakkayit")

           tablodaki_son_kayit = Nz(DLookup("evrakno", "evrakkayit", "sirano=" & son_id), 0)

               If tablodaki_son_kayit = 0 Then

                   evrakno = Format(Date, "yyyy") & "-0001"

               Else

                   yil_bolumu = left(tablodaki_son_kayit, 4)

                       If yil_bolumu <> Format(Date, "yyyy") Then

                           evrakno = Format(Date, "yyyy") & "-0001"

                       Else

                           evrakno = yil_bolumu & "-" & Format(Mid(tablodaki_son_kayit, 6, 5) + 1, "0###")

                       End If

               End If

         

    Me.sayisi.SetFocus

   

   Else

   Me.Undo

Gördüğü yılı yazar araşa (-) İşareti koyar ve 0001 den başlar.