Skip to main content

AccessTr.neT


Arada Silinen Sayı Numarasını Tekrar Verme

Arada Silinen Sayı Numarasını Tekrar Verme

Çözüldü #1
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
.rar site10ara.rar (Dosya Boyutu: 87,73 KB | İndirme Sayısı: 2)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#2
Kod sadece mevcut yıl için mi çalışacak?
Cevapla
#3
Ayrıca diyelim ki hem 2020-0016 hem de 2020-0002 yok hangisi eklenecek
Cevapla
#4
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#5
ö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
Cevapla
#6
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task