Private Sub prb_proje_kodu_Click()

txt_proje_kodu =iif (dcount("*","tabloadi","proje_kodu='" & proje_kodu & "'")>0, Format([musteri_no],"0000") & "-" & Format([txt_proje_sayısı]+1,"00"), Format([musteri_no],"0000") & "-" & Format([txt_proje_sayısı],"00"))

End Sub

şeklinde kullanabilirsiniz. tabî gerçek alan ve tablo adlarını bilmediğimden isimlendirmeler varsayımsaldır.

---

şimdi farkettim aslında 4. mesajdaki kodu txt_proje_kodu = Format([musteri_no], "0000") & "-" & Format([txt_proje_sayısı], "00") kodunun altına eklemeniz daha doğru olur