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.