strNewID = "KYT" & Format(strOldID, "0000")

    strOldID = DMax("Nz([ID],0)", "t_Nakliyeler") + 1

    Debug.Print

bu şekilde type mismatch hatası veriyor

strNewID = "KYT" & Format(strOldID, "0000")

    strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1

    Debug.Print

bu şelikde sadece KYT üretiyor numara vermiyor

bendeki  ilk kodu şu şekilde değiştirdim

strOldID = DLast("[ID],0", "t_Nakliyeler") + 1



strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1 'yenisi