AccessTr.neT

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?

2020-0006 yı sildim. Modül oluşturdum, EvrakNo=AraDgr ekle kodlarına ekledim- hata verdi geri sildim..

frm_ana

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

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.

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

Sn.berduş, gayet başarılı, teşekkür ediyorum.

sorun çözülmüştür.