(13/06/2022, 22:59)berduş yazdı: aşağıdaki kodu dener misiniz?

If Nz(Me.KayitNu, "") = "" Then

    xHrf = Format(Date, "dd.mm.yyyy") & "-Y-"

    If Sec = 2 Then xHrf = Format(Date, "dd.mm.yyyy") & "-P-"

    xNud = DMax("clng(0 & mid([KayitNu],14))", "Tbl_AracKayit", "[KayitNu] like '" & xHrf & "*'")

    Me.KayitNu = xHrf & Format(Nz(xNud, 0) + 1, "0000")

End If

Sayın berduş cevabınız için çok teşekkür ederim. Kod çalışıyor "Y" ve "P" için ayrı ayrı birbirini takip eden sıra numarası veriyor. Ancak Sec Seçenek kutusu 2 opsiyonlu 1 ve 2. Yazdığınız kodda 1. opsiyon "Y" için Sec'ten herhangi bir seçenek seçmeme gerek kalmadan yani Sec'i boş bıraksam dahi default olarak "Y" için numara veriyor. Bu da kayıt yapan kişinin hatalı davranması halinde "P" yerine "Y" numarası verilmesine sebep olabilir. Yani normal olarak "P" için ben 2. opsiyonu seçmek zorunda isem, "Y" için de 1. opsiyonu seçmem lazım. 1.opsiyon seçilmeden "Y" vermemesi lazım. Opsiyon seçilmeden kaydedilirse kayıt yapmamalı ve numara vermek yerine hata kodu verse daha iyi olur seçim yapmadınız diye...
Ayrıca en sondaki End If için hata kodu verdi ben de sildim.