=DLookUp("Last(r_protokolno)";"[tbl_reçete_arşiv]")

kodu tablodaki son kayıttaki değeri yani 211 değerini veriyor.

Yeni sorgu oluştur, r_protokolno alanını Azalan olarak sırala ve üstteki [tbl_reçete_arşiv] yerine oluşturduğun sorgu adını yaz

veya,

Metin96 metin kutusunu ilişkisiz yapıp formun geçerli olduğunda olayına aşağıdaki kodu yaz.

Dim db As Database

Dim Sorgu As String

Set db = CurrentDb()

Sorgu = "SELECT tbl_reçete_arşiv.r_protokolno FROM tbl_reçete_arşiv ORDER BY tbl_reçete_arşiv.r_protokolno DESC;"

Set Deger = db.OpenRecordset(Sorgu)

Metin96 = Deger!r_protokolno