Skip to main content

AccessTr.neT


Arada Silinen Sayı Numarasını Tekrar Verme

Arada Silinen Sayı Numarasını Tekrar Verme

#7
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?
Cevapla
#8
2020-0006 yı sildim. Modül oluşturdum, EvrakNo=AraDgr ekle kodlarına ekledim- hata verdi geri sildim..

frm_ana
.rar özel güvenlikson (2) - Kopya.rar (Dosya Boyutu: 1,19 MB | İndirme Sayısı: 2)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#9
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
Cevapla
#10
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#11
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 Function
atama fonksiyonunu doğrudan Ekle butonunun tıklama olayına ekledim
deneme 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
.rar özel güvenlikson _hy.rar (Dosya Boyutu: 1,18 MB | İndirme Sayısı: 3)
Cevapla
#12
Sn.berduş, gayet başarılı, teşekkür ediyorum.

sorun çözülmüştür.
"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