+- 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)
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 11/12/2020
tam olarak anlamadım
yaptığınız değişikliğin olduğu son dosyayı ekleyip nerede ne sorun olduğunu açıklar mısınız?
RE: Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 11/12/2020
2020-0006 yı sildim. Modül oluşturdum, EvrakNo=AraDgr ekle kodlarına ekledim- hata verdi geri sildim..
frm_ana
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 11/12/2020
Yaptığınız değişiklikleri silmeden ekleyin
AraDgr Modülünün ismini MdlAraDgr olarak değiştirip öyle dener misiniz?
modül ile fonksiyonun ismi aynı olduğundan sorun çıkıyor
RE: Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 11/12/2020
EvrakNo = MdlAraDgr- ekle olay yordamına- girildiğinde ekledim.
modülün ismini MdlAraDgr olarak değiştirdim.
f_ana dan EKLE komutunda , kod sayfasına atıyor. Ekle-girildiğinde, satırına.
RE: Arada Silinen Sayı Numarasını Tekrar Verme - berduş - 11/12/2020
modüldeki AraDgr fonksiyonunu yeniden düzenledim
Function AraDgr() As String
Dim yMax As Long
yMax = Nz(DMax("clng(Nz(mid(EvrakNo,6)))", "evrakkayit", "evrakno like '" & Year(Date) & "*'"), 0)
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 Functiondeneme amaçlı olarak tabloyu boşaltıp sıfır kayıttan itibaren ekledim
esas tablonuz evrakkayitAsil olarak kaydettim ismini değiştirp eski haline getirebilirsiniz
RE: Arada Silinen Sayı Numarasını Tekrar Verme - yorum70 - 11/12/2020
Sn.berduş, gayet başarılı, teşekkür ediyorum.
sorun çözülmüştür.