+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Arada Silinen Sayı Numarasını Tekrar Verme (/konu-arada-silinen-sayi-numarasini-tekrar-verme.html)
Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 10/12/2020
https://accesstr.net/konu-sorgu-ile-olmayan-sayilari-gosterme.html?pid=176482#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
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 10/12/2020
Kod sadece mevcut yıl için mi çalışacak?
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 10/12/2020
Ayrıca diyelim ki hem 2020-0016 hem de 2020-0002 yok hangisi eklenecek
RE: Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 10/12/2020
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.
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 10/12/2020
ö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 EvrakNo = AraDgrNot: sadece aktif yıl için
RE: Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 11/12/2020
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.