Formdaki evrak_kayıt_no isimli metin kutusunun denetim kaynağını evrak_kayıt_no olarak değiştir,
formun geçerli odlduğunda olayına da
If IsNull(Me.evrak_kayıt_no) Or Me.evrak_kayıt_no = "" Then
Me.evrak_kayıt_no = Nz(DMax("evrak_kayıt_no", "tbl_evrakkayıt"), 0) + 1
End If
kodu ekle, bu şekilde yeni kayıtta son verilen sayının bir fazlasını yazdırabilirsiniz.