strOldID = DMax("Mid([dosyano],4)", "[denetim]") + 1
strNewID = "KYT" & Format(strOldID, "0000")
en son kendi çalışmamda aşağıdaki kodu denedim çalıştı