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.