hocam bunu kodları iptal ederek mi yapmam gerekiyor ,kodları silersem sil baştan mı yapmam lazım.form açılmadı mı ki
bicak_tarih alanı tanımlanmamış, değerini nereden alıyor?
txt_say = yilmetinkutus "A" & Nz(DMax("mid(say,6)", "tablo1"), 0) + 1
hocam verdiğiniz kod da bir eksiklik var mı acaba "A" karakterinden önce
tablolarda tbl_kisiler den alıyor hocam ama forma oluşturmadım
siz hem bicak_tarih alanını tanımlamamışsınız hem de bu alan değerini nereden alıyor belirtmemişsiniz. ben tarih verisini txt_tarihden aldığını varsayarak kodu yeniden düzenledim
dilerim işinize yarar
Dim bicak_tarih As Long
bicak_tarih = Year(Me.txt_tarih)
txt_bicak_No = bicak_tarih & "A" & Nz(DMax("mid(bicak_No,6)", "tbl_kisiler"), 0) + 1
hocam sizin verdiğinz koda tarih bölümüne şunu yazdım trihi verdi ama günve yıda verdi
txt_bicak_No = Date & "A" & Nz(DMax("mid(bicak_No,6)", "tbl_kisiler"), 0) + 1
sadece yılı vermez mi acaba
yalnız size tarih değerini nereden aldığını sordum cevap vermediniz,
ayrıca yazdığım koda dikkat ederseniz tarih alanını year() fonksiyonu içinde kullanmışım, siz de datei year() içinde kullanmalısınz.