Arada Silinen Sayı Numarasını Tekrar Verme

https://accesstr.net/konu-sorgu-ile-olma...#pid176482


Merhaba, POWER ve Kur@l hocamın örnekleri güzel, teşekkür ediyorum.

Ancak bu sorgu ve kodları çalışmama uygulayamadım. (id=otomatik sayı, evrakno kısa metin !)

yıla göre otomatik evrakno veren çalışmam mevcut. evrakno ekle butonu ile sırada ki numarayı veriyor örn: 2020-0021, bu arada önceki 5 yılda var...oldu da mevcut yıl içinde bir evrak kullanıcı tarafından silindi, örnek 2020-0016 silindi, ekle tuşuyla bu arada olmayan numarayı (2020-0016) aynı formatta verebileceğimiz bir kod veya sorgu mevcut mudur !


yani yeni komutla önce olmayan numarayı verecek (2020-0016) akabinde son kaldığı yerden devam edecek;2020-0022
Tşk . Img-grin

Kod sadece mevcut yıl için mi çalışacak?

Ayrıca diyelim ki hem 2020-0016 hem de 2020-0002 yok hangisi eklenecek

Merhaba sayın berduş, olmayan evrakno hangi yil ve kenfi içinde öncelikli hangi (öncelik mantıken küçük olan) evrakno ise onu vermeli. Ama, onceki yillarda veri işlemleri olmayacağına göre mevcut yıl daha uygun olur diye düşünüyorum. Tsk.

öncelikle forma aşağıdaki fonksiyonu ekleyin

Function AraDgr() As String

Dim yMax As Long

yMax = DMax("clng(Nz(mid(EvrakNo,6)))", "evrakkayit", "evrakno like '" & Year(Date) & "*'")

AraDgr = yMax + 1

For x = 1 To yMax + 1

    If DCount("EvrakNo", "evrakkayit", "EvrakNo= '" & Year(Date) & "-" & Format(x, "0###") & "'") = 0 Then

        AraDgr = Year(Date) & "-" & Format(x, "0###")

        Exit For

    End If

    

Next x



End Function

sonrada uygun gördüğünüz yere EvrakNo nün hesaplanmasını istediğiniz yereaşağıdaki kodu ekleyin

 EvrakNo = AraDgr

Dilerim işinize yarar
Not: sadece aktif yıl için

Sn.Berduş, deniyorum. Ekle butonuna "EvrakNo = AraDgr" komutu ekledim, ancak bu kod içinde yıla göre otomatik numara verme olduğu için sorun yaşıyorum, denemeye devam ediyorum.Blgi vereceğim. Tşk.