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