if dcount("*","tabloadi","proje_kodu='" & proje_kodu & "'")>0 then proje_kodu=Format([Text0],"0000") & "-" & Format([Text1]+1,"00")

benzeri bir kodlama kullanılabilir
ama hatırlatmam gereken 2 nokta var
1 - her konu sadece ve sadece 1 soru içindir, 2. soru için yeni konu açmalısınız
2 - siz çalışmanızı elemeden önereceğimiz kodlar genel geçer varsayımsal kodlardır, hızlı ve doğru çözümler için mümkün oduğunca örnek çalışmanızı eklemenizi öneririm
iyi çalışmalar