=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